mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-22 23:38:47 +02:00
* fixed compilation of 64-bit cross-compilers on 32 bit platforms
(mantis #31487) git-svn-id: trunk@35532 -
This commit is contained in:
parent
8bea3e0614
commit
a2bd07bfd6
@ -1149,7 +1149,7 @@ implementation
|
|||||||
|
|
||||||
function tsetconstnode.elements : AInt;
|
function tsetconstnode.elements : AInt;
|
||||||
var
|
var
|
||||||
i : AInt;
|
i : longint;
|
||||||
begin
|
begin
|
||||||
result:=0;
|
result:=0;
|
||||||
if not(assigned(value_set)) then
|
if not(assigned(value_set)) then
|
||||||
|
Loading…
Reference in New Issue
Block a user