From a2a1b023c180d272c659a769117628601fe41e69 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 May 2007 03:26:32 +0000 Subject: [PATCH] 370.2 svn: r6369 original commit: e9385a910eac5c2f84dccbe6d66fed0741200785 --- collects/mzlib/foreign.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index e86d77d..2394179 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -56,14 +56,15 @@ ...))]))))]))))) (provide* ctype-sizeof ctype-alignof compiler-sizeof - malloc free end-stubborn-change + (unsafe malloc) (unsafe free) end-stubborn-change cpointer? ptr-equal? ptr-add (unsafe ptr-ref) (unsafe ptr-set!) ctype? make-ctype make-cstruct-type make-sized-byte-string _void _int8 _uint8 _int16 _uint16 _int32 _uint32 _int64 _uint64 _fixint _ufixint _fixnum _ufixnum _float _double _double* _bool _pointer _scheme _fpointer - (unsafe memcpy) (unsafe memmove) (unsafe memset)) + (unsafe memcpy) (unsafe memmove) (unsafe memset) + (unsafe malloc-immobile-cell) (unsafe free-immobile-cell)) (define-syntax define* (syntax-rules ()