paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another fix to flag handling

Browse Source
This commit is contained in:
florian 2004-01-23 00:01:48 +00:00
parent 33d9cedfd9
commit 6e1d153194
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/arm/narmadd.pas
View File

@ -95,24 +95,24 @@ interface
if nf_swaped in Flags then
case NodeType of
ltn:
GetResFlags:=F_CC;
lten:
GetResFlags:=F_LS;
gtn:
GetResFlags:=F_HI;
gten:
lten:
GetResFlags:=F_CS;
gtn:
GetResFlags:=F_CC;
gten:
GetResFlags:=F_LS;
end
else
case NodeType of
ltn:
GetResFlags:=F_HI;
lten:
GetResFlags:=F_CS;
gtn:
GetResFlags:=F_CC;
gten:
lten:
GetResFlags:=F_LS;
gtn:
GetResFlags:=F_HI;
gten:
GetResFlags:=F_CS;
end;
end;
end;
@ -301,7 +301,7 @@ interface
end;
end
else
exprasmlist.concat(taicpu.op_reg_reg(A_CMP,right.location.register,left.location.register));
exprasmlist.concat(taicpu.op_reg_reg(A_CMP,left.location.register,right.location.register));
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=getresflags(unsigned);
@ -314,7 +314,10 @@ begin
end.
{
$Log$
Revision 1.7 2004-01-22 20:13:18 florian
Revision 1.8 2004-01-23 00:01:48 florian
* another fix to flag handling
Revision 1.7 2004/01/22 20:13:18 florian
* fixed several issues with flags
Revision 1.6 2004/01/22 01:47:15 florian

2
compiler/msgtxt.inc
View File

@ -680,7 +680,7 @@ const msgtxt : array[0..000149,1..240] of char=(
'11039_E_Unknown code page'#000+
'11023_Free Pascal Compiler version $FPCVER [$FPCDATE] for $F','PCTARGET'+
#010+
'Copyright (c) 1993-2002 by Florian Klaempfl'#000+
'Copyright (c) 1993-2004 by Florian Klaempfl'#000+
'11024_Free Pascal Compiler version $FPCVER'#010+
#010+
'Compiler Date : $FPCDATE'#010+