1.0.1.10:
[sbcl.git] / src / assembly / x86-64 / alloc.lisp
1 ;;;; allocating simple objects
2
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
11
12 (in-package "SB!VM")
13 \f
14 ;;;; from signed/unsigned
15
16 ;;; KLUDGE: Why don't we want vops for this one and the next
17 ;;; one? -- WHN 19990916
18 #+sb-assembling ; We don't want a vop for this one.
19 (define-assembly-routine
20     (move-from-signed)
21     ((:temp eax unsigned-reg eax-offset)
22      (:temp ebx unsigned-reg ebx-offset))
23   (inst mov ebx eax)
24   (inst shl ebx 1)
25   (inst jmp :o BIGNUM)
26   (inst shl ebx 1)
27   (inst jmp :o BIGNUM)
28   (inst shl ebx 1)
29   (inst jmp :o BIGNUM)
30   (inst ret)
31   BIGNUM
32
33   (with-fixed-allocation (ebx bignum-widetag (+ bignum-digits-offset 1))
34     (storew eax ebx bignum-digits-offset other-pointer-lowtag))
35
36   (inst ret))
37
38 #+sb-assembling ; We don't want a vop for this one either.
39 (define-assembly-routine
40   (move-from-unsigned)
41   ((:temp eax unsigned-reg eax-offset)
42    (:temp ebx unsigned-reg ebx-offset))
43
44   (inst bsr ebx eax)
45   (inst cmp ebx 61)
46   (inst jmp :z DONE)
47   (inst jmp :ge BIGNUM)
48   ;; Fixnum
49   (inst mov ebx eax)
50   (inst shl ebx 3)
51   DONE
52   (inst ret)
53
54   BIGNUM
55   (with-fixed-allocation (ebx bignum-widetag (+ bignum-digits-offset 2))
56     (storew eax ebx bignum-digits-offset other-pointer-lowtag))
57   (inst ret))
58
59