declare procno, extend_ilb changed

diff --git a/util/ceg/defaults/pseudo/C_df_ilb.c b/util/ceg/defaults/pseudo/C_df_ilb.c
index fd7958c..96e4a5a 100644 (file)
--- a/util/ceg/defaults/pseudo/C_df_ilb.c
+++ b/util/ceg/defaults/pseudo/C_df_ilb.c
@@ -2,12 +2,14 @@
 #include <em.h>
 #include "back.h"
 
+extern int procno;
+
 C_df_ilb( l)
 label l;
 {
        char *s;
 
        swtxt();
-       symbol_definition(s = extnd_ilb( l));
+       symbol_definition(s = extnd_ilb( l, procno));
        set_local_visible(s);
 }

diff --git a/util/ceg/defaults/pseudo/C_end.c b/util/ceg/defaults/pseudo/C_end.c
index c4c8069..a2ff3a3 100644 (file)
--- a/util/ceg/defaults/pseudo/C_end.c
+++ b/util/ceg/defaults/pseudo/C_end.c
@@ -3,6 +3,7 @@
 #include "back.h"
 
 extern int locals_created;
+extern int procno;
 
 C_end( l)
 arith l;

diff --git a/util/ceg/defaults/pseudo/C_pro.c b/util/ceg/defaults/pseudo/C_pro.c
index 829a48a..6c8ef75 100644 (file)
--- a/util/ceg/defaults/pseudo/C_pro.c
+++ b/util/ceg/defaults/pseudo/C_pro.c
@@ -3,6 +3,7 @@
 #include "back.h"
 
 extern int locals_created;
+extern int procno;
 
 C_pro( s, l)
 char *s;

diff --git a/util/ceg/defaults/pseudo/C_pro_narg.c b/util/ceg/defaults/pseudo/C_pro_narg.c
index c1f0890..aa0ecdf 100644 (file)
--- a/util/ceg/defaults/pseudo/C_pro_narg.c
+++ b/util/ceg/defaults/pseudo/C_pro_narg.c
@@ -3,6 +3,7 @@
 #include "back.h"
 
 extern int locals_created; 
+extern int procno; 
 
 C_pro_narg( s)
 char*s;