From 8cd2051b2e97a975f70aaab4b67b8b5c2572a8db Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 31 Oct 1988 16:03:44 +0000 Subject: [PATCH] modifications in search for more speed --- util/ceg/defaults/pseudo/C_df_ilb.c | 6 ++++-- util/ceg/defaults/pseudo/C_insertpart.c | 10 ++++++---- util/ceg/defaults/pseudo/C_pro_narg.c | 5 +++-- 3 files changed, 13 insertions(+), 8 deletions(-) diff --git a/util/ceg/defaults/pseudo/C_df_ilb.c b/util/ceg/defaults/pseudo/C_df_ilb.c index 45000af29..fd7958c96 100644 --- 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 31b474500..c256eab96 100644 --- 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 b25f0cfd7..c1f089058 100644 --- 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); } -- 2.34.1