projects
/
muddle-interpreter.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement OBLISTs
[muddle-interpreter.git]
/
src
/
main.c
diff --git
a/src/main.c
b/src/main.c
index 6645f6e4564f72f72f67d1bea7949761452be844..c9876ce2c0a6067ad2f3eb6738eab1cffcecf016 100644
(file)
--- a/
src/main.c
+++ b/
src/main.c
@@
-20,6
+20,7
@@
License along with this file. If not, see
#include "eval.h"
#include "print.h"
#include "object.h"
#include "eval.h"
#include "print.h"
#include "object.h"
+#include "oblist.h"
#include <stdio.h>
#include <sys/mman.h>
#include <stdio.h>
#include <sys/mman.h>
@@
-31,6
+32,9
@@
pool_ptr ptop;
object *vhp_base;
heap_ptr vhp;
object *vhp_base;
heap_ptr vhp;
+// oblists (move to ASOCs once implemented)
+uvector_object root;
+
// TODO: store these in current PROCESS
frame *cf;
object ret;
// TODO: store these in current PROCESS
frame *cf;
object ret;
@@
-86,6
+90,7
@@
main ()
// mock GC (no object persistence)
ptop = 1;
vhp = 1;
// mock GC (no object persistence)
ptop = 1;
vhp = 1;
+ root = oblist_create (13);
// terminate input
assert (buf[n - 1] == '\n');
buf[n - 1] = '\0';
// terminate input
assert (buf[n - 1] == '\n');
buf[n - 1] = '\0';
@@
-112,6
+117,11
@@
main ()
// Print the thing
print_object (&ret);
printf ("\n");
// Print the thing
print_object (&ret);
printf ("\n");
+ /*
+ // debugging oblists...
+ print_object ((object*) &root);
+ printf ("\n");
+ */
// Loop!
}
// Loop!
}