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

* fixed missing restoring of true/falselabels in case of explicit

Browse Source 
integer to same-sized boolean conversions
This commit is contained in:
Jonas Maebe 2004-03-17 20:06:56 +00:00
parent 334c6b36cb
commit 034725dfff
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/nppccnv.pas
View File

@ -291,6 +291,8 @@ implementation
(left.resulttype.def.size=resulttype.def.size) and
(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_CREGISTER]) then
begin
truelabel:=oldtruelabel;
falselabel:=oldfalselabel;
location_copy(location,left.location);
exit;
end;
@ -354,7 +356,6 @@ implementation
cg.a_label(exprasmlist,falselabel);
cg.a_load_const_reg(exprasmlist,OS_INT,0,hreg1);
cg.a_label(exprasmlist,hlabel);
cg.ungetregister(exprasmlist,hreg1);
end;
else
internalerror(10062);
@ -370,7 +371,11 @@ begin
end.
{
$Log$
Revision 1.50 2004-02-03 22:32:54 peter
Revision 1.51 2004-03-17 20:06:56 jonas
* fixed missing restoring of true/falselabels in case of explicit
integer to same-sized boolean conversions
Revision 1.50 2004/02/03 22:32:54 peter
* renamed xNNbittype to xNNinttype
* renamed registers32 to registersint
* replace some s32bit,u32bit with torddef([su]inttype).def.typ