mORMot Open Source

dec12

Member

Registered: 2016-11-30

Posts: 4

Compiliation rasied exception internally at result:= Default(T) of fgl

When compiling the unit fgl,

function TFPGList.GetLast: T;
begin
  if FCount<>0 then
    Result := T(inherited GetLast^)
  else
    result:=Default(T);   {<--Compiliation rasied exception internally }
end;
   
I am using the latest NewPascal distributions for Windows downloaded on Nov 30, 2016

Anyone has any idea?

Dennis

AOG

Member

Registered: 2014-02-24

Posts: 454

Re: Compiliation rasied exception internally at result:= Default(T) of fgl

Nop. My install is just 30 minutes old .... no problems with fgl !
Have you tried trunk ?

hnb

Member

Registered: 2015-06-15

Posts: 291

Re: Compiliation rasied exception internally at result:= Default(T) of fgl

Please provide more complex example or minimal test case. Is fgl used in project? It might be related to other FPC bug.

---

best regards,
Maciej Izak