mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 02:00:20 +02:00
Code Activity

add floating-point for x86-64

Browse source 
git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-49
This commit is contained in:
Paolo Bonzini 2006-11-23 09:01:19 +00:00
parent 3a04a40aae
commit 58c4dcea43
11 changed files with 639 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lightning/i386/asm-32.h
View file

@ -45,6 +45,7 @@
#include "asm-i386.h"
#define _r1(R) ( ((R) & ~3) == _AL || ((R) & ~3) == _AH ? _rN(R) : JITFAIL( "8-bit register required"))
#define _rA(R) _r4(R)
/* Use RIP-addressing in 64-bit mode, if possible */
@ -58,14 +59,14 @@
#define _m64only(X) JITFAIL("invalid instruction in 32-bit mode")
#define _m64(X) ((void)0)
#define CALLsr(R) CALLLsr(R)
#define JMPsr(R) JMPLsr(R)
#define _AH 0x24
#define _CH 0x25
#define _DH 0x26
#define _BH 0x27
#define CALLsr(R) CALLLsr(R)
#define JMPsr(R) JMPLsr(R)
#define DECWr(RD) (_d16(), _Or (0x48,_r2(RD) ))
#define DECLr(RD) _Or (0x48,_r4(RD) )
#define INCWr(RD) (_d16(), _Or (0x40,_r2(RD) ))