paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-29 05:26:24 +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 } are written into temps for later release PM }
function def_opsize(p1:tdef):topsize; 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); procedure emit_none(i : tasmop;s : topsize);
@ -88,33 +85,10 @@ implementation
end; 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 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); procedure emit_none(i : tasmop;s : topsize);
begin begin
exprasmList.concat(Taicpu.Op_none(i,s)); exprasmList.concat(Taicpu.Op_none(i,s));
@ -187,7 +161,10 @@ implementation
end. end.
{ {
$Log$ $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 * NEWRA branch merged
Revision 1.2.2.1 2003/08/29 17:29:00 peter 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 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 Reference
@ -474,7 +474,7 @@ implementation
procedure inverse_flags(var f: TResFlags); procedure inverse_flags(var f: TResFlags);
const const
inv_flags: array[TResFlags] of TResFlags = 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 begin
f:=inv_flags[f]; f:=inv_flags[f];
end; end;
@ -483,7 +483,7 @@ implementation
function flags_to_cond(const f: TResFlags) : TAsmCond; function flags_to_cond(const f: TResFlags) : TAsmCond;
const const
flags_2_cond : array[TResFlags] of TAsmCond = 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 begin
result := flags_2_cond[f]; result := flags_2_cond[f];
end; end;
@ -558,7 +558,10 @@ implementation
end. end.
{ {
$Log$ $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 * remove sp_fixup
Revision 1.19 2003/09/24 17:12:36 florian Revision 1.19 2003/09/24 17:12:36 florian