conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* SL_fx+_type is gone from the compiler.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 04:17:21 -04:00
parent f71cb36e11
commit 752ce74f1c
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

22
src/libcompile.ss
View File

@ -3601,7 +3601,7 @@
(movl eax ebx) (movl eax ebx)
(andl (int fx-mask) ebx) (andl (int fx-mask) ebx)
;;; arg in eax ;;; arg in eax
(jne (label SL_fx+_type)) (jne (label (sl-fx+-type-label)))
(addl (Simple a1) eax) (addl (Simple a1) eax)
(jo L) (jo L)
ac)))] ac)))]
@ -3610,7 +3610,7 @@
(list* (list*
(movl (Simple a1) eax) (movl (Simple a1) eax)
;;; arg in eax ;;; arg in eax
(jmp (label SL_fx+_type)) (jmp (label (sl-fx+-type-label)))
ac))]))] ac))]))]
[else [else
(NonTail a0 (NonTail a0
@ -4918,9 +4918,19 @@
(tail-indirect-cpr-call)))) (tail-indirect-cpr-call))))
SL_apply)) SL_apply))
(define (sl-fx+-type-label)
(define SL_fx+_type (gensym "SL_fx+_type"))
(list*->code* (lambda (x) #f)
(list
(list 0
(label SL_fx+_type)
(movl eax (mem (fx- 0 wordsize) fpr))
(movl (primref-loc 'fx+-type-error) cpr)
(movl (int (argc-convention 1)) eax)
(tail-indirect-cpr-call))))
SL_fx+_type)
(begin ;;; ASSEMBLY HELPERS (begin ;;; ASSEMBLY HELPERS
(define SL_fx+_type (gensym "SL_fx+_type"))
(define SL_fx+_types (gensym "SL_fx+_types")) (define SL_fx+_types (gensym "SL_fx+_types"))
(define SL_fx+_overflow (gensym "SL_fx+_overflow")) (define SL_fx+_overflow (gensym "SL_fx+_overflow"))
(define SL_fxadd1_error (gensym "SL_fxadd1_error")) (define SL_fxadd1_error (gensym "SL_fxadd1_error"))
@ -4949,12 +4959,6 @@
(movl (primref-loc 'fxadd1-error) cpr) (movl (primref-loc 'fxadd1-error) cpr)
(movl (int (argc-convention 1)) eax) (movl (int (argc-convention 1)) eax)
(tail-indirect-cpr-call)) (tail-indirect-cpr-call))
(list 0
(label SL_fx+_type)
(movl eax (mem (fx- 0 wordsize) fpr))
(movl (primref-loc 'fx+-type-error) cpr)
(movl (int (argc-convention 1)) eax)
(tail-indirect-cpr-call))
(list 0 (list 0
(label SL_fx+_overflow) (label SL_fx+_overflow)
(movl eax (mem (fx- 0 wordsize) fpr)) (movl eax (mem (fx- 0 wordsize) fpr))