|
Lines 165-173
Link Here
|
| 165 |
(and e (foreign-value e)))) |
165 |
(and e (foreign-value e)))) |
| 166 |
|
166 |
|
| 167 |
;; extern int new_galois_format; |
167 |
;; extern int new_galois_format; |
| 168 |
(def-c-var new_galois_format (:type (c-ptr int))) |
168 |
(def-c-var new_galois_format (:type int)) |
| 169 |
;; extern int factor_add_primes; |
169 |
;; extern int factor_add_primes; |
| 170 |
(def-c-var factor_add_primes (:type (c-ptr int))) |
170 |
(def-c-var factor_add_primes (:type int)) |
| 171 |
|
171 |
|
| 172 |
;; extern ulong DEBUGFILES, DEBUGLEVEL, DEBUGMEM |
172 |
;; extern ulong DEBUGFILES, DEBUGLEVEL, DEBUGMEM |
| 173 |
(def-c-var debugfiles (:name "DEBUGFILES") (:type ulong)) |
173 |
(def-c-var debugfiles (:name "DEBUGFILES") (:type ulong)) |
