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

* workaround for 2.2 rnagecheck

Browse Source 
git-svn-id: trunk@10106 -
This commit is contained in:
peter 2008-01-29 23:19:24 +00:00
parent f4f3ae84d0
commit 519b11dba7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncnv.pas
View File

@ -2146,7 +2146,12 @@ implementation
if is_pasbool(resultdef) then if is_pasbool(resultdef) then
tordconstnode(left).value:=ord(tordconstnode(left).value<>0) tordconstnode(left).value:=ord(tordconstnode(left).value<>0)
else else
{$ifdef VER2_2}
tordconstnode(left).value:=ord(tordconstnode(left).value<>0);
tordconstnode(left).value:=-tordconstnode(left).value;
{$else}
tordconstnode(left).value:=-ord(tordconstnode(left).value<>0); tordconstnode(left).value:=-ord(tordconstnode(left).value<>0);
{$endif VER2_2}
end end
else else
testrange(resultdef,tordconstnode(left).value,(nf_explicit in flags)); testrange(resultdef,tordconstnode(left).value,(nf_explicit in flags));