/[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.14 by camm, Fri Oct 4 03:30:33 2002 UTC revision 1.15 by camm, Wed Oct 9 03:46:33 2002 UTC
# Line 507  SYSTEM_SPECIAL_INIT Line 507  SYSTEM_SPECIAL_INIT
507  (defvar *cc* "cc")  (defvar *cc* "cc")
508  (defvar *ld* "ld")  (defvar *ld* "ld")
509  (defvar *ld-libs* "ld-libs")  (defvar *ld-libs* "ld-libs")
510    (defvar *opt-three* "")
511    (defvar *opt-two* "")
512  (defvar *init-lsp* "init-lsp")  (defvar *init-lsp* "init-lsp")
513    
514  (defvar *use-buggy* nil)  (defvar *use-buggy* nil)
# Line 536  SYSTEM_SPECIAL_INIT Line 538  SYSTEM_SPECIAL_INIT
538     (format nil  "(cd ~a ;~a ~a ~a -c ~a ~a)"     (format nil  "(cd ~a ;~a ~a ~a -c ~a ~a)"
539             dir *cc*             dir *cc*
540             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")             (if (and (boundp '*c-debug*) *c-debug*) " -g " "")
541    ;           (case *speed*
542    ;                (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4")
543    ;                (2 "-O") (t ""))      
544             (case *speed*             (case *speed*
545                   (3 #+broken_o4_opt "-O" #-broken_o4_opt"-O4")                   (3 *opt-three* )
546                   (2 "-O") (t ""))                         (2 *opt-two*)
547                     (t ""))        
548             na             na
549             (prog1             (prog1
550                 #+aix3                 #+aix3

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

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