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

Diff of /gcl/o/unixfasl.c

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:14 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:56 2002 UTC
# Line 278  AGAIN: Line 278  AGAIN:
278  #ifndef PRIVATE_FASLINK  #ifndef PRIVATE_FASLINK
279    
280  int  int
281  faslink(faslfile, ldargstring)  faslink(object faslfile, object ldargstring)
   
 object faslfile, ldargstring;  
282  {  {
283  #if defined(__linux__) && defined(__ELF__)  #if defined(__linux__) && defined(__ELF__)
284    FEerror("faslink() not supported for ELF yet",0);    FEerror("faslink() not supported for ELF yet",0);
285      return 0;
286  #else  #else
287          struct exec header, faslheader;          struct exec header, faslheader;
288          object memory, data, tempfile;          object memory, data, tempfile;
# Line 380  SEEK_TO_END_OFILE(faslfile->sm.sm_fp); Line 379  SEEK_TO_END_OFILE(faslfile->sm.sm_fp);
379    
380  #endif  #endif
381    
382  siLfaslink()  void
383    siLfaslink(void)
384  {  {
385          bds_ptr old_bds_top;          bds_ptr old_bds_top;
386          int i;          int i;
# Line 405  siLfaslink() Line 405  siLfaslink()
405  #endif/*  svr4 */  #endif/*  svr4 */
406  #endif /* UNIXFASL */  #endif /* UNIXFASL */
407    
408  init_unixfasl()  void
409    init_unixfasl(void)
410  {  {
411  #ifdef FASLINK  #ifdef FASLINK
412          make_si_function("FASLINK", siLfaslink);          make_si_function("FASLINK", siLfaslink);

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