newvm

Makefile

@@ -1,11 +1,11 @@
-CFLAGS = -g -Wall -Wextra -Wunused-parameter
+CFLAGS = -L/usr/local/lib -g -Wall -Wextra -Wunused-parameter
 LIBS = -lobject
 YACC = bison
 YFLAGS = -y --warnings=all
 LEX = flex
 
-como: como_object.o como_ast_free.o como_io.o como_executor.o como_ast.o como_debug.o como_stack.o como_lexer.o como_parser.o como_compiler.o como.o
-	$(CC) como_io.o como_object.o como_executor.o como_debug.o como_ast.o como_stack.o como_parser.o como_lexer.o como_compiler.o como_ast_free.o como.o -o como $(CFLAGS) $(LIBS)
+como: como_object.o como_ast_free.o como_io.o como_executor.o como_ast.o como_debug.o como_stack.o como_lexer.o como_parser.o como_compiler.o vm.o como.o
+	$(CC) como_io.o como_object.o como_executor.o como_debug.o como_ast.o como_stack.o como_parser.o como_lexer.o como_compiler.o vm.o como_ast_free.o como.o -o como $(CFLAGS) $(LIBS)
 
 como_lexer.o: como_parser.c como_lexer.l
 

como_compiler.c

@@ -126,6 +126,7 @@ static ComoFrame *create_frame(Object *code, const char *name)
 
     frame->cf_symtab = newMap(4);
     frame->code = code;
+    frame->pc = 0;
     frame->next = NULL;
     frame->namedparameters = newArray(2);
     frame->filename = NULL;
@@ -317,7 +318,7 @@ static void _como_asm_dump(FILE *fp, ComoFrame *frame)
     }
 }
 
-static void como_compile(ast_node* p, ComoFrame *frame)
+void como_compile(ast_node* p, ComoFrame *frame)
 {
     #define COMO_CHECKED(result) \
         como_proxy_not_null_check((result))
@@ -1256,12 +1257,3 @@ void como_dump_asm(ast_node *p, const char *filename) {
     _como_compile_ast(p, filename, 1);
 }
 
-void como_compile_ast(ast_node *p, const char *filename) {
-    _como_compile_ast(p, filename, 0);
-}
-
-
-char *get_active_file_name(void) {
-    return "-";
-    return O_SVAL(global_frame->filename)->value;
-}

como_compiler.h

@@ -39,6 +39,7 @@ typedef struct ComoFrame
     Object           *cf_stack[(size_t)COMO_DEFAULT_FRAME_STACKSIZE];
     Object           *cf_symtab; 
     Object           *code;
+    long              pc;
     struct ComoFrame *next;
     Object           *namedparameters;
     Object           *filename;
@@ -51,5 +52,6 @@ typedef struct ComoFrame
 void como_print_stack_trace(ComoFrame *frame);
 void como_compile_ast(ast_node *p, const char *filename);
 void como_dump_asm(ast_node *p, const char *filename);
+void como_compile(ast_node* p, ComoFrame *frame);
 
 #endif /* !COMO_COMPILER_H */