"Error: Illegal Expression" with generics

[deadserious]

I'm trying to get my cocinasync library to compile under freepascal trunk  (thanks to anonymous methods) and running into a problem instantiating a generic type.  Compile is failing on the following code in DELPHIUNICODE mode:

Code: Pascal  [Select][+][-]

1. class constructor TDefaultJob<T>.Create;
2. begin
3.   FPool := TStack<IJob<T>>.Create;
4. end;
5.  

The code compiles in Delphi just fine and can be found in the cocinasync.jobs unit.

[BildatBoffin]

just to be sure, mode delphi toogled on ?

[deadserious]

Yes, as stated in the original message it's in DELPHIUNICODE mode.

[deadserious]

Incidentally, I can get around the error by declaring a type alias as such...

Code: Pascal  [Select][+][-]

1.   TJobStack<T> = class(TStack<IJob<T>>)  
2.   end;
3.  

[Thaddy]

And fpc trunk/main a.k.a. 3.3.1 or 3.2.2/3.2.3 ?
I need more code to reproduce.

[deadserious]

Trunk/main since my library uses anonymous methods.

[Thaddy]

Code: Pascal  [Select][+][-]

1. //Both modeswitches in place?
2. {$modeswitch functionreferences}{$modeswitch anonymousfunctions}

[PascalDragon]

Code: Pascal  [Select][+][-]

1. class constructor TDefaultJob<T>.Create;
2. begin
3.   FPool := TStack<IJob<T>>.Create;
4. end;
5.  

FPC does not support nested inline specializations in mode Delphi yet. You should be able to do something like this which should also work in Delphi (not tested):

Code: Pascal  [Select][+][-]

1. class constructor TDefaultJob<T>.Create;
2. type
3.   IJobT = IJob<T>;
4. begin
5.   FPool := TStack<IJobT>.Create;
6. end;
7.  

[deadserious]

Code: Pascal  [Select][+][-]

1. class constructor TDefaultJob<T>.Create;
2. begin
3.   FPool := TStack<IJob<T>>.Create;
4. end;
5.  

FPC does not support nested inline specializations in mode Delphi yet. You should be able to do something like this which should also work in Delphi (not tested):

Code: Pascal  [Select][+][-]

1. class constructor TDefaultJob<T>.Create;
2. type
3.   IJobT = IJob<T>;
4. begin
5.   FPool := TStack<IJobT>.Create;
6. end;
7.  

If I wanted to try to fix this in the parser, do you have a hint as to where I should start looking?

[PascalDragon]

If I wanted to try to fix this in the parser, do you have a hint as to where I should start looking?

Don't. Just don't.