Changeset 6324
- Timestamp:
- Apr 22, 2007, 3:41:11 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/x8664-call/ccl/compiler/X86/X8664/x8664-vinsns.lisp
r6300 r6324 281 281 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 282 282 (movq (:@ x8664::symbol.fcell (:% x8664::fname)) (:%q x8664::fn)) 283 (:talign 4) 283 284 (jmp (:%q x8664::fn)) 284 (:align 3)285 (:long (:^ :back))286 285 :back 287 286 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 995 994 ((entry (:label 1)))) 996 995 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 996 (:talign 4) 997 997 (jmp (:@ spno)) 998 (:align 3)999 (:long (:^ :back))1000 998 :back 1001 999 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1148 1146 (:apply %hard-regspec-value val))) 1149 1147 (movq (:%q val) (:%q x8664::arg_z))) 1150 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1151 (jmp (:@ .SPfix-overflow)) 1152 (:align 3) 1153 (:long (:^ :back)) 1154 :back 1148 (:talign 4) 1149 (call (:@ .SPnfix-overflow)) 1155 1150 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)) 1156 1151 ((:not (:pred = x8664::arg_z … … 1170 1165 (:apply %hard-regspec-value val))) 1171 1166 (movq (:%q val) (:%q x8664::arg_z))) 1172 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1173 (jmp (:@ .SPfix-overflow)) 1174 (:align 3) 1175 (:long (:^ :back)) 1176 :back 1167 (:talign 4) 1168 (call (:@ .SPnfix-overflow)) 1177 1169 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)) 1178 1170 ((:not (:pred = x8664::arg_z … … 1594 1586 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1595 1587 (movq (:%q x8664::temp0) (:%q x8664::fn)) 1588 (:talign 4) 1596 1589 (jmp (:%q x8664::fn)) 1597 (:align 3)1598 (:long (:^ :back))1599 1590 :back 1600 1591 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1610 1601 ((entry (:label 1)))) 1611 1602 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1603 (:talign 4) 1612 1604 (jmp (:@ .SPconslist)) 1613 (:align 3)1614 (:long (:^ :back))1615 1605 :back 1616 1606 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1688 1678 `(define-x8664-vinsn (,name :call :subprim-call ,@other-attrs) (() () ((entry (:label 1)))) 1689 1679 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1680 (:talign 4) 1690 1681 (jmp (:@ ,spno)) 1691 (:align 3)1692 (:long (:^ :back))1693 1682 :back 1694 1683 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))) … … 1779 1768 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1780 1769 (leaq (:@ (:^ lab) (:%q x8664::fn)) (:%q x8664::xfn)) 1770 (:talign 4) 1781 1771 (jmp (:@ .SPmkcatchmv)) 1782 (:align 3)1783 (:long (:^ :back))1784 1772 :back 1785 1773 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1790 1778 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1791 1779 (leaq (:@ (:^ lab) (:%q x8664::fn)) (:%q x8664::xfn)) 1780 (:talign 4) 1792 1781 (jmp (:@ .SPmkcatch1v)) 1793 (:align 3)1794 (:long (:^ :back))1795 1782 :back 1796 1783 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1822 1809 (cmoveq (:@ x8664::symbol.fcell (:%q x8664::fname)) (:%q x8664::fn)) 1823 1810 (jmp (:%q x8664::fn)) 1811 (:talign 4) 1824 1812 :bad 1825 1813 (uuo-error-not-callable) 1826 (:align 3)1827 (:long (:^ :back))1828 1814 :back 1829 1815 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1864 1850 ((sym (:lisp (:ne val)))) 1865 1851 ((entry (:label 1)))) 1866 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1867 (jmp (:@ .SPspecrefcheck)) 1868 (:align 3) 1869 (:long (:^ :back)) 1870 :back 1852 (:talign 4) 1853 (call (:@ .SPnspecrefcheck)) 1871 1854 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)) ) 1872 1855 … … 1896 1879 ((entry (:label 1)))) 1897 1880 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 1881 (:talign 4) 1898 1882 (jmp (:@ .SPspecref)) 1899 (:align 3)1900 (:long (:^ :back))1901 1883 :back 1902 1884 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 1923 1905 (movq (:@ x8664::INTERRUPT-LEVEL-BINDING-INDEX (:%q temp)) (:%q dest))) 1924 1906 1925 (define-x8664-vinsn save-cleanup-context (()1926 ((lab :label)))1927 (leaq (:@ (:apply - (:^ lab)) (:%q x8664::xfn)) (:%q x8664::fn))1928 )1929 1907 1930 1908 … … 2975 2953 ((entry (:label 1)))) 2976 2954 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 2955 (:talign 4) 2977 2956 (jmp (:@ spno)) 2978 (:align 3)2979 (:long (:^ :back))2980 2957 :back 2981 2958 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 3197 3174 (val :lisp)) 3198 3175 ((entry (:label 1)))) 3199 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 3200 (jmp (:@ .SPspecset)) 3201 (:align 3) 3202 (:long (:^ :back)) 3203 :back 3176 (:talign 4) 3177 (call (:@ .SPnspecset)) 3204 3178 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) 3205 3179 … … 3279 3253 ((entry (:label 1)))) 3280 3254 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 3255 (:talign 4) 3281 3256 (jmp (:@ spno)) 3282 (:align 3)3283 (:long (:^ :back))3284 3257 :back 3258 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) 3259 3260 (define-x8664-vinsn (xcall-subprim-2 :call :subprim-call) (((dest t)) 3261 ((spno :s32const) 3262 (y t) 3263 (z t)) 3264 ((entry (:label 1)))) 3265 (:talign 4) 3266 (call (:@ spno)) 3285 3267 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) 3286 3268 … … 3347 3329 ((entry (:label 1)))) 3348 3330 (leaq (:@ (:^ :back) (:%q x8664::fn)) (:%q x8664::ra0)) 3331 (:talign 4) 3349 3332 (jmp (:@ .SPthrow)) 3350 (:align 3)3351 (:long (:^ :back))3352 3333 :back 3353 3334 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))) … … 3568 3549 ((:pred > n 1) 3569 3550 (movl (:$l n) (:%l temp)) 3551 (:talign 4) 3570 3552 (jmp (:@ .SPunbind-n))) 3571 3553 ((:pred = n 1) 3554 (:talign 4) 3572 3555 (jmp (:@ .SPunbind))) 3573 (:align 3)3574 (:long (:^ :back))3575 3556 :back 3576 3557 (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn))))
Note:
See TracChangeset
for help on using the changeset viewer.
