Lazarus
Free Pascal => General => Topic started by: AlexTP on March 04, 2021, 07:21:34 pm
Title:
[Solved] Is it FGL unit error?
Post by:
AlexTP
on
March 04, 2021, 07:21:34 pm
https://github.com/graemeg/freepascal/blob/master/rtl/objpas/fgl.pp
Code: Pascal
[Select]
[+]
[-]
class
function
TFPGList
.
ItemIsManaged
:
Boolean
;
begin
{$IFNDEF VER3_0}
Result
:
=
IsManagedType
(
T
)
;
{$ELSE}
Result
:
=
True
;
// Fallback to old behaviour
{$ENDIF}
end
;
Here IsManagedType is called for older FPC before 3.0? is it correct?
Title:
Re: Is it FGL unit error?
Post by:
Bart
on
March 04, 2021, 08:54:23 pm
Weel, since pre-3.0 is not supported anymore, this is OK.
It simply won't compile in 2.x.
Bart
Title:
Re: Is it FGL unit error?
Post by:
marcov
on
March 04, 2021, 09:02:34 pm
I wonder about the use of this if it is virtual method anyway :)
Title:
Re: Is it FGL unit error?
Post by:
AlexTP
on
March 04, 2021, 09:12:04 pm
Don't we need to use
Result:=IsManagedType(T);
for 3.2 and 3.3? Now it's failed to do so.
Title:
Re: Is it FGL unit error?
Post by:
Bart
on
March 04, 2021, 09:40:41 pm
ver3_0 is not defined for 3.2 I would guess, so it would indeed use IsManagedType?
Bart
Title:
Re: Is it FGL unit error?
Post by:
AlexTP
on
March 04, 2021, 10:13:41 pm
Sorry, my bad, It's OK.
TinyPortal
© 2005-2018