godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

many changes, mostly for efficiency

Browse Source
This commit is contained in:
ceriel
1988-10-20 13:06:10 +00:00
parent a281cc38a4
commit f69a7e3e5d
18 changed files with 276 additions and 261 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
util/ceg/ce_back/obj_back/extnd.c
View File

@@ -18,7 +18,7 @@ int procno = 0, holno = 0;
char *extnd_pro( procno)
int procno;
{
string_lengte = mysprint( "pro%d", procno);
string_lengte = mysprint( "%cprc%d", GENLAB, procno);
index_symbol_table = find_sym( string, STORE_STRING);
return( symbol_table[ index_symbol_table].on_foff + string_area);
}
@@ -27,7 +27,7 @@ int procno;
char *extnd_start( procno)
int procno;
{
string_lengte = mysprint( "start%d", procno);
string_lengte = mysprint( "%cstrt%d", GENLAB, procno);
index_symbol_table = find_sym( string, STORE_STRING);
return( symbol_table[ index_symbol_table].on_foff + string_area);
}
@@ -81,7 +81,7 @@ int hol;
char *extnd_part( d)
int d;
{
string_lengte = mysprint( "part%x", d);
string_lengte = mysprint( "%cprt%x", GENLAB, d);
index_symbol_table = find_sym( string, STORE_STRING);
return( symbol_table[ index_symbol_table].on_foff + string_area);
}
@@ -90,7 +90,7 @@ int d;
char *extnd_cont( d)
int d;
{
string_lengte = mysprint( "cont%x", d);
string_lengte = mysprint( "%ccnt%x", GENLAB, d);
index_symbol_table = find_sym( string, STORE_STRING);
return( symbol_table[ index_symbol_table].on_foff + string_area);
}