From 6231c1c699254a7edd62d027fdf1c7a073edc232 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 13 Nov 1993 19:21:09 +0000 Subject: [PATCH] Fix bug when switch list is empty. Disable checking of return status of system. Apparently it does not quite work in SunOS. --- v7/src/compiler/machines/C/ctop.scm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/machines/C/ctop.scm b/v7/src/compiler/machines/C/ctop.scm index b35ab7f82..37f502e2f 100644 --- a/v7/src/compiler/machines/C/ctop.scm +++ b/v7/src/compiler/machines/C/ctop.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: ctop.scm,v 1.6 1993/11/13 06:59:59 gjr Exp $ +$Id: ctop.scm,v 1.7 1993/11/13 19:21:09 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -89,8 +89,11 @@ MIT in each case. |# (let ((result (apply call/cc (append (c-compiler-switches) (list source))))) + #| (if (not (zero? result)) - (error "c-compile: C compiler failed" source))) + (error "c-compile: C compiler failed" source)) + |# + result) (set! *call/cc-c-compiler* compiler:c-linker-name) (newline) (display ";Linking ") @@ -104,8 +107,11 @@ MIT in each case. |# (c-output-extension)))) (c-linker-switches) (list object))))) + #| (if (not (zero? result)) - (error "c-compile: C linker failed" object))) + (error "c-compile: C linker failed" object)) + |# + result) (delete-file object)))))) (define (c-output-extension) @@ -123,7 +129,7 @@ MIT in each case. |# (define c-compiler-switch-table `(("SunOS" "so" - ("-c" "-pic" "-O" "-Dsun4" "-D_SUNOS4") + ("-c" "-pic" "-O" "-Dsun4" "-D_SUNOS4" "-w") ()) ("AIX" "so" @@ -174,7 +180,7 @@ MIT in each case. |# ((assoc microcode-id/operating-system-variant c-compiler-switch-table) => (lambda (place) (let ((switches (cadddr place))) - (if (pair? switches) + (if (not (procedure? switches)) switches (let ((dir (system-library-directory-pathname "include"))) (if (not dir) -- 2.25.1