/[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.1.1.1 by wfs, Mon Dec 6 22:44:13 1999 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 25  build_symbol_table() Line 25  build_symbol_table()
25    char command [250];    char command [250];
26    printf("Building symbol table for %s ..\n",kcl_self);fflush(stdout);    printf("Building symbol table for %s ..\n",kcl_self);fflush(stdout);
27    sprintf(tmpfile1,"rsym%d",getpid());    sprintf(tmpfile1,"rsym%d",getpid());
28    #ifndef STAND
29    coerce_to_filename(symbol_value(sSAsystem_directoryA),    coerce_to_filename(symbol_value(sSAsystem_directoryA),
30                       system_directory);                       system_directory);
31    #endif
32  #ifndef RSYM_COMMAND  #ifndef RSYM_COMMAND
33    sprintf(command,"%srsym %s %s",system_directory,kcl_self,tmpfile1);    sprintf(command,"%srsym %s %s",system_directory,kcl_self,tmpfile1);
34  #else  #else
35    RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1);    RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1);
36  #endif    #endif  
37    if (system(command) != 0)    if (system(command) != 0)
38    #ifdef STAND
39        FEerror("The rsym command %s failed .",1,command);
40    #else
41      FEerror("The rsym command ~a failed .",1,      FEerror("The rsym command ~a failed .",1,
42              make_simple_string(command));              make_simple_string(command));
43    #endif
44    read_special_symbols(tmpfile1);    read_special_symbols(tmpfile1);
45    unlink(tmpfile1);    unlink(tmpfile1);
46    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);

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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