Generics in FPC 2.6: Compiler bricht einfach ab

[Memnarch]

Nabend,
Hatte überlegt im weiteren verlauf der Entwicklung meines D16Pascal-SDKs zumindest den Compiler crossplattform als commandozeilentool zur verfügung zu stellen.

Dafür dachte ich an FreePascal. Und weil ich jede menge Generics(Meist TObjectList<T>) benutze, wollte ich dem ganzen hier gleich mal auf den Zahn fühlen. Und da stellt sich der Compiler gerade als ser ungesprächig raus und rennt einfach heulend weg

Folgender Source:

Delphi-Quellcode:

unit GenericTest;

{$MODE DELPHI}

interface

uses
  Classes, SysUtils;

type

  { TFoo }

  TFoo<_T> = class
  private

  public
    procedure Test();
  end;



implementation



{ TFoo<_T> }

procedure TFoo<_T>.Test;
begin

end;

end.

Delphi-Quellcode:

unit Main;

{$MODE DELPHI}
{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  GenericTest;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  LVar: TFoo<TObject>;
begin

end;

end.

Da bekomme ich nur "Main.pas(1,1): Compilation Aborted"

Nehme ich die methode Test aus TFoo wieder raus compilierts. Das verstehe ich gerade nicht o.O

[Union]

Vielleicht hilft es wenn Du die () hinter dem Prozedurnamen entfernst?

[Memnarch]

Nein, bringt nichts

[hoika]

Hallo,

fehltba nicht das generic vor dem TFoo ?


Heiko

[JamesTKirk]

Zitat von Memnarch:

Dafür dachte ich an FreePascal. Und weil ich jede menge Generics(Meist TObjectList<T>) benutze, wollte ich dem ganzen hier gleich mal auf den Zahn fühlen. Und da stellt sich der Compiler gerade als ser ungesprächig raus und rennt einfach heulend weg

Die FPC 2.6.x Serie hat noch ziemliche Probleme mit Delphi kompatiblen Generics. Du hast da zwei Möglichkeiten das zu lösen: entweder auf 2.7.1 gehen, in dem ich sehr viele Verbesserungen hinsichtlich Generics eingepflegt habe (es ist aber immer noch nicht perfekt, wie man auch sehen kann, wenn man im Bugtracker nach Bugs mit Tag generics sucht) oder du verwendest die FPC Syntax Variante, welche allerdings nur im Mode ObjFPC verfügbar ist und ein wenig anders zu verwenden ist, als die Delphi Variante (keine Inline Spezialisierungen zum Beispiel).
Was in beiden Fällen auf jeden Fall noch nicht geht sind generische Methoden. Die stehen in den nächsten Wochen auf meiner Liste

Gruß,
Sven

[implementation]

Delphi-Quellcode:

unit GenericTest;

{$MODE OBJFPC}

interface

uses
  Classes, SysUtils;

type

  { TFoo }

  generic TFoo<_T> = class
  private

  public
    procedure Test();
  end;



implementation



{ TFoo<_T> }

procedure TFoo.Test;
begin

end;

end.

Delphi-Quellcode:

unit Main;

{$MODE OBJFPC}
{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  GenericTest;

type
  TObjectFoo = specialize TFoo<TObject>;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  LVar: TObjectFoo;
begin

end;

end.

[Memnarch]

Ah danke James. Muss 2.71 selbst compiliert wrden oder gibt es davon auch schon binaries?

EDIT: ah ok. Trunk-Snapshot zum selber backen schon gefunden^^