hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

implemented if

Browse Source
This commit is contained in:
hyung-hwan
2014-01-20 14:34:55 +00:00
parent 9a32d5485b
commit 75863951ef
7 changed files with 149 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
h2/lib/h2-scheme.ads
View File

@ -471,6 +471,11 @@ private
Data: Top_Array(1 .. 100) := (others => null);
end record;
type Common_Symbol_Record is record
Quote: Object_Pointer := Nil_Pointer;
Arrow: Object_Pointer := Nil_Pointer;
end record;
--type Interpreter_Record is tagged limited record
type Interpreter_Record is limited record
Self: Interpreter_Pointer := Interpreter_Record'Unchecked_Access; -- Current instance's pointer
@ -488,6 +493,7 @@ private
Stack: aliased Object_Pointer := Nil_Pointer;
Mark: Object_Pointer := Nil_Pointer;
Symbol: Common_Symbol_Record;
Top: Top_Record; -- temporary object pointers
Base_Input: aliased IO_Record;