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

* actually the important part of r12120 containing the compiler change

Browse Source 
git-svn-id: trunk@12121 -
This commit is contained in:
florian 2008-11-16 14:08:31 +00:00
parent 706f8085f4
commit a0939ad9d6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncnv.pas
View File

@ -2498,14 +2498,13 @@ implementation
(left.resultdef.size=resultdef.size) and
(left.expectloc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_CREGISTER]) then
exit;
{ when converting 64bit int to C-ctyle boolean, first convert to a 32bit int and then }
{ when converting 64bit int to C-ctyle boolean, first convert to an int32 and then }
{ convert to a boolean (only necessary for 32bit processors) }
if (left.resultdef.size > sizeof(aint)) and (left.resultdef.size<>resultdef.size)
and is_cbool(resultdef) then
begin
result := ctypeconvnode.create_internal(left,s32inttype);
left := nil;
firstpass(result);
left:=ctypeconvnode.create_internal(left,s32inttype);
firstpass(left);
exit;
end;
expectloc:=LOC_REGISTER;