7768b09118
Avoid allocating a flonum object for floating-opint calculations that are consumed only by other floating-point caculations. For this first cut, unboxing applies only to fl+, fl-, fl*, fl/, flabs, fl<, fl<=, fl=, fl>, fl>=, bytevector-ieee-double-[native-]ref, and bytevector-ieee-double-[native-]set!. Local variables can be unboxed in the same way as implicit temporaries, and loop arguments can be unboxed, but values in a closure and function-call arguments are always boxed. arm32 support is mostly in place, but not yet right. ppc32 support is not yet implemented. This commit includes a small change that is incompatible with previous Chez Scheme versions: `(fl= +nan.0)` (and similar for other comparisons) produces true instead of false. original commit: 36459e43f10705aa3e383376ca7d54cf2998b7ee
29 lines
1.0 KiB
Plaintext
29 lines
1.0 KiB
Plaintext
# Mf-boot.in
|
|
# Copyright 1984-2017 Cisco Systems, Inc.
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License");
|
|
# you may not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
|
|
bootfiles=$(addsuffix .boot, $(shell cd ../boot ; echo *))
|
|
|
|
doit: $(bootfiles)
|
|
|
|
%.boot:
|
|
( cd .. ; ./workarea $* xc-$* )
|
|
( cd ../xc-$*/s ; make -f Mf-cross base=../../$(workarea) --jobs=2 m=$(m) xm=$* )
|
|
for x in `echo scheme.boot petite.boot scheme.h equates.h gc-oce.inc gc-ocd.inc vfasl.inc` ; do\
|
|
if [ ! -h ../xc-$*/boot/$*/$$x ] ; then \
|
|
mv -f ../xc-$*/boot/$*/$$x ../boot/$*/$$x ;\
|
|
fi ;\
|
|
done
|
|
rm -rf ../xc-$*
|