projects
/
uffi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
03f5663
)
Update AllegroCL for :long-long on 64-bit platforms
master
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 18 Jun 2017 02:31:55 +0000
(20:31 -0600)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 18 Jun 2017 02:31:55 +0000
(20:31 -0600)
src/primitives.lisp
patch
|
blob
|
history
diff --git
a/src/primitives.lisp
b/src/primitives.lisp
index a43eb8dd24e4c2ff1b615475be0cdd900113cfae..14763f732227e650dca9bac9cc898417172c6056 100644
(file)
--- a/
src/primitives.lisp
+++ b/
src/primitives.lisp
@@
-185,10
+185,15
@@
supports takes advantage of this optimization."
(:unsigned-char . :unsigned-char)
(:int . :int) (:unsigned-int . :unsigned-int)
(:long . :long) (:unsigned-long . :unsigned-long)
+#+64bit (:unsigned-long-long . :unsigned-long)
+#+64bit (:long-long . :unsigned-long)
(:float . :float) (:double . :double)
(:array . :array)))
-#+(or allegro cormanlisp)
+#+(and allegro (not 64bit))
+(push 'uffi:no-long-long cl:*features*)
+
+#+cormanlisp
(push 'uffi:no-long-long cl:*features*)
#+lispworks