Changeset 16492


Ignore:
Timestamp:
Aug 4, 2015, 6:32:18 PM (4 years ago)
Author:
gb
Message:

just saving this so that it won't be lost

Location:
branches/lscan/source/compiler/X86
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/lscan/source/compiler/X86/X8664/x8664-vinsns.lisp

    r16489 r16492  
    13901390  (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
    13911391
     1392;; use a call instruction here, but don't kill live registers.
     1393(define-x8664-vinsn (call-subprim-no-return) (()
     1394                                                   ((spno :s32const))
     1395                                                   ((entry (:label 1))))
     1396  (:talign 4)
     1397  (call (:@ spno))
     1398  (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
    13921399
    13931400(define-x8664-vinsn %logand-c (((dest t))
     
    53265333  x86::*x86-opcode-template-lists* *x8664-backend*))
    53275334
     5335(define-x8664-vinsn signal-type-error ()
     5336  (jmp :bad)
     5337  (:uuo-section)
     5338  :bad
     5339  (
    53285340(provide "X8664-VINSNS")
    53295341
  • branches/lscan/source/compiler/X86/x862.lisp

    r16490 r16492  
    22032203              (! vpush-fixnum boxed-errno)))
    22042204            (! set-nargs 3)
    2205             (! call-subprim (subprim-name->offset '.SPksignalerr))))
     2205            (! call-subprim-no-return (subprim-name->offset '.SPksignalerr))))
    22062206        (@ simple-case)
    22072207        (when safe
     
    22792279            (x862-absolute-natural seg($ x8664::arg_x) nil (ash $xwrongtype x8664::fixnumshift))
    22802280            (! set-nargs 3)
    2281             (! call-subprim (subprim-name->offset '.SPksignalerr))
     2281            (! call-subprim-no-return (subprim-name->offset '.SPksignalerr))
    22822282            (@ continue-label))))
    22832283            (unless i-known-fixnum
     
    23722372                (x862-absolute-natural seg($ x8664::arg_x) nil (ash $xwrongtype x8664::fixnumshift))
    23732373                (! set-nargs 3)
    2374                 (! call-subprim (subprim-name->offset '.SPksignalerr))
     2374                (! call-subprim-no-return (subprim-name->offset '.SPksignalerr))
    23752375                (@ continue-label)))
    23762376            (unless i-known-fixnum
     
    24402440            (x862-absolute-natural seg($ x8664::arg_x) nil (ash $xwrongtype x8664::fixnumshift))
    24412441            (! set-nargs 3)
    2442             (! call-subprim (subprim-name->offset '.SPksignalerr))
     2442            (! call-subprim-no-return (subprim-name->offset '.SPksignalerr))
    24432443            (@ continue-label)))
    24442444        (unless i-known-fixnum
     
    25082508            (x862-absolute-natural seg($ x8664::arg_x) nil (ash $xwrongtype x8664::fixnumshift))
    25092509            (! set-nargs 3)
    2510             (! call-subprim (subprim-name->offset '.SPksignalerr))
     2510o            (! call-subprim-no-return (subprim-name->offset '.SPksignalerr))
    25112511            (@ continue-label))))
    25122512        (unless i-known-fixnum
     
    1014710147
    1014810148(defx862 x862-labels labels (seg vreg xfer vars afuncs body p2decls)
     10149  (linear-scan-bailout "LABELS needs work")
    1014910150  (let* ((fwd-refs nil)
    1015010151         (func nil)
Note: See TracChangeset for help on using the changeset viewer.