* removed bin directory.
This commit is contained in:
parent
d59c2b304b
commit
e84bd5a421
64
bin/Makefile
64
bin/Makefile
|
@ -1,64 +0,0 @@
|
||||||
|
|
||||||
CFLAGS = -I/opt/local/include -Wall -DNDEBUG -O3
|
|
||||||
#CFLAGS = -I/opt/local/include -Wall -g
|
|
||||||
LDFLAGS = -L/opt/local/lib -g -ldl -lgmp -lm
|
|
||||||
CC = gcc
|
|
||||||
|
|
||||||
ifeq ("$(shell uname)", "Linux")
|
|
||||||
LDFLAGS += -rdynamic # dlsym(local_symbol) won't work otherwise
|
|
||||||
endif
|
|
||||||
|
|
||||||
objects = ikarus-collect.o ikarus-runtime.o ikarus-main.o ikarus-fasl.o \
|
|
||||||
ikarus-exec.o ikarus-print.o ikarus-enter.o ikarus-symbol-table.o \
|
|
||||||
ikarus-weak-pairs.o ikarus-numerics.o ikarus-flonums.o \
|
|
||||||
ikarus-verify-integrity.o ikarus-winmmap.o
|
|
||||||
|
|
||||||
all: ikarus
|
|
||||||
|
|
||||||
ikarus: $(objects)
|
|
||||||
$(CC) -o ikarus $(objects) $(LDFLAGS)
|
|
||||||
|
|
||||||
ikarus-main.o: ikarus-main.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-main.c
|
|
||||||
|
|
||||||
ikarus-enter.o: ikarus-enter.s ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-enter.s
|
|
||||||
|
|
||||||
ikarus-runtime.o: ikarus-runtime.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-runtime.c
|
|
||||||
|
|
||||||
ikarus-fasl.o: ikarus-fasl.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-fasl.c
|
|
||||||
|
|
||||||
ikarus-verify-integrity.o: ikarus-verify-integrity.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-verify-integrity.c
|
|
||||||
|
|
||||||
ikarus-exec.o: ikarus-exec.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-exec.c
|
|
||||||
|
|
||||||
ikarus-print.o: ikarus-print.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-print.c
|
|
||||||
|
|
||||||
ikarus-collect.o: ikarus-collect.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-collect.c
|
|
||||||
|
|
||||||
ikarus-weak-pairs.o: ikarus-weak-pairs.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-weak-pairs.c
|
|
||||||
|
|
||||||
ikarus-symbol-table.o: ikarus-symbol-table.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-symbol-table.c
|
|
||||||
|
|
||||||
ikarus-numerics.o: ikarus-numerics.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-numerics.c
|
|
||||||
|
|
||||||
ikarus-flonums.o: ikarus-flonums.c ikarus-data.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-flonums.c
|
|
||||||
|
|
||||||
ikarus-winmmap.o: ikarus-winmmap.c ikarus-winmmap.h
|
|
||||||
$(CC) $(CFLAGS) -c ikarus-winmmap.c
|
|
||||||
|
|
||||||
clean:
|
|
||||||
rm -f $(objects)
|
|
||||||
|
|
||||||
realclean:
|
|
||||||
rm -f $(objects) ikarus
|
|
|
@ -1,5 +0,0 @@
|
||||||
|
|
||||||
(define (f)
|
|
||||||
(collect)
|
|
||||||
(f))
|
|
||||||
(f)
|
|
|
@ -1,56 +0,0 @@
|
||||||
|
|
||||||
(define collect void)
|
|
||||||
|
|
||||||
(define test
|
|
||||||
(lambda (name x1 x2)
|
|
||||||
(unless (equal? x1 x2)
|
|
||||||
(error 'test "test ~s failed: expected ~s, got ~s" name x1 x2))
|
|
||||||
(printf "~a ok\n" name)))
|
|
||||||
|
|
||||||
(test 1
|
|
||||||
'(12 17 yes)
|
|
||||||
(let ([h (make-hash-table)])
|
|
||||||
(put-hash-table! h 'foo 12)
|
|
||||||
(put-hash-table! h 'bar 17)
|
|
||||||
(collect)
|
|
||||||
(list
|
|
||||||
(get-hash-table h 'foo 'no)
|
|
||||||
(get-hash-table h 'bar 'no)
|
|
||||||
(get-hash-table h 'baz 'yes))))
|
|
||||||
|
|
||||||
|
|
||||||
(define iota
|
|
||||||
(lambda (i n)
|
|
||||||
(cond
|
|
||||||
[(fx= i n) '()]
|
|
||||||
[else (cons i (iota (fx+ 1 i) n))])))
|
|
||||||
|
|
||||||
(test 2
|
|
||||||
(iota 1 10001)
|
|
||||||
(let ([h (make-hash-table)])
|
|
||||||
(for-each
|
|
||||||
(lambda (i) (put-hash-table! h i (fx+ 1 i)))
|
|
||||||
(iota 0 10000))
|
|
||||||
(collect)
|
|
||||||
(map
|
|
||||||
(lambda (i) (get-hash-table h i #f))
|
|
||||||
(iota 0 10000))))
|
|
||||||
|
|
||||||
(test 3
|
|
||||||
(iota 2 10002)
|
|
||||||
(let ([h (make-hash-table)])
|
|
||||||
(for-each
|
|
||||||
(lambda (i) (put-hash-table! h i (fx+ 1 i)))
|
|
||||||
(iota 0 10000))
|
|
||||||
(for-each
|
|
||||||
(lambda (i) (put-hash-table! h i
|
|
||||||
(fx+ 1
|
|
||||||
(get-hash-table h i -1000))))
|
|
||||||
(iota 0 10000))
|
|
||||||
(collect)
|
|
||||||
(map
|
|
||||||
(lambda (i) (get-hash-table h i #f))
|
|
||||||
(iota 0 10000))))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
BIN
bin/ikarus
BIN
bin/ikarus
Binary file not shown.
Loading…
Reference in New Issue