24 lines
807 B
Diff
24 lines
807 B
Diff
--- modules/pari/pari.lisp.orig 2024-09-01 08:33:43.000000000 -0600
|
|
+++ modules/pari/pari.lisp 2024-10-01 14:05:23.052630082 -0600
|
|
@@ -137,8 +137,8 @@
|
|
|
|
(exporting:defun next-entree (e) (foreign-value (entree-next e)))
|
|
|
|
-;; typedef unsigned char *byteptr;
|
|
-(def-c-type byteptr (c-ptr uchar))
|
|
+;; typedef unsigned int pari_prime;
|
|
+(def-c-type pari_prime uint)
|
|
|
|
;; typedef ulong pari_sp;
|
|
(def-c-type pari_sp ulong)
|
|
@@ -200,8 +200,8 @@ t.e., this is the memory size for the re
|
|
;; extern GEN primetab;
|
|
(def-c-var primetab (:type pari-gen) (:read-only t))
|
|
|
|
-;; extern byteptr diffptr;
|
|
-(def-c-var diffptr (:type byteptr) (:read-only t))
|
|
+;; extern pari_prime *pari_PRIMES;
|
|
+(def-c-var pari_PRIMES (:type (c-pointer pari_prime)) (:read-only t))
|
|
|
|
(def-c-const MAXVARN)
|
|
;; extern entree **varentries;
|