"darwin" is no longer hardcoded in lib/ypsilon-compat.ikarus.ss,

instead, it is obtained from the target info that autoconf
generates.
This commit is contained in:
Abdulaziz Ghuloum 2008-09-24 23:18:35 -04:00
parent 3969e56c2d
commit 89d9a472a5
6 changed files with 9 additions and 6 deletions

View File

@ -25,9 +25,7 @@
(define (architecture-feature what) (define (architecture-feature what)
(case what (case what
[(operating-system) "darwin"] [(operating-system) (host-info)]
[(alignof:int) 4]
[(sizeof:int) 4]
[else (error 'architecture-feature "invalid args" what)])) [else (error 'architecture-feature "invalid args" what)]))
(define (string-contains text s) (define (string-contains text s)

View File

@ -41,6 +41,7 @@ ikarus.config.ss: Makefile last-revision ../config.h
echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@ echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@
echo '(define ikarus-revision "$(shell cat last-revision)")' >>$@ echo '(define ikarus-revision "$(shell cat last-revision)")' >>$@
echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@ echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@
echo '(define target "$(target)")' >>$@
echo '(define wordsize $(sizeofvoidp))' >>$@ echo '(define wordsize $(sizeofvoidp))' >>$@

View File

@ -380,6 +380,7 @@ ikarus.config.ss: Makefile last-revision ../config.h
echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@ echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@
echo '(define ikarus-revision "$(shell cat last-revision)")' >>$@ echo '(define ikarus-revision "$(shell cat last-revision)")' >>$@
echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@ echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@
echo '(define target "$(target)")' >>$@
echo '(define wordsize $(sizeofvoidp))' >>$@ echo '(define wordsize $(sizeofvoidp))' >>$@
ikarus.boot: $(EXTRA_DIST) ikarus.config.ss ikarus.boot: $(EXTRA_DIST) ikarus.config.ss

View File

@ -19,9 +19,11 @@
;;; libraries within the compiler itself. ;;; libraries within the compiler itself.
(library (ikarus startup) (library (ikarus startup)
(export print-greeting init-library-path) (export print-greeting init-library-path host-info)
(import (ikarus)) (import (except (ikarus) host-info))
(include "ikarus.config.ss") (include "ikarus.config.ss")
(define (host-info) target)
(define (print-greeting) (define (print-greeting)
(printf "Ikarus Scheme version ~a\n" (printf "Ikarus Scheme version ~a\n"

View File

@ -1 +1 @@
1610 1612

View File

@ -1478,6 +1478,7 @@
[pointer-set-long $for] [pointer-set-long $for]
[make-ffi $for] [make-ffi $for]
[make-callback $for] [make-callback $for]
[host-info i]
)) ))