emit symbols with the module name

diff --git a/cerise/backend/ssa/codegen.c b/cerise/backend/ssa/codegen.c
index 01ad1ac49e80ab10fd178200038c09c76d0e3f47..7a9ae30f12333c6f0d6545a9afeb4cf390505259 100644 (file)
--- a/cerise/backend/ssa/codegen.c
+++ b/cerise/backend/ssa/codegen.c
@@ -102,7 +102,9 @@ void codegen_symbol(Parser* p, Symbol* sym)
     (void)p;
     if (sym->class == SYM_VAR)
     {
-        printf("@%s = global ", sym->name);
+        char* modname = (sym->module == 0
+            ? p->name  : symbol_getbyid(p, sym->module)->name);
+        printf("@%s_%s = global ", modname, sym->name);
         emit_type(sym->type);
 
         if (sym->type->form == FORM_ARRAY || sym->type->form == FORM_RECORD)
@@ -168,7 +170,9 @@ static void print_ident(Parser* p, SsaVar* var)
     char* name = (s->name[0] == '$' ? "" : s->name);
     if ((s->global || s->class == SYM_PROC) && (s->class != SYM_TYPE))
     {
-        printf("@%s", name);
+        char* modname = (s->module == 0
+            ? p->name  : symbol_getbyid(p, s->module)->name);
+        printf("@%s_%s", modname, name);
     }
     else
     {