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

Gauche bugifxes

This commit is contained in:
retropikzel 2025-10-10 12:53:23 +03:00
parent 3d0563ddfb
commit 24a3700bd2
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Makefile
View File

@ -1,7 +1,7 @@
.PHONY: package test libtest.o tests/libtest.so libtest.a documentation README.html .PHONY: package test libtest.o tests/libtest.so libtest.a documentation README.html
SCHEME=chibi SCHEME=chibi
DOCKERIMG=${SCHEME}:head DOCKERIMG=${SCHEME}:head
VERSION=0.10.7 VERSION=0.10.8
CC=gcc CC=gcc
PKG=foreign-c-${VERSION}.tgz PKG=foreign-c-${VERSION}.tgz
@ -28,9 +28,9 @@ install:
snow-chibi --impls=${SCHEME} ${SNOW_CHIBI_ARGS} 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 $(shell gauche-config --sitelibdir)/foreign/c/primitives/;\ sudo cp foreign/c/primitives/gauche.scm $(shell gauche-config --sitelibdir)/foreign/c/primitives/;\
mkdir -p $(shell gauche-config --sitearchdir)/foreign/c/lib/; \ sudo mkdir -p $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
cp -r foreign/c/lib/gauche.so $(shell gauche-config --sitearchdir)/foreign/c/lib/; \ sudo cp -r foreign/c/lib/gauche.so $(shell gauche-config --sitearchdir)/foreign/c/lib/; \
fi fi
uninstall: uninstall:

2
foreign/c/primitives/gauche/gauchelib.scm
View File

@ -56,7 +56,7 @@
;(define-cproc pointer-free (pointer) pointer_free) ;(define-cproc pointer-free (pointer) pointer_free)
;(define-cproc pointer-set-int8! (pointer offset::<int> value::<int8>) pointer_set_int8) ;(define-cproc pointer-set-int8! (pointer offset::<int> value::<int8>) pointer_set_int8)
(define-cproc pointer-set-uint8! (pointer offset::<int> value::<int8>) pointer_set_uint8) (define-cproc pointer-set-uint8! (pointer offset::<int> value::<uint8>) pointer_set_uint8)
;(define-cproc pointer-set-int16! (pointer offset::<int> value::<int16>) pointer_set_int16) ;(define-cproc pointer-set-int16! (pointer offset::<int> value::<int16>) pointer_set_int16)
;(define-cproc pointer-set-uint16! (pointer offset::<int> value::<int16>) pointer_set_uint16) ;(define-cproc pointer-set-uint16! (pointer offset::<int> value::<int16>) pointer_set_uint16)
;(define-cproc pointer-set-int32! (pointer offset::<int> value::<int32>) pointer_set_int32) ;(define-cproc pointer-set-int32! (pointer offset::<int> value::<int32>) pointer_set_int32)