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

Diff of /gcl/o/sfaslmacosx.c

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

revision 1.7 by camm, Sat May 7 02:52:30 2005 UTC revision 1.8 by camm, Fri Jun 10 15:14:01 2005 UTC
# Line 74  get_init_sym(NSModule module,object ff) Line 74  get_init_sym(NSModule module,object ff)
74    
75      object x;      object x;
76      struct string st;      struct string st;
77      st.t=t_string;      set_type_of(&st,t_string);
78      st.st_self="COMPILER";      st.st_self="COMPILER";
79      st.st_dim=st.st_fillp=strlen(st.st_self);      st.st_dim=st.st_fillp=strlen(st.st_self);
80      if ((x=find_package((object)&st))==Cnil)      if ((x=find_package((object)&st))==Cnil)
# Line 88  get_init_sym(NSModule module,object ff) Line 88  get_init_sym(NSModule module,object ff)
88            
89    }    }
90    
91    st.t=t_string;    set_type_of(&st,t_string);
92    st.st_self=ff->st.st_self;    st.st_self=ff->st.st_self;
93    st.st_dim=st.st_fillp=ff->st.st_dim;    st.st_dim=st.st_fillp=ff->st.st_dim;
94    x=ifuncall1(inf,(object)&st);    x=ifuncall1(inf,(object)&st);
95    if (x->d.t!=t_string)    if (type_of(x)!=t_string)
96      sfasl_error("INIT-NAME error\n");      sfasl_error("INIT-NAME error\n");
97    assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0);    assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0);
98    
99    if (!(v=NSLookupSymbolInModule(module, ib))) {    if (!(v=NSLookupSymbolInModule(module, ib))) {
100      x=ifuncall2(inf,(object)&st,Ct);      x=ifuncall2(inf,(object)&st,Ct);
101      if (x->d.t!=t_string)      if (type_of(x)!=t_string)
102        sfasl_error("INIT-NAME error\n");        sfasl_error("INIT-NAME error\n");
103      assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0);      assert(snprintf(ib,sizeof(ib),"_init_%-.*s",x->st.st_dim,x->st.st_self)>0);
104      if (!(v=NSLookupSymbolInModule(module, ib)))      if (!(v=NSLookupSymbolInModule(module, ib)))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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