scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update for sunos4 acc compiler

This commit is contained in:
bdc 1997-04-23 22:51:03 +00:00
parent 8764714a07
commit 0705774634
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cig/libcig.c
View File

@ -68,7 +68,7 @@ scheme_value df_c_veclen(long nargs, scheme_value *args)
scheme_value df_free(long nargs, scheme_value *args) scheme_value df_free(long nargs, scheme_value *args)
{ {
extern void free(void* );
cig_check_nargs(1, nargs, "free"); cig_check_nargs(1, nargs, "free");
free((void* )AlienVal(args[0])); free((void* )AlienVal(args[0]));

3
cig/libcig.scm
View File

@ -123,7 +123,8 @@
(mapv! string-carrier->string-no-free vec))) (mapv! string-carrier->string-no-free vec)))
(define-foreign C-free (free ((C void*) ptr)) ignore) (define-foreign C-free (free ((C void*) ptr)) no-declare ; for SunOS 4.x
ignore)
(define-foreign %set-string-vector-carriers! (define-foreign %set-string-vector-carriers!
(set_strvec_carriers (vector-desc svec) ((C char**) cvec)) (set_strvec_carriers (vector-desc svec) ((C char**) cvec))