r1538: *** empty log message ***

[uffi.git] / src / immediates.cl

diff --git a/src/immediates.cl b/src/immediates.cl
index ae1013cf412a90ae758bf9d02485ecf9f983648e..4dcfec6de6d4ecf84c15d222bee22c50712b36fc 100644 (file)
--- a/src/immediates.cl
+++ b/src/immediates.cl
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: immediates.cl,v 1.3 2002/03/10 11:13:07 kevin Exp $
+;;;; $Id: immediates.cl,v 1.4 2002/03/10 17:42:35 kevin Exp $
 ;;;;
 ;;;; This file is part of the UFFI. 
 ;;;;
@@ -74,6 +74,7 @@ supports this."
 (defconstant +cmu-def-type-list+
     '((:char . (alien:signed 8))
       (:unsigned-char . (alien:unsigned 8))
+      (:byte . (alien:unsigned 8))
       (:short . (alien:signed 16))
       (:unsigned-short . (alien:unsigned 16))
       (:int . (alien:signed 32))
@@ -90,7 +91,9 @@ supports this."
       (:short . c-call:short)
       (:pointer-void . (* t))
       (:cstring . c-call:cstring)
-      (:char . c-call:char) (:unsigned-char . (alien:unsigned 8))
+      (:char . c-call:char) 
+      (:unsigned-char . (alien:unsigned 8))
+      (:byte . (alien:unsigned 8))
       (:int . alien:integer) (:unsigned-int . c-call:unsigned-int) 
       (:long . c-call:long) (:unsigned-long . c-call:unsigned-long)
       (:float . c-call:float) (:double . c-call:double)
@@ -101,7 +104,9 @@ supports this."
       (:short . :short)
       (:pointer-void . (* :void))
       (:cstring . (* :char))
-      (:char . :char) (:unsigned-char . :unsigned-char)
+      (:char . :char)
+      (:unsigned-char . :unsigned-char)
+      (:byte . :byte)
       (:int . :int) (:unsigned-int . :unsigned-int) 
       (:long . :long) (:unsigned-long . :unsigned-long)
       (:float . :float) (:double . :double)
@@ -112,7 +117,8 @@ supports this."
       (:short . :short)
       (:pointer-void . (:pointer :void))
       (:cstring . (:pointer :char))
-      (:char . :char) (:unsigned-char . (:unsigned :char))
+      (:char . :char) 
+      (:unsigned-char . (:unsigned :char))
       (:int . :int) (:unsigned-int . (:unsigned :int))
       (:long . :long) (:unsigned-long . (:unsigned :long))
       (:float . :float) (:double . :double)