Skip to content
Snippets Groups Projects
Commit ce420d39 authored by wlott's avatar wlott
Browse files

Export the bignum primitives from the bignum package and have the VM

package use it.
parent a7688b42
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.61 1990/12/01 22:24:02 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.62 1990/12/03 20:00:02 wlott Exp $
;;; ;;;
;;; All the stuff necessary to export various symbols from various packages. ;;; All the stuff necessary to export various symbols from various packages.
;;; ;;;
...@@ -425,12 +425,13 @@ ...@@ -425,12 +425,13 @@
(use-package "KERNEL") (use-package "KERNEL")
(use-package "EXT") (use-package "EXT")
(use-package "C") (use-package "C")
(use-package "BIGNUM")
(export '(*assembly-unit-length* *primitive-objects* array-data-slot (export '(*assembly-unit-length* *primitive-objects* array-data-slot
array-dimensions-offset array-displaced-p-slot array-dimensions-offset array-displaced-p-slot
array-displacement-slot array-elements-slot array-displacement-slot array-elements-slot
array-fill-pointer-slot atomic-flag base-character-type array-fill-pointer-slot atomic-flag base-character-type
bignum-digits-offset bignum-type binding-size binding-symbol-slot binding-size binding-symbol-slot
binding-value-slot byte-bits catch-block-current-code-slot binding-value-slot byte-bits catch-block-current-code-slot
catch-block-current-cont-slot catch-block-current-uwp-slot catch-block-current-cont-slot catch-block-current-uwp-slot
catch-block-entry-pc-slot catch-block-previous-catch-slot catch-block-entry-pc-slot catch-block-previous-catch-slot
...@@ -716,6 +717,14 @@ ...@@ -716,6 +717,14 @@
bignum-truncate bignum-plus-p bignum-compare make-small-bignum bignum-truncate bignum-plus-p bignum-compare make-small-bignum
bignum-logcount bignum-index bignum-type bignum-element-type)) bignum-logcount bignum-index bignum-type bignum-element-type))
(export '(bignum-type bignum-element-type bignum-index %allocate-bignum
%bignum-length %bignum-set-length %bignum-ref %bignum-set
%digit-0-or-plusp %add-with-carry %subtract-with-borrow
%multiply-and-add %multiply %lognot %logand %logior %logxor
%fixnum-to-digit %floor %fixnum-digit-with-correct-sign %ashl
%ashr %digit-logical-shift-right))
(in-package "DEBUG") (in-package "DEBUG")
......
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