paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:06:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some small updates according to i386 version

Browse Source
This commit is contained in:
carl 2002-04-21 15:48:39 +00:00
parent d8f8e2615c
commit 5cdad9e30f
2 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/powerpc/cpubase.pas
View File

@ -505,7 +505,6 @@ const
function is_calljmp(o:tasmop):boolean;
procedure inverse_flags(var f: TResFlags);
procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
function flags_to_cond(const f: TResFlags) : TAsmCond;
procedure create_cond_imm(BO,BI:byte;var r : TAsmCond);
@ -578,13 +577,6 @@ implementation
new_reference:=r;
end;
procedure inverse_flags(var f: TResFlags);
const
flagsinvers : array[F_EQ..F_GE] of tresflagsenum =
(F_NE,F_EQ,F_GE,F_GT,F_LE,F_LT);
begin
f.flag := flagsinvers[f.flag];
end;
procedure inverse_cond(c: TAsmCond;var r : TAsmCond);
@ -668,7 +660,10 @@ implementation
end.
{
$Log$
Revision 1.8 2002-04-20 21:41:51 carl
Revision 1.9 2002-04-21 15:48:39 carl
* some small updates according to i386 version
Revision 1.8 2002/04/20 21:41:51 carl
* renamed some constants
Revision 1.7 2002/04/06 18:13:02 jonas

7
compiler/powerpc/nppcmat.pas
View File

@ -524,7 +524,7 @@ implementation
LOC_FLAGS :
begin
location.resflags:=left.location.resflags;
inverse_flags(left.location.resflags);
!!! inverse_flags(left.location.resflags);
end;
LOC_REGISTER, LOC_CREGISTER, LOC_REFERENCE, LOC_CREFERENCE :
begin
@ -623,7 +623,10 @@ begin
end.
{
$Log$
Revision 1.3 2002-04-06 18:13:02 jonas
Revision 1.4 2002-04-21 15:48:39 carl
* some small updates according to i386 version
Revision 1.3 2002/04/06 18:13:02 jonas
* several powerpc-related additions and fixes
Revision 1.2 2002/01/03 14:57:52 jonas