/[gcl]/gcl/cmpnew/cmpmain.lsp
ViewVC logotype

Diff of /gcl/cmpnew/cmpmain.lsp

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

revision 1.18 by camm, Wed Feb 26 22:21:35 2003 UTC revision 1.18.6.1 by camm, Thu Sep 4 02:13:40 2003 UTC
# Line 531  SYSTEM_SPECIAL_INIT Line 531  SYSTEM_SPECIAL_INIT
531       (setq na  (namestring       (setq na  (namestring
532                  (make-pathname :name name :type (pathname-type(first args)))))                  (make-pathname :name name :type (pathname-type(first args)))))
533     #+(or dos winnt)     #+(or dos winnt)
534        (format nil "~a ~a ~a -c -w ~a -o ~a"        (format nil "~a -I~a ~a ~a -c -w ~a -o ~a"
535                *cc*                *cc*
536                  (concatenate 'string si::*system-directory* "../h")
537                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
538                (case *speed*                (case *speed*
539                      (3 *opt-three* )                      (3 *opt-three* )
# Line 546  SYSTEM_SPECIAL_INIT Line 547  SYSTEM_SPECIAL_INIT
547                )                )
548    
549     #-(or dos winnt)     #-(or dos winnt)
550     (format nil  "(cd ~a ;~a ~a ~a -c ~a ~a)"     (format nil  "(cd ~a ;~a -I~a ~a ~a -c ~a ~a)"
551             dir *cc*             dir *cc*
552               (concatenate 'string si::*system-directory* "../h")
553             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
554  ;           (case *speed*  ;           (case *speed*
555  ;                (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4")  ;                (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4")
# Line 749  SYSTEM_SPECIAL_INIT Line 751  SYSTEM_SPECIAL_INIT
751                      (format st "  return 0;~%")                      (format st "  return 0;~%")
752                      (format st "}~%~%")))                      (format st "}~%~%")))
753                                            
754    (system (format nil "~a ~a" *cc* tem))    (compiler-cc tem (concatenate 'string out ".o"))
755    ;  (system (format nil "~a ~a" *cc* tem))
756    (delete-file tem)    (delete-file tem)
757        
758  )  )
# Line 761  SYSTEM_SPECIAL_INIT Line 764  SYSTEM_SPECIAL_INIT
764    (setq init (format nil "init_~a.lsp" (pathname-name image)))    (setq init (format nil "init_~a.lsp" (pathname-name image)))
765    
766    (system    (system
767     (format nil "~a ~a user-init.o ~a -L ~a ~a ~a"     (format nil "~a ~a user-init.o ~a -L~a ~a ~a"
768             *ld*             *ld*
769             raw             raw
770             (let ((sfiles ""))             (let ((sfiles ""))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.6.1

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