Skip to content
Snippets Groups Projects
Commit 7116eb21 authored by rtoy's avatar rtoy
Browse files

Add LONG-LONG and UNSIGNED-LONG-LONG types to the C-CALL package.

These are the obvious 64-bit integer types.

From Luis Oliveira.
parent 48cf2ecd
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/c-call.lisp,v 1.16 2002/01/16 15:08:07 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/c-call.lisp,v 1.17 2005/11/13 19:27:22 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -17,8 +17,8 @@ ...@@ -17,8 +17,8 @@
(use-package "ALIEN-INTERNALS") (use-package "ALIEN-INTERNALS")
(use-package "SYSTEM") (use-package "SYSTEM")
(export '(char short int long unsigned-char unsigned-short unsigned-int (export '(char short int long long-long unsigned-char unsigned-short unsigned-int
unsigned-long float double c-string void)) unsigned-long unsigned-long-long float double c-string void))
;;;; Extra types. ;;;; Extra types.
...@@ -27,11 +27,13 @@ ...@@ -27,11 +27,13 @@
(def-alien-type short (integer 16)) (def-alien-type short (integer 16))
(def-alien-type int (integer 32)) (def-alien-type int (integer 32))
(def-alien-type long (integer #-alpha 32 #+alpha 64)) (def-alien-type long (integer #-alpha 32 #+alpha 64))
(def-alien-type long-long (integer 64))
(def-alien-type unsigned-char (unsigned 8)) (def-alien-type unsigned-char (unsigned 8))
(def-alien-type unsigned-short (unsigned 16)) (def-alien-type unsigned-short (unsigned 16))
(def-alien-type unsigned-int (unsigned 32)) (def-alien-type unsigned-int (unsigned 32))
(def-alien-type unsigned-long (unsigned #-alpha 32 #+alpha 64)) (def-alien-type unsigned-long (unsigned #-alpha 32 #+alpha 64))
(def-alien-type unsigned-long-long (unsigned 64))
(def-alien-type float single-float) (def-alien-type float single-float)
(def-alien-type double double-float) (def-alien-type double double-float)
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.248 2005/11/07 15:56:13 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.249 2005/11/13 19:27:22 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -172,6 +172,7 @@ ...@@ -172,6 +172,7 @@
(:import-from "COMMON-LISP" "CHAR" "FLOAT") (:import-from "COMMON-LISP" "CHAR" "FLOAT")
(:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT" (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT"
"UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT" "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
"LONG-LONG" "UNSIGNED-LONG-LONG"
"VOID")) "VOID"))
(defpackage "INSPECT" (defpackage "INSPECT"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment