d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

patches to make more suitable for push-pop optim

Browse source
This commit is contained in:
ceriel 1988-10-20 15:08:59 +00:00
parent dc5a744d8d
commit ba1c1a82d7
2 changed files with 80 additions and 80 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
mach/m68020/ce/EM_table
View file

@ -18,8 +18,8 @@ C_loe.. ==> "move.l ($1+$2), -(sp)".
C_lil ==> "move.l ([$1,a6]), -(sp)". C_lil ==> "move.l ([$1,a6]), -(sp)".
C_lof ==> "move.l (sp), a0"; C_lof ==> "move.l (sp)+, a0";
"move.l ($1,a0), (sp)". "move.l ($1,a0),-(sp)".
C_lal ==> "pea ($1,a6)". C_lal ==> "pea ($1,a6)".
@ -44,16 +44,16 @@ C_lxa
"pea (8,a0)". "pea (8,a0)".
C_loi C_loi
$1 == 1 ==> "move.l (sp), a0"; $1 == 1 ==> "move.l (sp)+, a0";
"clr.l (sp)"; "clr.l -(sp)";
"move.b (a0), (3,sp)". "move.b (a0), (3,sp)".
$1 == 2 ==> "move.l (sp), a0"; $1 == 2 ==> "move.l (sp)+, a0";
"clr.l (sp)"; "clr.l -(sp)";
"move.w (a0), (2,sp)". "move.w (a0), (2,sp)".
$1 == 4 ==> "move.l (sp), a0"; $1 == 4 ==> "move.l (sp)+, a0";
"move.l (a0), (sp)". "move.l (a0),-(sp)".
$1 == 8 ==> "move.l (sp), a0"; $1 == 8 ==> "move.l (sp)+, a0";
"move.l (4,a0), (sp)"; "move.l (4,a0),-(sp)";
"move.l (a0), -(sp)". "move.l (a0), -(sp)".
$1 % 4 == 0 ==> "move.l (sp)+, a0"; $1 % 4 == 0 ==> "move.l (sp)+, a0";
"move.l #$1/4-1, d0"; "move.l #$1/4-1, d0";
@ -74,8 +74,8 @@ C_ldl ==> "move.l ($1+4, a6), -(sp)";
C_lde.. ==> "move.l ($1+$2+4), -(sp)"; C_lde.. ==> "move.l ($1+$2+4), -(sp)";
"move.l ($1+$2), -(sp)". "move.l ($1+$2), -(sp)".
C_ldf ==> "move.l (sp), a0"; C_ldf ==> "move.l (sp)+, a0";
"move.l ($1+4,a0), (sp)"; "move.l ($1+4,a0),-(sp)";
"move.l ($1,a0), -(sp)". "move.l ($1,a0), -(sp)".
C_lpi ==> "pea ($1)". C_lpi ==> "pea ($1)".
@ -142,23 +142,23 @@ C_sbi
C_mli C_mli
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"muls.l (sp), d0"; "muls.l (sp)+, d0";
"move.l d0, (sp)". "move.l d0,-(sp)".
default ==> arg_error( "mli", $1). default ==> arg_error( "mli", $1).
C_dvi C_dvi
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"divs.l d0, d1"; "divs.l d0, d1";
"move.l d1, (sp)". "move.l d1,-(sp)".
default ==> arg_error( "dvi", $1). default ==> arg_error( "dvi", $1).
C_rmi C_rmi
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp), d1";
"move.l d0, (sp)"; "move.l d0,(sp)";
"divsl.l (sp), d0:d1"; "divsl.l (sp)+, d0:d1";
"move.l d0, (sp)". "move.l d0,-(sp)".
default ==> arg_error( "rmi", $1). default ==> arg_error( "rmi", $1).
C_ngi C_ngi
@ -168,16 +168,16 @@ C_ngi
C_sli C_sli
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"asl.l d0, d1"; "asl.l d0, d1";
"move.l d1, (sp)". "move.l d1,-(sp)".
default ==> arg_error( "sli", $1). default ==> arg_error( "sli", $1).
C_sri C_sri
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"asr.l d0, d1"; "asr.l d0, d1";
"move.l d1, (sp)". "move.l d1,-(sp)".
default ==> arg_error( "sri", $1). default ==> arg_error( "sri", $1).
@ -194,32 +194,32 @@ C_sbu ==> C_sbi( w).
C_mlu C_mlu
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"mulu.l (sp), d0"; "mulu.l (sp)+, d0";
"move.l d0, (sp)". "move.l d0, -(sp)".
default ==> arg_error( "mlu", $1). default ==> arg_error( "mlu", $1).
C_dvu C_dvu
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"divu.l d0, d1"; "divu.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "dvu", $1). default ==> arg_error( "dvu", $1).
C_rmu C_rmu
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp), d1";
"move.l d0, (sp)"; "move.l d0, (sp)";
"divul.l (sp), d0:d1"; "divul.l (sp)+, d0:d1";
"move.l d0, (sp)". "move.l d0, -(sp)".
default ==> arg_error( "rmu", $1). default ==> arg_error( "rmu", $1).
C_slu ==> C_sli( w). C_slu ==> C_sli( w).
C_sru C_sru
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"lsr.l d0, d1"; "lsr.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "sru", $1). default ==> arg_error( "sru", $1).
@ -457,16 +457,16 @@ C_com
C_rol C_rol
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"rol.l d0, d1"; "rol.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "rol", $1). default ==> arg_error( "rol", $1).
C_ror C_ror
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"ror.l d0, d1"; "ror.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "ror", $1). default ==> arg_error( "ror", $1).
@ -478,11 +478,11 @@ C_ror
C_inn C_inn
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"btst d0, d1"; "btst d0, d1";
"sne d1"; "sne d1";
"and.l #1, d1"; "and.l #1, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> "move.l (sp)+, d0"; default ==> "move.l (sp)+, d0";
"move.l #$1, d1"; "move.l #$1, d1";
"jsr (.inn)"; "jsr (.inn)";
@ -494,10 +494,10 @@ C_inn_narg ==> "move.l (sp)+, d1";
"move.l d0, -(sp)". "move.l d0, -(sp)".
C_set C_set
$1 == 4 ==> "move.l (sp), d0"; $1 == 4 ==> "move.l (sp)+, d0";
"clr.l d1"; "clr.l d1";
"bset d0, d1"; "bset d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> "move.l (sp)+, d0"; default ==> "move.l (sp)+, d0";
"move.l #$1, d1"; "move.l #$1, d1";
"jsr (.set)". "jsr (.set)".
@ -765,7 +765,7 @@ C_dch ==> C_loi( (arith)4).
C_dup C_dup
$1 == 4 ==> "move.l (sp), -(sp)". $1 == 4 ==> "move.l (sp), -(sp)".
$1 == 4 ==> "move.l (4, sp), -(sp)"; $1 == 8 ==> "move.l (4, sp), -(sp)";
"move.l (4, sp), -(sp)". "move.l (4, sp), -(sp)".
default ==> "move.l #$1/4-1, d0"; default ==> "move.l #$1/4-1, d0";
"1:"; "1:";

80
mach/sun3/ce/EM_table
View file

@ -18,8 +18,8 @@ C_loe.. ==> "move.l ($1+$2), -(sp)".
C_lil ==> "move.l ([$1,a6]), -(sp)". C_lil ==> "move.l ([$1,a6]), -(sp)".
C_lof ==> "move.l (sp), a0"; C_lof ==> "move.l (sp)+, a0";
"move.l ($1,a0), (sp)". "move.l ($1,a0),-(sp)".
C_lal ==> "pea ($1,a6)". C_lal ==> "pea ($1,a6)".
@ -44,16 +44,16 @@ C_lxa
"pea (8,a0)". "pea (8,a0)".
C_loi C_loi
$1 == 1 ==> "move.l (sp), a0"; $1 == 1 ==> "move.l (sp)+, a0";
"clr.l (sp)"; "clr.l -(sp)";
"move.b (a0), (3,sp)". "move.b (a0), (3,sp)".
$1 == 2 ==> "move.l (sp), a0"; $1 == 2 ==> "move.l (sp)+, a0";
"clr.l (sp)"; "clr.l -(sp)";
"move.w (a0), (2,sp)". "move.w (a0), (2,sp)".
$1 == 4 ==> "move.l (sp), a0"; $1 == 4 ==> "move.l (sp)+, a0";
"move.l (a0), (sp)". "move.l (a0),-(sp)".
$1 == 8 ==> "move.l (sp), a0"; $1 == 8 ==> "move.l (sp)+, a0";
"move.l (4,a0), (sp)"; "move.l (4,a0),-(sp)";
"move.l (a0), -(sp)". "move.l (a0), -(sp)".
$1 % 4 == 0 ==> "move.l (sp)+, a0"; $1 % 4 == 0 ==> "move.l (sp)+, a0";
"move.l #$1/4-1, d0"; "move.l #$1/4-1, d0";
@ -74,8 +74,8 @@ C_ldl ==> "move.l ($1+4, a6), -(sp)";
C_lde.. ==> "move.l ($1+$2+4), -(sp)"; C_lde.. ==> "move.l ($1+$2+4), -(sp)";
"move.l ($1+$2), -(sp)". "move.l ($1+$2), -(sp)".
C_ldf ==> "move.l (sp), a0"; C_ldf ==> "move.l (sp)+, a0";
"move.l ($1+4,a0), (sp)"; "move.l ($1+4,a0),-(sp)";
"move.l ($1,a0), -(sp)". "move.l ($1,a0), -(sp)".
C_lpi ==> "pea ($1)". C_lpi ==> "pea ($1)".
@ -142,23 +142,23 @@ C_sbi
C_mli C_mli
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"muls.l (sp), d0"; "muls.l (sp)+, d0";
"move.l d0, (sp)". "move.l d0,-(sp)".
default ==> arg_error( "mli", $1). default ==> arg_error( "mli", $1).
C_dvi C_dvi
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"divs.l d0, d1"; "divs.l d0, d1";
"move.l d1, (sp)". "move.l d1,-(sp)".
default ==> arg_error( "dvi", $1). default ==> arg_error( "dvi", $1).
C_rmi C_rmi
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp), d1";
"move.l d0, (sp)"; "move.l d0,(sp)";
"divsl.l (sp), d0:d1"; "divsl.l (sp)+, d0:d1";
"move.l d0, (sp)". "move.l d0,-(sp)".
default ==> arg_error( "rmi", $1). default ==> arg_error( "rmi", $1).
C_ngi C_ngi
@ -168,16 +168,16 @@ C_ngi
C_sli C_sli
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"asl.l d0, d1"; "asl.l d0, d1";
"move.l d1, (sp)". "move.l d1,-(sp)".
default ==> arg_error( "sli", $1). default ==> arg_error( "sli", $1).
C_sri C_sri
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"asr.l d0, d1"; "asr.l d0, d1";
"move.l d1, (sp)". "move.l d1,-(sp)".
default ==> arg_error( "sri", $1). default ==> arg_error( "sri", $1).
@ -194,32 +194,32 @@ C_sbu ==> C_sbi( w).
C_mlu C_mlu
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"mulu.l (sp), d0"; "mulu.l (sp)+, d0";
"move.l d0, (sp)". "move.l d0, -(sp)".
default ==> arg_error( "mlu", $1). default ==> arg_error( "mlu", $1).
C_dvu C_dvu
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"divu.l d0, d1"; "divu.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "dvu", $1). default ==> arg_error( "dvu", $1).
C_rmu C_rmu
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp), d1";
"move.l d0, (sp)"; "move.l d0, (sp)";
"divul.l (sp), d0:d1"; "divul.l (sp)+, d0:d1";
"move.l d0, (sp)". "move.l d0, -(sp)".
default ==> arg_error( "rmu", $1). default ==> arg_error( "rmu", $1).
C_slu ==> C_sli( w). C_slu ==> C_sli( w).
C_sru C_sru
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"lsr.l d0, d1"; "lsr.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "sru", $1). default ==> arg_error( "sru", $1).
@ -399,16 +399,16 @@ C_com
C_rol C_rol
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"rol.l d0, d1"; "rol.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "rol", $1). default ==> arg_error( "rol", $1).
C_ror C_ror
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"ror.l d0, d1"; "ror.l d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> arg_error( "ror", $1). default ==> arg_error( "ror", $1).
@ -420,11 +420,11 @@ C_ror
C_inn C_inn
$1 == 4 ==> "move.l (sp)+, d0"; $1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp), d1"; "move.l (sp)+, d1";
"btst d0, d1"; "btst d0, d1";
"sne d1"; "sne d1";
"and.l #1, d1"; "and.l #1, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> "move.l (sp)+, d0"; default ==> "move.l (sp)+, d0";
"move.l #$1, d1"; "move.l #$1, d1";
"jsr (.inn)"; "jsr (.inn)";
@ -436,10 +436,10 @@ C_inn_narg ==> "move.l (sp)+, d1";
"move.l d0, -(sp)". "move.l d0, -(sp)".
C_set C_set
$1 == 4 ==> "move.l (sp), d0"; $1 == 4 ==> "move.l (sp)+, d0";
"clr.l d1"; "clr.l d1";
"bset d0, d1"; "bset d0, d1";
"move.l d1, (sp)". "move.l d1, -(sp)".
default ==> "move.l (sp)+, d0"; default ==> "move.l (sp)+, d0";
"move.l #$1, d1"; "move.l #$1, d1";
"jsr (.set)". "jsr (.set)".
@ -703,7 +703,7 @@ C_dch ==> C_loi( (arith)4).
C_dup C_dup
$1 == 4 ==> "move.l (sp), -(sp)". $1 == 4 ==> "move.l (sp), -(sp)".
$1 == 4 ==> "move.l (4, sp), -(sp)"; $1 == 8 ==> "move.l (4, sp), -(sp)";
"move.l (4, sp), -(sp)". "move.l (4, sp), -(sp)".
default ==> "move.l #$1/4-1, d0"; default ==> "move.l #$1/4-1, d0";
"1:"; "1:";