Explorar el Código

Added extnd_main routine

ceriel hace 35 años
padre
commit
96c4943ef7
Se han modificado 2 ficheros con 17 adiciones y 0 borrados
  1. 8 0
      util/ceg/ce_back/as_back/bottom.c
  2. 9 0
      util/ceg/ce_back/obj_back/extnd.c

+ 8 - 0
util/ceg/ce_back/as_back/bottom.c

@@ -109,3 +109,11 @@ int d;
 	sprint( name, "cont%x", d);
 	return( name);
 }
+
+
+char *extnd_main( d)
+int d;
+{
+	sprint( name, "main%x", d);
+	return( name);
+}

+ 9 - 0
util/ceg/ce_back/obj_back/extnd.c

@@ -119,3 +119,12 @@ int d;
         index_symbol_table = find_sym( string, STORE_STRING);
 	return( symbol_table[ index_symbol_table].on_foff + string_area);
 }
+
+
+char *extnd_main( d)
+int d;
+{
+	string_lengte = mysprint( "%cmcnt%x", GENLAB, d);
+        index_symbol_table = find_sym( string, STORE_STRING);
+	return( symbol_table[ index_symbol_table].on_foff + string_area);
+}