From: ceriel Date: Mon, 31 Oct 1988 16:03:44 +0000 (+0000) Subject: modifications in search for more speed X-Git-Tag: release-5-5~2761 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=8cd2051b2e97a975f70aaab4b67b8b5c2572a8db;p=ack.git 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 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); }