/[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.15 by camm, Wed Oct 9 03:46:33 2002 UTC revision 1.16 by mjthomas, Fri Oct 11 07:48:54 2002 UTC
# Line 527  SYSTEM_SPECIAL_INIT Line 527  SYSTEM_SPECIAL_INIT
527        (format nil "~a ~a ~a -c -w ~a -o ~a"        (format nil "~a ~a ~a -c -w ~a -o ~a"
528                *cc*                *cc*
529                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")                (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
530                (case *speed*                (case *speed*
531                      (3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4")                      (3 *opt-three* )
532                      (2 "-O") (t ""))                      (2 *opt-two*)
533                        (t ""))    
534    ;              (case *speed*
535    ;                   (3 #+broken_o4_opt "-O2" #-broken_o4_opt"-O4")
536    ;                   (2 "-O") (t ""))
537                (namestring (make-pathname  :type "c" :defaults (first args)))                (namestring (make-pathname  :type "c" :defaults (first args)))
538                (namestring (make-pathname  :type "o" :defaults (first args)))                (namestring (make-pathname  :type "o" :defaults (first args)))
539                )                )

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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