Generic Function

[vitya007]

Generic в функциях не поддерживаются?

Код: Выделить всё

program test;

type
  TTestType<T> = class
   v: T;
  public
   procedure Proc; virtual; abstract;
   procedure ProcT<T2>();
  end;
  
  TTestTypeSpec = TTestType<Single>;
   
procedure TTestType<T>.ProcT<T2>();
begin

end;
   
begin

end.

Код: Выделить всё

fpc.exe test.pas -MDelphi -WG -O4
test.pas(8,17) Fatal: Syntax error, ";" expected but "<" found

[zub]

На текущий момент нет. Оформите багрепорт.

[Дож]

Есть нечто в транке http://lists.freepascal.org/fpc-pascal/ ... 45746.html

[vitya007]

http://wiki.freepascal.org/Generics_proposals
Здесь тоже инфа, но не почему-то не могу заставить это работать

[zub]

Потому что вам в багтрекер.
Транк на этом вылетает с IE.

[Дож]

vitya007, proposal переводится как «предложение», на этой странице разработчики fpc записывали варианты синтаксиса для дженериков в паскале. Используя эту страницу трудно заставить что-то работать.

[vitya007]

vitya007, proposal переводится как «предложение», на этой странице разработчики fpc записывали варианты синтаксиса для дженериков в паскале. Используя эту страницу трудно заставить что-то работать.

Не обратил внимание. Смотрел код.
Ладно. Твоя ссылка

сть нечто в транке http://lists.freepascal.org/fpc-pascal/ ... 45746.html

Код: Выделить всё

program test;

{$mode objfpc}

generic function Add<T>(aLeft, aRight: T): T;
begin
   Result := aLeft + aRight;
end;

begin
   Writeln(specialize Add<String>('Generic ', 'routines') + specialize Add<String>(' with ', 'Free Pascal'));
end.

Код: Выделить всё

fpc.exe test.pas -O4
test.pas(5,1) Fatal: Syntax error, "BEGIN" expected but "identifier GENERIC" found

[Дож]

vitya007, не вижу версии fpc

[zub]

Код: Выделить всё

fpc.exe test.pas -O4
Free Pascal Compiler version 3.1.1 [2016/11/08] for i386
Copyright (c) 1993-2016 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling test.pas
Linking test.exe
11 lines compiled, 0.0 sec, 26736 bytes code, 1316 bytes data

Ты специально вырезал инфу про версию своего компилятора? чтоб было покороче и попонятней?

[vitya007]

Код: Выделить всё

fpc.exe test.pas -O4
Free Pascal Compiler version 3.1.1 [2016/11/08] for i386
Copyright (c) 1993-2016 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling test.pas
Linking test.exe
11 lines compiled, 0.0 sec, 26736 bytes code, 1316 bytes data

Ты специально вырезал инфу про версию своего компилятора? чтоб было покороче и попонятней?

Оказывается уже 3.1.1 есть.
PS. в следующий раз буду больше выкладывать.

Добавлено спустя 30 секунд:
Странно, а где ты ее взял?

[zub]

Снизу

[vitya007]

http://freepascal.org/download.var
Почему тут нету?
И где 3.1.1 скачать?

[zub]

http://svn.freepascal.org/svn/fpc/trunk

[vitya007]

http://svn.freepascal.org/svn/fpc/trunk

что-то я не пойму как собрать это

[vitya007]

Так, а кто знает как засунуть generic function в class ?

Код: Выделить всё

program test;

type
   generic TFClass<TC> = class
      generic function Res<TF>(): TF;
   end;
   
   generic function TFClass.Res<TF>: TF;
   begin
   
   end;

begin

end.

Код: Выделить всё

FPC 3.1.1
fpc.exe test.pas -Mobjfpc -O4
test.pas(5,27) Fatal: Internal error 200511173