paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:39:40 +01: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 if nf_swaped in Flags then
case NodeType of case NodeType of
ltn: ltn:
GetResFlags:=F_CC;
lten:
GetResFlags:=F_LS;
gtn:
GetResFlags:=F_HI; GetResFlags:=F_HI;
gten: lten:
GetResFlags:=F_CS; GetResFlags:=F_CS;
gtn:
GetResFlags:=F_CC;
gten:
GetResFlags:=F_LS;
end end
else else
case NodeType of case NodeType of
ltn: ltn:
GetResFlags:=F_HI;
lten:
GetResFlags:=F_CS;
gtn:
GetResFlags:=F_CC; GetResFlags:=F_CC;
gten: lten:
GetResFlags:=F_LS; GetResFlags:=F_LS;
gtn:
GetResFlags:=F_HI;
gten:
GetResFlags:=F_CS;
end; end;
end; end;
end; end;
@ -301,7 +301,7 @@ interface
end; end;
end end
else 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_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=getresflags(unsigned); location.resflags:=getresflags(unsigned);
@ -314,7 +314,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed several issues with flags
Revision 1.6 2004/01/22 01:47:15 florian 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+ '11039_E_Unknown code page'#000+
'11023_Free Pascal Compiler version $FPCVER [$FPCDATE] for $F','PCTARGET'+ '11023_Free Pascal Compiler version $FPCVER [$FPCDATE] for $F','PCTARGET'+
#010+ #010+
'Copyright (c) 1993-2002 by Florian Klaempfl'#000+ 'Copyright (c) 1993-2004 by Florian Klaempfl'#000+
'11024_Free Pascal Compiler version $FPCVER'#010+ '11024_Free Pascal Compiler version $FPCVER'#010+
#010+ #010+
'Compiler Date : $FPCDATE'#010+ 'Compiler Date : $FPCDATE'#010+