modifications in search for more speed

diff --git a/util/ceg/defaults/pseudo/C_df_ilb.c b/util/ceg/defaults/pseudo/C_df_ilb.c
index 45000af..fd7958c 100644 (file)
--- a/util/ceg/defaults/pseudo/C_df_ilb.c
+++ b/util/ceg/defaults/pseudo/C_df_ilb.c
@@ -5,7 +5,9 @@
 C_df_ilb( l)
 label l;
 {
+       char *s;
+
        swtxt();
-       symbol_definition( extnd_ilb( l));
-       set_local_visible( extnd_ilb( l));
+       symbol_definition(s = extnd_ilb( l));
+       set_local_visible(s);
 }

diff --git a/util/ceg/defaults/pseudo/C_insertpart.c b/util/ceg/defaults/pseudo/C_insertpart.c
index 31b4745..c256eab 100644 (file)
--- a/util/ceg/defaults/pseudo/C_insertpart.c
+++ b/util/ceg/defaults/pseudo/C_insertpart.c
@@ -6,11 +6,12 @@ C_insertpart( d)
 int d;
 
 {
+       char *s;
        swtxt();
 
        jump(extnd_part( d));
-       symbol_definition( extnd_cont( d));
-       set_local_visible( extnd_cont( d));
+       symbol_definition( s = extnd_cont( d));
+       set_local_visible( s);
 }
 
 
@@ -18,10 +19,11 @@ C_beginpart( d)
 int d;
 
 {
+       char *s;
        swtxt();
 
-       symbol_definition( extnd_part( d));
-       set_local_visible( extnd_part( d));
+       symbol_definition(s = extnd_part( d));
+       set_local_visible(S);
 }
 
 

diff --git a/util/ceg/defaults/pseudo/C_pro_narg.c b/util/ceg/defaults/pseudo/C_pro_narg.c
index b25f0cf..c1f0890 100644 (file)
--- a/util/ceg/defaults/pseudo/C_pro_narg.c
+++ b/util/ceg/defaults/pseudo/C_pro_narg.c
@@ -13,6 +13,7 @@ char*s;
  * roepen en daarna terug-jump-en naar het begin van de EM-procedure.
  */
 {
+       char *ss;
        swtxt();
 
        symbol_definition( extnd_name( s));
@@ -20,6 +21,6 @@ char*s;
        prolog();
        locals_created = 0;
        jump( extnd_pro( procno));
-       symbol_definition( extnd_start( procno));
-       set_local_visible( extnd_start( procno));
+       symbol_definition( ss = extnd_start( procno));
+       set_local_visible( ss);
 }