Support function call

Author: ChAoSUnItY

example.ssa

@@ -1,9 +1,14 @@
+function w $pp(w %a, w %b) {
+  %t =w add %a, %b
+  ret %t
+}
+
 function w $main() {
   %a =w copy 1
   %t =w alloc 4
   jnz %a, @L1, @L2
 @L1
-  %t =w add %t, %t
+  %t =w call $pp(w 0, w 0)
   jmp @L3
 @L2
   %t =w copy 1

src/ir_translator.c

@@ -193,6 +193,26 @@ void qs_gen_inst(qs_ir_inst_t *inst, basic_block_t *bb, block_t *blk)
 
         add_insn(blk, bb, OP_assign, dest, rs1, NULL, 0, NULL);
         break;
+    case QS_OP_CALL: {
+        var_t *args[MAX_PARAMS];
+
+        for (int i = 1; i < inst->narg.len; i++)
+            args[i - 1] = qs_gen_value(&inst->args[i], bb, blk);
+
+        for (int i = 0; i < inst->narg.len - 1; i++)
+            add_insn(blk, bb, OP_push, NULL, args[i], NULL,
+                     inst->narg.len - i - 1, NULL);
+
+        add_insn(blk, bb, OP_call, NULL, NULL, NULL, 0,
+                 trim_sigil(rs1_val->global->name));
+
+        if (inst->dest) {
+            dest = qs_gen_dest(inst->dest, bb, blk);
+
+            add_insn(blk, bb, OP_func_ret, dest, NULL, NULL, 0, NULL);
+        }
+        break;
+    }
     case QS_OP_JMP:
         break;
     case QS_OP_JNZ:
@@ -289,13 +309,14 @@ void qs_gen_module(qs_ir_module_t *mod)
             func->return_def.type = qs_convert_type(ir_func->rty);
             init_var(&func->return_def);
 
+            func->stack_size = 4;
             func->num_params = ir_func->nparams;
-            for (int j = 0; j < ir_func->nparams; j++) {
+            for (int j = 0; j < func->num_params; j++) {
                 qs_ir_temp_t *temp = &ir_func->temps[j];
 
                 init_var(&func->param_defs[j]);
-                strcpy(func->param_defs->var_name, temp->name);
-                func->param_defs->type = qs_convert_type(temp->type);
+                strcpy(func->param_defs[j].var_name, trim_sigil(temp->name));
+                func->param_defs[j].type = qs_convert_type(temp->type);
             }
 
             func->va_args = ir_func->variadic;