/[gcl]/gcl/unixport/sys_pcl_gcl.c
ViewVC logotype

Diff of /gcl/unixport/sys_pcl_gcl.c

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

revision 1.10 by camm, Sat May 7 14:44:37 2005 UTC revision 1.11 by camm, Fri Jun 10 15:19:50 2005 UTC
# Line 16  void gcl_init_or_load1 (void (*)(void),c Line 16  void gcl_init_or_load1 (void (*)(void),c
16    char b[200];\    char b[200];\
17    \    \
18    if (snprintf(b,sizeof(b),"ar x %-*.*slibpcl_gcl.a %s.o",\    if (snprintf(b,sizeof(b),"ar x %-*.*slibpcl_gcl.a %s.o",\
19                  sSAsystem_directoryA->s.s_dbind->st.st_fillp,\                  (int)sSAsystem_directoryA->s.s_dbind->st.st_fillp,\
20                  sSAsystem_directoryA->s.s_dbind->st.st_fillp,\                  (int)sSAsystem_directoryA->s.s_dbind->st.st_fillp,\
21                  sSAsystem_directoryA->s.s_dbind->st.st_self,#a)<=0)\                  sSAsystem_directoryA->s.s_dbind->st.st_self,#a)<=0)\
22      error("Cannot unpack module " #a "o\n");\      error("Cannot unpack module " #a "o\n");\
23    if (system(b)) \    if (system(b)) \
# Line 47  load1(x) Line 47  load1(x)
47     char b[200];\     char b[200];\
48     \     \
49     if (snprintf(b,sizeof(b),"%-*.*s%s",\     if (snprintf(b,sizeof(b),"%-*.*s%s",\
50                  sSAsystem_directoryA->s.s_dbind->st.st_fillp,\                  (int)sSAsystem_directoryA->s.s_dbind->st.st_fillp,\
51                  sSAsystem_directoryA->s.s_dbind->st.st_fillp,\                  (int)sSAsystem_directoryA->s.s_dbind->st.st_fillp,\
52                  sSAsystem_directoryA->s.s_dbind->st.st_self,a)<=0)\                  sSAsystem_directoryA->s.s_dbind->st.st_self,a)<=0)\
53       error("Cannot append system directory\n");\       error("Cannot append system directory\n");\
54     load1(b);\     load1(b);\

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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