;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: memory.lisp,v 1.5 2007-09-07 07:28:42 espen Exp $
+;; $Id: memory.lisp,v 1.7 2007-12-11 12:01:34 espen Exp $
(in-package "GFFI")
(inline ref-native-uint-16))
(defun ref-native-uint-16 (location &optional (offset 0))
#+(or cmu sbcl)(sap-ref-16 location offset)
- #+clisp(ffi:memory-as location 'ffi:int16 offset))
+ #+clisp(ffi:memory-as location 'ffi:uint16 offset))
(declaim
(ftype
(defun (setf ref-native-uint-16) (value location &optional (offset 0))
(setf
#+(or cmu sbcl)(sap-ref-16 location offset)
- #+clisp(ffi:memory-as location 'ffi:int16 offset)
+ #+clisp(ffi:memory-as location 'ffi:uint16 offset)
value))
#-(or cmu sbcl)
(loop
for offset below length
- do (setf (ref-uint-88 to offset) (ref-uint-8 from offset)))
+ do (setf (ref-uint-8 to offset) (ref-uint-8 from offset)))
to)
(defun clear-memory (from length &optional (offset 0))