From: ceriel <none@none>
Date: Wed, 22 Mar 1989 16:44:20 +0000 (+0000)
Subject: Added extnd_main routine
X-Git-Tag: release-5-5~2485
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=96c4943ef79826fcbbd50de6392b521662c73b0d;p=ack.git

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 e47c39316..c4481125b 100644
--- 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 5cccc4f0f..221fb086f 100644
--- 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);
+}