Update AllegroCL for :long-long on 64-bit platforms

[uffi.git] / doc / ref_primitive.xml

diff --git a/doc/ref_primitive.xml b/doc/ref_primitive.xml
index 01b1c953b297b1312888f4f07c15385843d1af2e..79003698666d8ac462b6f70f4c4bd108ce2f3766 100644 (file)
--- a/doc/ref_primitive.xml
+++ b/doc/ref_primitive.xml
@@ -1,7 +1,7 @@
-<?xml version='1.0' ?>   <!-- -*- DocBook -*- -->
+<?xml version="1.0" encoding="utf-8"?>
 <!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.2//EN"
                "http://www.oasis-open.org/docbook/xml/4.2/docbookx.dtd" [
-<!ENTITY % myents SYSTEM "entities.xml">
+<!ENTITY % myents SYSTEM "entities.inc">
 %myents;
 ]>
 
@@ -50,10 +50,26 @@
        <para><constant>:unsigned-int</constant> - Unsigned 32-bits.</para>
       </listitem>
       <listitem>
-       <para><constant>:long</constant> - Signed 32 or 64 bits, depending upon the platform.</para>
+       <para><constant>:long</constant> - Signed 32 or 64 bit integer,
+       depending upon the platform.</para>
       </listitem>
       <listitem>
-       <para><constant>:unsigned-long</constant> - Unsigned 32 or 64 bits, depending upon the platform.</para>
+       <para><constant>:unsigned-long</constant> - Unsigned 32 or 64
+          bit integer, depending upon the platform.</para>
+      </listitem>
+      <listitem>
+       <para><constant>:long-long</constant> - Signed 64 bits integer
+          for implementations that support this.  If implementation
+          does not support
+          this, <constant>'uffi:no-long-long</constant> is pushed on
+          the <variable>cl:*features*</variable> list.</para>
+      </listitem>
+      <listitem>
+       <para><constant>:unsigned-long-long</constant> - Unsigned 64
+          bits integer for implementations that support this.  If
+          implementation does not support
+          this, <constant>'uffi:no-long-long</constant> is pushed on
+          the <variable>cl:*features*</variable> list.</para>
       </listitem>
       <listitem>
        <para><constant>:float</constant> - 32-bit floating point.</para>
@@ -126,10 +142,10 @@
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-constant pi2 (* 2 pi))
 (def-constant exported-pi2 (* 2 pi) :export t)
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>
@@ -185,11 +201,11 @@
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-foreign-type my-generic-pointer :pointer-void)
 (def-foreign-type a-double-float :double-float)
 (def-foreign-type char-ptr (* :char))
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>
@@ -253,14 +269,14 @@
     </refsect1>
     <refsect1>
       <title>Examples</title>
-      <programlisting>
+      <screen>
 (def-array-pointer ca :unsigned-char)
 (let ((fs (convert-to-foreign-string "ab")))
       (values (null-char-p (deref-array fs 'ca 0))
       (null-char-p (deref-array fs 'ca 2))))
 => &nil;
    &t;
-      </programlisting>
+      </screen>
     </refsect1>
     <refsect1>
       <title>Side Effects</title>