From 641221f9c0e72d75fde0f4ff42a656488eb31494 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
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 e47c3931..c4481125 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 5cccc4f0..221fb086 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);
+}