suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: use vfasl for boot files

Browse Source
This commit is contained in:
Matthew Flatt 2018-12-29 10:15:13 -06:00
parent 326e555146
commit cea82c1ddc
3 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
racket/src/cs/c/Makefile.in
View File

@ -123,8 +123,21 @@ scheme:
scheme-make: scheme-make:
cd @SCHEME_SRC@ && ./configure @SCHEME_CONFIG_ARGS@ CC="$(CC)" CFLAGS="$(BASE_CFLAGS)" LDFLAGS="$(LDFLAGS)" cd @SCHEME_SRC@ && ./configure @SCHEME_CONFIG_ARGS@ CC="$(CC)" CFLAGS="$(BASE_CFLAGS)" LDFLAGS="$(LDFLAGS)"
mkdir -p @SCHEME_SRC@/@MACH@/boot/@MACH@
$(MAKE) @SCHEME_SRC@/@MACH@/boot/@MACH@/equates.h
$(MAKE) @SCHEME_SRC@/@MACH@/boot/@MACH@/petite.boot
$(MAKE) @SCHEME_SRC@/@MACH@/boot/@MACH@/scheme.boot
cd @SCHEME_SRC@ && $(MAKE) cd @SCHEME_SRC@ && $(MAKE)
# Replace "equates.h", etc., if they seem to be out of date.
# Otherwise, `make` on Chez Scheme cna fail.
@SCHEME_SRC@/@MACH@/boot/@MACH@/equates.h: @SCHEME_SRC@/boot/@MACH@/equates.h
cp @SCHEME_SRC@/boot/@MACH@/equates.h @SCHEME_SRC@/@MACH@/boot/@MACH@/equates.h
@SCHEME_SRC@/@MACH@/boot/@MACH@/petite.boot: @SCHEME_SRC@/boot/@MACH@/petite.boot
cp @SCHEME_SRC@/boot/@MACH@/petite.boot @SCHEME_SRC@/@MACH@/boot/@MACH@/petite.boot
@SCHEME_SRC@/@MACH@/boot/@MACH@/scheme.boot: @SCHEME_SRC@/boot/@MACH@/scheme.boot
cp @SCHEME_SRC@/boot/@MACH@/scheme.boot @SCHEME_SRC@/@MACH@/boot/@MACH@/scheme.boot
racket.boot: racket.so racket.boot: racket.so
$(SCHEME) --script $(srcdir)/convert-to-boot.ss @COMPRESS_COMP@ racket.so racket.boot $(SCHEME) --script $(srcdir)/convert-to-boot.ss @COMPRESS_COMP@ racket.so racket.boot
@ -186,8 +199,9 @@ $(RKTFW): $(BOOT_OBJS) $(BOOT_FILES)
rm -f Racket.framework/Racket rm -f Racket.framework/Racket
ln -s Versions/$(FWVERSION)_CS/Racket Racket.framework/Racket ln -s Versions/$(FWVERSION)_CS/Racket Racket.framework/Racket
mkdir -p Racket.framework/Versions/$(FWVERSION)_CS/boot mkdir -p Racket.framework/Versions/$(FWVERSION)_CS/boot
cp $(SCHEME_INC)/petite.boot $(SCHEME_INC)/scheme.boot $(FW_BOOT_DEST) $(SCHEME) --script $(srcdir)/to-vfasl.ss @COMPRESS_COMP@ $(SCHEME_INC)/petite.boot $(FW_BOOT_DEST)/petite.boot
cp racket.boot $(FW_BOOT_DEST) $(SCHEME) --script $(srcdir)/to-vfasl.ss @COMPRESS_COMP@ $(SCHEME_INC)/scheme.boot $(FW_BOOT_DEST)/scheme.boot petite
$(SCHEME) --script $(srcdir)/to-vfasl.ss @COMPRESS_COMP@ racket.boot $(FW_BOOT_DEST)/racket.boot petite scheme
$(BOOTSTRAP_RACKET) $(srcdir)/adjust-compress.rkt @COMPRESS_COMP@ $(FW_BOOT_DEST)/petite.boot $(FW_BOOT_DEST)/scheme.boot $(FW_BOOT_DEST)/racket.boot $(BOOTSTRAP_RACKET) $(srcdir)/adjust-compress.rkt @COMPRESS_COMP@ $(FW_BOOT_DEST)/petite.boot $(FW_BOOT_DEST)/scheme.boot $(FW_BOOT_DEST)/racket.boot
# ---------------------------------------- # ----------------------------------------

17
racket/src/cs/c/to-vfasl.ss Normal file
View File

@ -0,0 +1,17 @@
(compile-compressed #f)
(define-values (src dest deps)
(let loop ([args (command-line-arguments)])
(cond
[(and (pair? args)
(equal? (car args) "--compress"))
(compile-compressed #t)
(loop (cdr args))]
[(null? args)
(error 'to-vfasl "missing src argument")]
[(null? (cdr args))
(error 'to-vfasl "missing dest argument")]
[else
(values (car args) (cadr args) (cddr args))])))
(vfasl-convert-file src dest deps)

1
racket/src/cs/compile-file.ss
View File

@ -32,6 +32,7 @@
(eval '(define (f x) (eval '(define (f x)
(fxvector-set! x 0 (op 0)))) (fxvector-set! x 0 (op 0))))
(eval '(f (fxvector 0)))))) (eval '(f (fxvector 0))))))
(check-defined 'vfasl-convert-file)
;; ---------------------------------------- ;; ----------------------------------------