"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)
|
||||
(case what
|
||||
[(operating-system) "darwin"]
|
||||
[(alignof:int) 4]
|
||||
[(sizeof:int) 4]
|
||||
[(operating-system) (host-info)]
|
||||
[else (error 'architecture-feature "invalid args" what)]))
|
||||
|
||||
(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-revision "$(shell cat last-revision)")' >>$@
|
||||
echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@
|
||||
echo '(define target "$(target)")' >>$@
|
||||
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-revision "$(shell cat last-revision)")' >>$@
|
||||
echo '(define ikarus-lib-dir "$(pkglibdir)")' >>$@
|
||||
echo '(define target "$(target)")' >>$@
|
||||
echo '(define wordsize $(sizeofvoidp))' >>$@
|
||||
|
||||
ikarus.boot: $(EXTRA_DIST) ikarus.config.ss
|
||||
|
|
|
@ -19,10 +19,12 @@
|
|||
;;; libraries within the compiler itself.
|
||||
|
||||
(library (ikarus startup)
|
||||
(export print-greeting init-library-path)
|
||||
(import (ikarus))
|
||||
(export print-greeting init-library-path host-info)
|
||||
(import (except (ikarus) host-info))
|
||||
(include "ikarus.config.ss")
|
||||
|
||||
(define (host-info) target)
|
||||
|
||||
(define (print-greeting)
|
||||
(printf "Ikarus Scheme version ~a\n"
|
||||
(if (zero? (string-length ikarus-revision))
|
||||
|
|
|
@ -1 +1 @@
|
|||
1610
|
||||
1612
|
||||
|
|
|
@ -1478,6 +1478,7 @@
|
|||
[pointer-set-long $for]
|
||||
[make-ffi $for]
|
||||
[make-callback $for]
|
||||
[host-info i]
|
||||
|
||||
))
|
||||
|
||||
|
|
Loading…
Reference in New Issue