update for sunos4 acc compiler
This commit is contained in:
parent
8764714a07
commit
0705774634
|
@ -68,7 +68,7 @@ scheme_value df_c_veclen(long nargs, scheme_value *args)
|
|||
|
||||
scheme_value df_free(long nargs, scheme_value *args)
|
||||
{
|
||||
extern void free(void* );
|
||||
|
||||
|
||||
cig_check_nargs(1, nargs, "free");
|
||||
free((void* )AlienVal(args[0]));
|
||||
|
|
|
@ -123,7 +123,8 @@
|
|||
(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!
|
||||
(set_strvec_carriers (vector-desc svec) ((C char**) cvec))
|
||||
|
|
Loading…
Reference in New Issue