use new interface to fif and fef routines

This commit is contained in:
ceriel 1989-07-31 14:34:23 +00:00
parent fc9e01c8d8
commit 022b40d40c
2 changed files with 16 additions and 26 deletions

View file

@ -343,20 +343,18 @@ C_dvf
default ==> arg_error("C_dvf", $1).
C_fif
$1 == 4 ==> "call .fif4".
$1 == 8 ==> "call .fif8".
$1 == 4 ==> C_lor((arith)1);
"call .fif4";
"pop ebx".
$1 == 8 ==> C_lor((arith)1);
"call .fif8";
"pop ebx".
default ==> arg_error("C_fif", $1).
C_fef
$1 == 4 ==> "pop eax";
"push eax";
"push eax";
$1 == 4 ==> C_lor((arith)1);
"call .fef4".
$1 == 8 ==> "pop eax";
"pop ebx";
"push eax";
"push ebx";
"push eax";
$1 == 8 ==> C_lor((arith)1);
"call .fef8".
default ==> arg_error("C_fef", $1).

View file

@ -414,26 +414,18 @@ C_dvf
default ==> arg_error("C_dvf", $1).
C_fif
$1 == 4 ==> "call .fif4".
$1 == 8 ==> "call .fif8".
$1 == 4 ==> C_lor((arith)1);
"call .fif4";
"pop bx".
$1 == 8 ==> C_lor((arith)1);
"call .fif8";
"pop bx".
default ==> arg_error("C_fif", $1).
C_fef
$1 == 4 ==> "pop ax";
"pop bx";
"push bx";
"push bx";
"push ax";
$1 == 4 ==> C_lor((arith)1);
"call .fef4".
$1 == 8 ==> "pop ax";
"pop bx";
"pop cx";
"pop dx";
"push dx";
"push dx";
"push cx";
"push bx";
"push ax";
$1 == 8 ==> C_lor((arith)1);
"call .fef8".
default ==> arg_error("C_fef", $1).