Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

small fixes and warning removals for build tests

Browse source
This commit is contained in:
Alex Shinn 2012-06-20 21:39:52 -07:00
parent 8518ebe641
commit 08e4fead8b
8 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Makefile.libs
View file

@ -4,7 +4,7 @@
# for usage. # for usage.
.PHONY: all all-libs clean clean-libs dist-clean dist-clean-libs install install-libs uninstall uninstall-libs doc doc-libs .PHONY: all all-libs clean clean-libs dist-clean dist-clean-libs install install-libs uninstall uninstall-libs doc doc-libs
.PRECIOUS: %.c .PRECIOUS: %.c lib/%.c
# install configuration # install configuration

4
eval.c
View file

@ -4,6 +4,10 @@
#include "chibi/eval.h" #include "chibi/eval.h"
#if SEXP_USE_DEBUG_VM || SEXP_USE_PROFILE_VM || SEXP_USE_STATIC_LIBS
#include "opt/opcode_names.h"
#endif
/************************************************************************/ /************************************************************************/
static int scheme_initialized_p = 0; static int scheme_initialized_p = 0;

2
include/chibi/sexp.h
View file

@ -25,10 +25,8 @@ extern "C" {
#if SEXP_USE_DL #if SEXP_USE_DL
#include <dlfcn.h> #include <dlfcn.h>
#endif #endif
#if SEXP_USE_GREEN_THREADS || SEXP_USE_GC_FILE_DESCRIPTORS
#include <errno.h> #include <errno.h>
#include <unistd.h> #include <unistd.h>
#endif
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
#include <sys/time.h> #include <sys/time.h>
#include <fcntl.h> #include <fcntl.h>

2
lib/chibi/disasm.c
View file

@ -3,7 +3,9 @@
/* BSD-style license: http://synthcode.com/license.txt */ /* BSD-style license: http://synthcode.com/license.txt */
#include "chibi/eval.h" #include "chibi/eval.h"
#if ! SEXP_USE_STATIC_LIBS
#include "../../opt/opcode_names.h" #include "../../opt/opcode_names.h"
#endif
#define SEXP_DISASM_MAX_DEPTH 16 #define SEXP_DISASM_MAX_DEPTH 16
#define SEXP_DISASM_PAD_WIDTH 4 #define SEXP_DISASM_PAD_WIDTH 4

7
opt/bignum.c
View file

@ -1,5 +1,5 @@
/* bignum.c -- bignum support */ /* bignum.c -- bignum support */
/* Copyright (c) 2009-2011 Alex Shinn. All rights reserved. */ /* Copyright (c) 2009-2012 Alex Shinn. All rights reserved. */
/* BSD-style license: http://synthcode.com/license.txt */ /* BSD-style license: http://synthcode.com/license.txt */
#define SEXP_INIT_BIGNUM_SIZE 2 #define SEXP_INIT_BIGNUM_SIZE 2
@ -999,7 +999,10 @@ sexp sexp_add (sexp ctx, sexp a, sexp b) {
} }
sexp sexp_sub (sexp ctx, sexp a, sexp b) { sexp sexp_sub (sexp ctx, sexp a, sexp b) {
int at=sexp_number_type(a), bt=sexp_number_type(b), negatep=0; #if SEXP_USE_FLONUMS
int negatep=0;
#endif
int at=sexp_number_type(a), bt=sexp_number_type(b);
sexp r=SEXP_VOID; sexp r=SEXP_VOID;
sexp_gc_var2(tmp1, tmp2); sexp_gc_var2(tmp1, tmp2);
sexp_gc_preserve2(ctx, tmp1, tmp2); sexp_gc_preserve2(ctx, tmp1, tmp2);

2
tests/build/build-opts.txt
View file

@ -17,7 +17,7 @@ CPPFLAGS=-DSEXP_USE_MATH=0
CPPFLAGS=-DSEXP_WARN_UNDEFS=0 CPPFLAGS=-DSEXP_WARN_UNDEFS=0
CPPFLAGS=-DSEXP_USE_HUFF_SYMS=0 CPPFLAGS=-DSEXP_USE_HUFF_SYMS=0
CPPFLAGS=-DSEXP_USE_HASH_SYMS=0 CPPFLAGS=-DSEXP_USE_HASH_SYMS=0
CPPFLAGS=-DSEXP_USE_STRING_STREAMS=0 CPPFLAGS=-DSEXP_USE_STRING_STREAMS=1
CPPFLAGS=-DSEXP_USE_AUTOCLOSE_PORTS=0 CPPFLAGS=-DSEXP_USE_AUTOCLOSE_PORTS=0
CPPFLAGS=-DSEXP_USE_2010_EPOCH=0 CPPFLAGS=-DSEXP_USE_2010_EPOCH=0
CPPFLAGS=-DSEXP_USE_CHECK_STACK=0 CPPFLAGS=-DSEXP_USE_CHECK_STACK=0

2
tests/build/build-tests.sh
View file

@ -22,7 +22,7 @@ for opts in $(cat ${BUILDDIR}/build-opts.txt); do
staticopts=$(echo ${staticopts} | tr ';' ' ') staticopts=$(echo ${staticopts} | tr ';' ' ')
$MAKE cleaner 2>&1 >/dev/null $MAKE cleaner 2>&1 >/dev/null
rm -f clibs.c rm -f clibs.c
$MAKE $staticopts chibi-scheme 2>&1 >${BUILDDIR}/build${i}-bootstrap.out $MAKE $staticopts 2>&1 >${BUILDDIR}/build${i}-bootstrap.out
$MAKE $staticopts clibs.c 2>&1 >${BUILDDIR}/build${i}-clibs.out $MAKE $staticopts clibs.c 2>&1 >${BUILDDIR}/build${i}-clibs.out
fi fi
# Try to build then run tests. # Try to build then run tests.

4
vm.c
View file

@ -796,10 +796,6 @@ static int sexp_check_type(sexp ctx, sexp a, sexp b) {
top -= i; _ARG1 = x; ip += sizeof(sexp); sexp_check_exception(); top -= i; _ARG1 = x; ip += sizeof(sexp); sexp_check_exception();
#endif #endif
#if SEXP_USE_DEBUG_VM || SEXP_USE_PROFILE_VM
#include "opt/opcode_names.h"
#endif
#if SEXP_USE_EXTENDED_FCALL #if SEXP_USE_EXTENDED_FCALL
#include "opt/fcall.c" #include "opt/fcall.c"
#endif #endif