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

Added :init :arg options to the numerator and denominator slots of ratios

and the real and imag slots of complex numbers.
parent 6906233e
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/compiler/mips/cell.lisp,v 1.20 1990/03/07 18:40:36 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.21 1990/03/08 11:11:26 wlott Exp $
;;; ;;;
;;; This file contains the VM definition of various primitive memory access ;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the MIPS. ;;; VOPs for the MIPS.
...@@ -240,8 +240,8 @@ ...@@ -240,8 +240,8 @@
(defslots (ratio :lowtag other-pointer-type :header ratio-type (defslots (ratio :lowtag other-pointer-type :header ratio-type
:alloc-vop make-ratio) :alloc-vop make-ratio)
(numerator :ref-vop numerator) (numerator :ref-vop numerator :init :arg)
(denominator :ref-vop denominator)) (denominator :ref-vop denominator :init :arg))
(defslots (single-float :lowtag other-pointer-type :header single-float-type) (defslots (single-float :lowtag other-pointer-type :header single-float-type)
(value :c-type "float")) (value :c-type "float"))
...@@ -251,8 +251,8 @@ ...@@ -251,8 +251,8 @@
(defslots (complex :lowtag other-pointer-type :header complex-type (defslots (complex :lowtag other-pointer-type :header complex-type
:alloc-vop make-complex) :alloc-vop make-complex)
(real :ref-vop realpart) (real :ref-vop realpart :init :arg)
(imag :ref-vop imagpart)) (imag :ref-vop imagpart :init :arg))
(defslots (array :lowtag other-pointer-type :header t) (defslots (array :lowtag other-pointer-type :header t)
fill-pointer fill-pointer
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment