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

Fixed generic-* to work given the new pseudo-atomic.

parent e3f550fe
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/assembly/sparc/arith.lisp,v 1.9 1992/03/11 21:37:45 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.10 1992/04/28 04:23:47 wlott Exp $
;;; ;;;
;;; Stuff to handle simple cases for generic arithmetic. ;;; Stuff to handle simple cases for generic arithmetic.
;;; ;;;
...@@ -166,12 +166,10 @@ ...@@ -166,12 +166,10 @@
(inst or lo temp) (inst or lo temp)
(inst sra hi 2) (inst sra hi 2)
;; Allocate a BIGNUM for the result. ;; Allocate a BIGNUM for the result.
(pseudo-atomic (temp) (pseudo-atomic (:extra (pad-data-block (1+ bignum-digits-offset)))
(let ((one-word (gen-label))) (let ((one-word (gen-label)))
(inst add res alloc-tn other-pointer-type) (inst or res alloc-tn other-pointer-type)
;; Assume we need one word. ;; We start out assuming that we need one word. Is that correct?
(inst add alloc-tn (pad-data-block (1+ bignum-digits-offset)))
;; Is that correct?
(inst sra temp lo 31) (inst sra temp lo 31)
(inst xorcc temp hi) (inst xorcc temp hi)
(inst b :eq one-word) (inst b :eq one-word)
......
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