"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:
parent
3969e56c2d
commit
89d9a472a5
|
@ -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)
|
||||||
|
|
|
@ -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))' >>$@
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -19,10 +19,12 @@
|
||||||
;;; 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"
|
||||||
(if (zero? (string-length ikarus-revision))
|
(if (zero? (string-length ikarus-revision))
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1610
|
1612
|
||||||
|
|
|
@ -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]
|
||||||
|
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue