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

deleted the mark object

Browse Source
This commit is contained in:
hyung-hwan
2014-02-05 03:21:25 +00:00
parent 21744e7f36
commit 794ddca903
3 changed files with 8 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -210,8 +210,7 @@ package H2.Scheme is
Procedure_Object,
Closure_Object,
Continuation_Object,
Frame_Object,
Mark_Object
Frame_Object
);
type Object_Record(Kind: Object_Kind; Size: Object_Size) is record
@ -500,8 +499,8 @@ private
Symbol_Table: Object_Pointer := Nil_Pointer;
Root_Environment: Object_Pointer := Nil_Pointer;
Root_Frame: Object_Pointer := Nil_Pointer;
Stack: aliased Object_Pointer := Nil_Pointer;
Mark: Object_Pointer := Nil_Pointer;
Stack: Object_Pointer := Nil_Pointer;
Active_Frame: Object_Pointer := NIl_Pointer;
Symbol: Common_Symbol_Record;
Top: Top_Record; -- temporary object pointers