paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed emitjmp

Browse Source
This commit is contained in:
peter 2003-09-28 21:49:39 +00:00
parent a028d221cc
commit 15446d6522
2 changed files with 11 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/x86/cga.pas
View File

@ -35,9 +35,6 @@ interface
are written into temps for later release PM }
function def_opsize(p1:tdef):topsize;
function def_getreg(p1:tdef):tregister;
procedure emitjmp(c : tasmcond;var l : tasmlabel);
procedure emit_none(i : tasmop;s : topsize);
@ -88,33 +85,10 @@ implementation
end;
function def_getreg(p1:tdef):tregister;
begin
{ def_getreg:=rg.makeregsize(rg.getregisterint(exprasmlist),int_cgsize(p1.size));}
def_getreg:=rg.getregisterint(exprasmlist,int_cgsize(p1.size));
end;
{*****************************************************************************
Emit Assembler
*****************************************************************************}
procedure emitjmp(c : tasmcond;var l : tasmlabel);
var
ai : taicpu;
begin
if c=C_None then
ai := Taicpu.Op_sym(A_JMP,S_NO,l)
else
begin
ai:=Taicpu.Op_sym(A_Jcc,S_NO,l);
ai.SetCondition(c);
end;
ai.is_jmp:=true;
exprasmList.concat(ai);
end;
procedure emit_none(i : tasmop;s : topsize);
begin
exprasmList.concat(Taicpu.Op_none(i,s));
@ -187,7 +161,10 @@ implementation
end.
{
$Log$
Revision 1.3 2003-09-03 15:55:02 peter
Revision 1.4 2003-09-28 21:49:39 peter
* removed emitjmp
Revision 1.3 2003/09/03 15:55:02 peter
* NEWRA branch merged
Revision 1.2.2.1 2003/08/29 17:29:00 peter

11
compiler/x86/cpubase.pas
View File

@ -226,7 +226,7 @@ uses
*****************************************************************************}
type
TResFlags = (F_E,F_NE,F_G,F_L,F_GE,F_LE,F_C,F_NC,F_A,F_AE,F_B,F_BE);
TResFlags = (F_E,F_NE,F_G,F_L,F_GE,F_LE,F_C,F_NC,F_A,F_AE,F_B,F_BE,F_S,F_NS);
{*****************************************************************************
Reference
@ -474,7 +474,7 @@ implementation
procedure inverse_flags(var f: TResFlags);
const
inv_flags: array[TResFlags] of TResFlags =
(F_NE,F_E,F_LE,F_GE,F_L,F_G,F_NC,F_C,F_BE,F_B,F_AE,F_A);
(F_NE,F_E,F_LE,F_GE,F_L,F_G,F_NC,F_C,F_BE,F_B,F_AE,F_A,F_NS,F_S);
begin
f:=inv_flags[f];
end;
@ -483,7 +483,7 @@ implementation
function flags_to_cond(const f: TResFlags) : TAsmCond;
const
flags_2_cond : array[TResFlags] of TAsmCond =
(C_E,C_NE,C_G,C_L,C_GE,C_LE,C_C,C_NC,C_A,C_AE,C_B,C_BE);
(C_E,C_NE,C_G,C_L,C_GE,C_LE,C_C,C_NC,C_A,C_AE,C_B,C_BE,C_S,C_NS);
begin
result := flags_2_cond[f];
end;
@ -558,7 +558,10 @@ implementation
end.
{
$Log$
Revision 1.20 2003-09-25 21:29:23 peter
Revision 1.21 2003-09-28 21:49:39 peter
* removed emitjmp
Revision 1.20 2003/09/25 21:29:23 peter
* remove sp_fixup
Revision 1.19 2003/09/24 17:12:36 florian