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

Diff of /gcl/cmpnew/gcl_cmpmain.lsp

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

revision 1.1.2.12.6.1 by camm, Thu Aug 5 22:00:06 2004 UTC revision 1.1.2.12.6.1.4.1 by camm, Thu Jan 13 22:43:44 2005 UTC
# Line 547  SYSTEM_SPECIAL_INIT Line 547  SYSTEM_SPECIAL_INIT
547      (setq na  (namestring      (setq na  (namestring
548                 (make-pathname :name name :type (pathname-type(first args)))))                 (make-pathname :name name :type (pathname-type(first args)))))
549     #+(or dos winnt)     #+(or dos winnt)
550        (format nil "~a -I~a ~a ~a -c -w ~a -o ~a"        (format nil "~a -I~a ~a ~a -c -w ~s -o ~s"
551                *cc*                *cc*
552                (concatenate 'string si::*system-directory* "../h")                (concatenate 'string si::*system-directory* "../h")
553                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
# Line 560  SYSTEM_SPECIAL_INIT Line 560  SYSTEM_SPECIAL_INIT
560                )                )
561    
562     #-(or dos winnt)     #-(or dos winnt)
563     (format nil  "~a -I~a ~a ~a -c '~a' -o '~a' ~a"     (format nil  "~a -I~a ~a ~a -c ~s -o ~s ~a"
564             *cc*             *cc*
565             (concatenate 'string si::*system-directory* "../h")             (concatenate 'string si::*system-directory* "../h")
566             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
# Line 826  SYSTEM_SPECIAL_INIT Line 826  SYSTEM_SPECIAL_INIT
826                       (setq sfiles (concatenate 'string sfiles " " (namestring tem)))))                       (setq sfiles (concatenate 'string sfiles " " (namestring tem)))))
827                 sfiles)                 sfiles)
828               si::*system-directory*               si::*system-directory*
829               #+gnu-ld (format nil "-Wl,-Map ~a" (namestring map))               #+gnu-ld (format nil "-Wl,-Map ~a" (namestring map)) #-gnu-ld ""
830               (let* ((par (namestring (make-pathname :directory '(:parent))))               (let* ((par (namestring (make-pathname :directory '(:parent))))
831                      (i (concatenate 'string " " par))                      (i (concatenate 'string " " par))
832                      (j (concatenate 'string " " si::*system-directory* par)))                      (j (concatenate 'string " " si::*system-directory* par)))

Legend:
Removed from v.1.1.2.12.6.1  
changed lines
  Added in v.1.1.2.12.6.1.4.1

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