paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 06:08:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: fixed compile

Browse Source
This commit is contained in:
mattias 2024-09-02 23:06:51 +02:00
parent 17b5893b04
commit daa9653962
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/propedits.pp
View File

@ -8750,7 +8750,7 @@ begin
PExtended(Field)^:=Value;
{$ifdef FPC_COMP_IS_INT64}
ftComp:
PComp(Instance)^:=trunc(Value);
PComp(Field)^:=trunc(Value);
{$else FPC_COMP_IS_INT64}
ftComp:
PComp(Field)^:=Comp(Value);