85 |
printf("Building symbol table for %s ..\n",kcl_self);fflush(stdout); |
printf("Building symbol table for %s ..\n",kcl_self);fflush(stdout); |
86 |
|
|
87 |
#ifdef SPECIAL_RSYM |
#ifdef SPECIAL_RSYM |
88 |
|
{ |
89 |
|
|
90 |
sprintf(tmpfile1,"rsym%d",getpid()); |
char tmpfile1[80],command[300]; |
91 |
|
snprintf(tmpfile1,sizeof(tmpfile1),"rsym%d",getpid()); |
92 |
#ifndef STAND |
#ifndef STAND |
93 |
coerce_to_filename(symbol_value(sSAsystem_directoryA), |
coerce_to_filename(symbol_value(sSAsystem_directoryA), |
94 |
system_directory); |
system_directory); |
95 |
#endif |
#endif |
96 |
#ifndef RSYM_COMMAND |
#ifndef RSYM_COMMAND |
97 |
sprintf(command,"%srsym %s %s",system_directory,kcl_self,tmpfile1); |
snprintf(command,sizeof(command),"%srsym %s %s",system_directory,kcl_self,tmpfile1); |
98 |
#else |
#else |
99 |
RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1); |
RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1); |
100 |
#endif |
#endif |
101 |
if (system(command) != 0) |
if (system(command) != 0) |
102 |
#ifdef STAND |
#ifdef STAND |
103 |
FEerror("The rsym command %s failed .",1,command); |
FEerror("The rsym command %s failed .",1,command); |
104 |
#else |
#else |
105 |
FEerror("The rsym command ~a failed .",1, |
FEerror("The rsym command ~a failed .",1, |
106 |
make_simple_string(command)); |
make_simple_string(command)); |
107 |
#endif |
#endif |
108 |
read_special_symbols(tmpfile1); |
read_special_symbols(tmpfile1); |
109 |
unlink(tmpfile1); |
unlink(tmpfile1); |
110 |
qsort((char*)(c_table.ptable),(int)(c_table.length),sizeof(struct node),node_compare); |
qsort((char*)(c_table.ptable),(int)(c_table.length),sizeof(struct node),node_compare); |
111 |
|
} |
112 |
#else /* special_rsym */ |
#else /* special_rsym */ |
113 |
|
|
114 |
build_symbol_table_bfd(); |
build_symbol_table_bfd(); |