1 files changed, 14 insertions, 0 deletions

diff --git a/src/ir.h b/src/ir.h
index a42cd48..845bf63 100644
--- a/src/ir.h
+++ b/src/ir.h
@@ -128,6 +128,17 @@ compile_arithmetic(ProgramIr *program, Procedure *proc, Op op,
 }
 
 void
+compile_print(ProgramIr *program, Procedure *proc,
+        size_t line, size_t col, Object *args) {
+    Instruction inst = (Instruction){OP_PRINT, NULL, line, col};
+    while (args != NULL) {
+        compile_object(program, proc, args->head);
+        args = args->tail;
+        array_push(proc->instructions, inst);
+    }
+}
+
+void
 compile_proc_call(ProgramIr *program, Procedure *proc, Object *obj) {
     size_t line = obj->line;
     size_t col = obj->col;
@@ -148,6 +159,9 @@ compile_proc_call(ProgramIr *program, Procedure *proc, Object *obj) {
             case BUILTIN_MOD: {
                 compile_arithmetic(program, proc, OP_MOD, line, col, obj->tail);
             } break;
+            case BUILTIN_PRINT: {
+                compile_print(program, proc, line, col, obj->tail);
+            } break;
             default: {
                 assert(false && "builtin not implemented");
             } break;