Added extnd_main routine

diff --git a/util/ceg/ce_back/as_back/bottom.c b/util/ceg/ce_back/as_back/bottom.c
index e47c393..c448112 100644 (file)
--- a/util/ceg/ce_back/as_back/bottom.c
+++ b/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);
+}

diff --git a/util/ceg/ce_back/obj_back/extnd.c b/util/ceg/ce_back/obj_back/extnd.c
index 5cccc4f..221fb08 100644 (file)
--- a/util/ceg/ce_back/obj_back/extnd.c
+++ b/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);
+}