in the middle of debugging GC

This commit is contained in:
2014-01-16 16:52:18 +00:00
parent 7a80455258
commit bf2818a56c
9 changed files with 1458 additions and 1242 deletions

View File

@ -18,13 +18,13 @@ procedure scheme is
O: S.Object_Pointer;
--String: aliased S.Object_String := "(car '(1 2 3))";
String: aliased constant S.Object_String := "((lambda (x y) (+ x y)) 9 7)";
String: aliased constant S.Object_Character_Array := "((lambda (x y) (+ x y)) 9 7)";
String_Stream: Stream.String_Input_Stream_Record (String'Unchecked_Access);
--String_Stream: Stream.String_Input_Stream_Record := (Len => String'Length, Str => String, Pos => 0);
--File_Name: aliased S.Object_String := "test.adb";
File_Name: aliased constant S.Object_String := "test.scm";
--File_Name: aliased S.Object_Character_Array := "test.adb";
File_Name: aliased constant S.Object_Character_Array := "test.scm";
--File_Stream: Stream.File_Stream_Record (File_Name'Unchecked_Access);
--File_Stream: Stream.File_Stream_Record := (Name => File_Name'Unchecked_Access);
File_Stream: Stream.File_Stream_Record;