/[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.2 by camm, Tue Sep 23 18:26:49 2003 UTC revision 1.1.2.3 by mjthomas, Fri Oct 10 05:57:59 2003 UTC
# Line 581  SYSTEM_SPECIAL_INIT Line 581  SYSTEM_SPECIAL_INIT
581             )             )
582     )     )
583    )    )
584            
585    #+winnt (defun prep-win-path-acc ( s acc)
586      (let ((pos (search "\~" s)))
587        (if pos
588            (let ((start (subseq s 0 (1+ pos)))
589                  (finish (subseq s (1+ pos))))
590              (prep-win-path-acc finish (concatenate 'string acc start "~")))
591          (concatenate 'string acc s))))
592    #+winnt (defun prep-win-path ( s ) (prep-win-path-acc s ""))        
593    
594  (defun compiler-cc (c-pathname o-pathname  )  (defun compiler-cc (c-pathname o-pathname  )
595    (safe-system    (safe-system
# Line 591  SYSTEM_SPECIAL_INIT Line 599  SYSTEM_SPECIAL_INIT
599           #+irix5 (compiler-command c-pathname o-pathname )           #+irix5 (compiler-command c-pathname o-pathname )
600           #+vax "~a ~@[~*-O ~]-S -I. -w ~a ; as -J -W -o ~A ~A"           #+vax "~a ~@[~*-O ~]-S -I. -w ~a ; as -J -W -o ~A ~A"
601           #+(or system-v e15 dgux sgi ) "~a ~@[~*-O ~]-c -I. ~a 2> /dev/null"           #+(or system-v e15 dgux sgi ) "~a ~@[~*-O ~]-c -I. ~a 2> /dev/null"
602          (compiler-command c-pathname o-pathname ))           #+winnt (prep-win-path (compiler-command c-pathname o-pathname ))
603             #-winnt (compiler-command c-pathname o-pathname)
604            )
605       *cc*       *cc*
606       (if (or (= *speed* 2) (= *speed* 3)) t nil)       (if (or (= *speed* 2) (= *speed* 3)) t nil)
607              (namestring c-pathname)              (namestring c-pathname)

Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3

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