/[gcl]/gcl/xgcl-2/sysinit.lsp
ViewVC logotype

Diff of /gcl/xgcl-2/sysinit.lsp

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

revision 1.1.1.1 by camm, Tue Aug 13 03:24:30 2002 UTC revision 1.1.1.1.2.1 by camm, Thu Mar 20 15:22:55 2003 UTC
# Line 32  Line 32 
32  ;;of files which are linked into an image.  ;;of files which are linked into an image.
33    
34  (clines "#define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);}  while(0)")  (clines "#define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);}  while(0)")
35    (clines "static void")
36    (clines "load1(char *x) {")
37    (clines "printf(\"loading %s\\n\",x);")
38    (clines "fflush(stdout);")
39    (clines "load(x);")
40    (clines "}")
41    
42  #.    #.  
43  (let ((files  *files*))  (let ((files  *files*))
# Line 39  Line 45 
45      (with-open-file (st "maxobjs" :direction :output)      (with-open-file (st "maxobjs" :direction :output)
46      `(progn      `(progn
47         (clines "object user_init() {")         (clines "object user_init() {")
48           (clines "load1(\"../xgcl-2/sysdef.lisp\");")
49       ,@(sloop::sloop for x  in files       ,@(sloop::sloop for x  in files
50          for f  = (substitute #\_ #\-  x)          for f  = (substitute #\_ #\-  x)
51          for ff =  (namestring (truename (format nil "~a.o" x)))          for ff =  (namestring (truename (format nil "~a.o" x)))

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

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