paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:50:18 +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.resulttype.def.size=resulttype.def.size) and
(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_CREGISTER]) then (left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_CREGISTER]) then
begin begin
truelabel:=oldtruelabel;
falselabel:=oldfalselabel;
location_copy(location,left.location); location_copy(location,left.location);
exit; exit;
end; end;
@ -354,7 +356,6 @@ implementation
cg.a_label(exprasmlist,falselabel); cg.a_label(exprasmlist,falselabel);
cg.a_load_const_reg(exprasmlist,OS_INT,0,hreg1); cg.a_load_const_reg(exprasmlist,OS_INT,0,hreg1);
cg.a_label(exprasmlist,hlabel); cg.a_label(exprasmlist,hlabel);
cg.ungetregister(exprasmlist,hreg1);
end; end;
else else
internalerror(10062); internalerror(10062);
@ -370,7 +371,11 @@ begin
end. end.
{ {
$Log$ $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 xNNbittype to xNNinttype
* renamed registers32 to registersint * renamed registers32 to registersint
* replace some s32bit,u32bit with torddef([su]inttype).def.typ * replace some s32bit,u32bit with torddef([su]inttype).def.typ