From 96c4943ef79826fcbbd50de6392b521662c73b0d Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 22 Mar 1989 16:44:20 +0000
Subject: [PATCH] Added extnd_main routine

---
 util/ceg/ce_back/as_back/bottom.c | 8 ++++++++
 util/ceg/ce_back/obj_back/extnd.c | 9 +++++++++
 2 files changed, 17 insertions(+)

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);
+}
-- 
2.34.1