Use correct specifier for size_t

sionescu · Jun 16, 2021 · 4eac959 · 4eac959
1 parent 83c531f
commit 4eac959
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 10 deletions.
diff --git a/src/impl-abcl.lisp b/src/impl-abcl.lisp
@@ -12,13 +12,13 @@ abcl-1.7.0.")
 
 (declaim (inline fill-foreign-memory))
 (defun fill-foreign-memory (pointer length value)
-  (foreign-funcall "memset" :pointer pointer :int value size-t length :pointer)
+  (foreign-funcall "memset" :pointer pointer :int value :size length :pointer)
   pointer)
 
 (declaim (inline replace-foreign-memory))
 (defun replace-foreign-memory (dst-ptr src-ptr length)
   "Copy LENGTH octets from foreign memory area SRC-PTR to DST-PTR."
-  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr size-t length :pointer)
+  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr :size length :pointer)
   dst-ptr)
 
 ;;; HACK for now

diff --git a/src/impl-allegro.lisp b/src/impl-allegro.lisp
@@ -8,13 +8,13 @@
 (declaim (inline fill-foreign-memory))
 (defun fill-foreign-memory (pointer length value)
   "Fill LENGTH octets in foreign memory area POINTER with VALUE."
-  (foreign-funcall "memset" :pointer pointer :int value size-t length :pointer)
+  (foreign-funcall "memset" :pointer pointer :int value :size length :pointer)
   pointer)
 
 (declaim (inline replace-foreign-memory))
 (defun replace-foreign-memory (dst-ptr src-ptr length)
   "Copy LENGTH octets from foreign memory area SRC-PTR to DST-PTR."
-  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr size-t length :pointer)
+  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr :size length :pointer)
   dst-ptr)
 
 (declaim (inline %allocate-static-vector))

diff --git a/src/impl-cmucl.lisp b/src/impl-cmucl.lisp
@@ -8,13 +8,13 @@
 (declaim (inline fill-foreign-memory))
 (defun fill-foreign-memory (pointer length value)
   "Fill LENGTH octets in foreign memory area POINTER with VALUE."
-  (foreign-funcall "memset" :pointer pointer :int value size-t length :pointer)
+  (foreign-funcall "memset" :pointer pointer :int value :size length :pointer)
   pointer)
 
 (declaim (inline replace-foreign-memory))
 (defun replace-foreign-memory (dst-ptr src-ptr length)
   "Copy LENGTH octets from foreign memory area SRC-PTR to DST-PTR."
-  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr size-t length :pointer)
+  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr :size length :pointer)
   dst-ptr)
 
 (declaim (inline %allocate-static-vector))

diff --git a/src/impl-ecl.lisp b/src/impl-ecl.lisp
@@ -8,13 +8,13 @@
 (declaim (inline fill-foreign-memory))
 (defun fill-foreign-memory (pointer length value)
   "Fill LENGTH octets in foreign memory area POINTER with VALUE."
-  (foreign-funcall "memset" :pointer pointer :int value size-t length :pointer)
+  (foreign-funcall "memset" :pointer pointer :int value :size length :pointer)
   pointer)
 
 (declaim (inline replace-foreign-memory))
 (defun replace-foreign-memory (dst-ptr src-ptr length)
   "Copy LENGTH octets from foreign memory area SRC-PTR to DST-PTR."
-  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr size-t length :pointer)
+  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr :size length :pointer)
   dst-ptr)
 
 (declaim (inline %allocate-static-vector))

diff --git a/src/impl-sbcl.lisp b/src/impl-sbcl.lisp
@@ -8,13 +8,13 @@
 (declaim (inline fill-foreign-memory))
 (defun fill-foreign-memory (pointer length value)
   "Fill LENGTH octets in foreign memory area POINTER with VALUE."
-  (foreign-funcall "memset" :pointer pointer :int value size-t length :pointer)
+  (foreign-funcall "memset" :pointer pointer :int value :size length :pointer)
   pointer)
 
 (declaim (inline replace-foreign-memory))
 (defun replace-foreign-memory (dst-ptr src-ptr length)
   "Copy LENGTH octets from foreign memory area SRC-PTR to DST-PTR."
-  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr size-t length :pointer)
+  (foreign-funcall "memcpy" :pointer dst-ptr :pointer src-ptr :size length :pointer)
   dst-ptr)
 
 (defconstant +array-header-size+