Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

STklos fixes

This commit is contained in:
retropikzel 2025-09-13 11:07:25 +03:00
parent d95428691e
commit 93f37ed461
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Makefile
View File

@ -1,7 +1,7 @@
.PHONY: libtest.o tests/libtest.so libtest.a documentation README.html foreign-c.pdf .PHONY: libtest.o tests/libtest.so libtest.a documentation README.html foreign-c.pdf
PDFENGINE=weasyprint PDFENGINE=weasyprint
CC=gcc CC=gcc
VERSION=0.10.5 VERSION=0.10.6
TEST=primitives TEST=primitives
SCHEME=chibi SCHEME=chibi
TMPDIR=tmp/${SCHEME} TMPDIR=tmp/${SCHEME}
@ -28,7 +28,7 @@ package: README.html
foreign/c.sld foreign/c.sld
install: package install: package
snow-chibi --impls=${SCHEME} install foreign-c-${VERSION}.tgz; \ snow-chibi --impls=${SCHEME} ${SNOW_CHIBI_ARGS} install foreign-c-${VERSION}.tgz; \
if [ "${SCHEME}" = "gauche" ]; then \ if [ "${SCHEME}" = "gauche" ]; then \
make gauche; \ make gauche; \
cp foreign/c/primitives/gauche.scm ${GAUCHE_LIB_DIR}/foreign/c/primitives/;\ cp foreign/c/primitives/gauche.scm ${GAUCHE_LIB_DIR}/foreign/c/primitives/;\
@ -52,7 +52,7 @@ test: ${TMPDIR}/test/libtest.o ${TMPDIR}/test/libtest.so ${TMPDIR}/test/libtest.
test-docker: test-docker:
docker build --build-arg IMAGE=${DOCKERIMG} --build-arg SCHEME=${SCHEME} --tag=foreign-c-test-${SCHEME} -f dockerfiles/Dockerfile.test . docker build --build-arg IMAGE=${DOCKERIMG} --build-arg SCHEME=${SCHEME} --tag=foreign-c-test-${SCHEME} -f dockerfiles/Dockerfile.test .
docker run -it -v "${PWD}:/workdir" -w /workdir -t foreign-c-test-${SCHEME} sh -c "make SCHEME=${SCHEME} TEST=${TEST} install test" docker run -it -v "${PWD}:/workdir" -w /workdir -t foreign-c-test-${SCHEME} sh -c "make SCHEME=${SCHEME} TEST=${TEST} SNOW_CHIBI_ARGS=--always-yes install test"
${TMPDIR}/test/libtest.o: tests/c-src/libtest.c ${TMPDIR}/test/libtest.o: tests/c-src/libtest.c
mkdir -p ${TMPDIR}/test mkdir -p ${TMPDIR}/test

2
foreign/c/pointer.scm
View File

@ -117,7 +117,7 @@
(lambda (c-bytevector) (lambda (c-bytevector)
(c-memset-pointer->address c-bytevector 0 0))) (c-memset-pointer->address c-bytevector 0 0)))
#;(define address->c-bytevector (define address->c-bytevector
(lambda (address) (lambda (address)
(c-memset-address->pointer address 0 0))) (c-memset-address->pointer address 0 0)))