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

* fix 32 bit => 64 bit cross compilation, resolves #41626

Browse Source
This commit is contained in:
florian 2025-05-17 21:20:49 +02:00
parent 9bcb1b6f21
commit de46b06f27
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/ncon.pas
View File

@ -1463,33 +1463,41 @@ implementation
function tsetconstnode.low: AInt;
var
i: AInt;
i: ASizeInt;
begin
result:=0;
if not(assigned(value_set)) then
exit;
for i:=0 to tsetdef(resultdef).setmax do
if i in value_set^ then
begin
result:=i;
exit;
end;
i:=0;
while i<=tsetdef(resultdef).setmax do
begin
if i in value_set^ then
begin
result:=i;
exit;
end;
inc(i);
end;
end;
function tsetconstnode.high: AInt;
var
i: AInt;
i: ASizeInt;
begin
result:=0;
if not(assigned(value_set)) then
exit;
for i:=tsetdef(resultdef).setmax downto tsetdef(resultdef).setbase do
if i in value_set^ then
begin
result:=i;
exit;
end;
i:=tsetdef(resultdef).setmax;
while i>=tsetdef(resultdef).setbase do
begin
if i in value_set^ then
begin
result:=i;
exit;
end;
dec(i);
end;
end;