 Timestamp:
 Jul 21, 2010, 4:01:27 AM (10 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/arm/compiler/ARM/armvinsns.lisp
r13982 r13997 1260 1260 ((src :lisp)) 1261 1261 ((imm :s32))) 1262 (fmrx imm fpscr) 1263 (bic imm imm (:$ #xff)) 1264 (fmxr fpscr imm) 1262 1265 (mov imm (:asr src (:$ arm::fixnumshift))) 1263 1266 (fmsr dest imm) … … 1469 1472 (((result :doublefloat)) 1470 1473 ((x :doublefloat) 1471 (y :doublefloat))) 1474 (y :doublefloat)) 1475 ((imm :u32))) 1476 (fmrx imm fpscr) 1477 (bic imm imm (:$ #xff)) 1478 (fmxr fpscr imm) 1472 1479 (faddd result x y) 1473 1480 (bl .SPcheckfpuexception)) … … 1482 1489 (((result :doublefloat)) 1483 1490 ((x :doublefloat) 1484 (y :doublefloat))) 1491 (y :doublefloat)) 1492 ((imm :u32))) 1493 (fmrx imm fpscr) 1494 (bic imm imm (:$ #xff)) 1495 (fmxr fpscr imm) 1485 1496 (fsubd result x y) 1486 1497 (bl .SPcheckfpuexception)) … … 1499 1510 (bl .SPcheckfpuexception)) 1500 1511 1501 (definearmvinsn (doublefloat/2 safe:predicatable)1512 (definearmvinsn (doublefloat/2 :predicatable) 1502 1513 (((result :doublefloat)) 1503 1514 ((x :doublefloat) … … 1508 1519 (((result :doublefloat)) 1509 1520 ((x :doublefloat) 1510 (y :doublefloat))) 1521 (y :doublefloat)) 1522 ((imm :u32))) 1523 (fmrx imm fpscr) 1524 (bic imm imm (:$ #xff)) 1525 (fmxr fpscr imm) 1511 1526 (fdivd result x y) 1512 1527 (bl .SPcheckfpuexception)) … … 1531 1546 ((x :singlefloat) 1532 1547 (y :singlefloat)) 1533 ()) 1548 ((imm :u32))) 1549 (fmrx imm fpscr) 1550 (bic imm imm (:$ #xff)) 1551 (fmxr fpscr imm) 1534 1552 (fadds result x y) 1535 1553 (bl .SPcheckfpuexception)) … … 1544 1562 (((result :singlefloat)) 1545 1563 ((x :singlefloat) 1546 (y :singlefloat))) 1564 (y :singlefloat)) 1565 ((imm :u32))) 1566 (fmrx imm fpscr) 1567 (bic imm imm (:$ #xff)) 1568 (fmxr fpscr imm) 1547 1569 (fsubs result x y) 1548 1570 (bl .SPcheckfpuexception)) … … 1557 1579 (((result :singlefloat)) 1558 1580 ((x :singlefloat) 1559 (y :singlefloat))) 1581 (y :singlefloat)) 1582 ((imm :u32))) 1583 (fmrx imm fpscr) 1584 (bic imm imm (:$ #xff)) 1585 (fmxr fpscr imm) 1560 1586 (fmuls result x y) 1561 1587 (bl .SPcheckfpuexception)) … … 1570 1596 (((result :singlefloat)) 1571 1597 ((x :singlefloat) 1572 (y :singlefloat))) 1598 (y :singlefloat)) 1599 ((imm :u32))) 1600 (fmrx imm fpscr) 1601 (bic imm imm (:$ #xff)) 1602 (fmxr fpscr imm) 1573 1603 (fdivs result x y) 1574 1604 (bl .SPcheckfpuexception))
Note: See TracChangeset
for help on using the changeset viewer.