/[gcl]/gcl/o/sfasli.c
ViewVC logotype

Diff of /gcl/o/sfasli.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Jul 20 07:10:56 2002 UTC revision 1.5 by camm, Wed Jul 24 19:05:53 2002 UTC
# Line 85  build_symbol_table(void) { Line 85  build_symbol_table(void) {
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();

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26