paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +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

9
compiler/ncnv.pas
View File

@ -1984,7 +1984,7 @@ implementation
(tordconstnode(n).value<=high(cardinal))));
end;
begin
result:=false;
if wasoriginallyuint32(n) then
@ -2146,7 +2146,12 @@ implementation
if is_pasbool(resultdef) then
tordconstnode(left).value:=ord(tordconstnode(left).value<>0)
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);
{$endif VER2_2}
end
else
testrange(resultdef,tordconstnode(left).value,(nf_explicit in flags));
@ -2184,7 +2189,7 @@ implementation
end;
end;
end;
{$ifndef cpu64bit}
{ must be done before code below, because we need the
typeconversions for ordconstn's as well }