mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
d87b203a0a
* pparautl.pas, insert_funcret_para:
assume that the result in a generic function/method can not be passed in a param
* pparautl.pas, insert_funcret_local:
don't call ret_in_param, but create the symbol as we need a valid funcretsym
* pstatmnt.pas, assembler_block:
don't modify the framepointer for a generic method/function
* rautils.pas, TOperand.SetupResult:
don't assume that we can't use the result for a generic function/method
git-svn-id: trunk@21608 -
29 lines
472 B
ObjectPascal
29 lines
472 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw21921;
|
|
|
|
{$mode Delphi}{$H+}
|
|
|
|
type
|
|
|
|
{ THashEntry }
|
|
|
|
THashEntry<T> = record
|
|
Key: string;
|
|
Value: T;
|
|
class function Create(const AKey: string; const AValue: T): THashEntry<T>; static; inline;
|
|
end;
|
|
|
|
class function THashEntry<T>.Create(const AKey: string; const AValue: T): THashEntry<T>;
|
|
begin
|
|
Result.Key := AKey;
|
|
Result.Value := AValue;
|
|
end;
|
|
|
|
var
|
|
Entry: THashEntry<Integer>;
|
|
begin
|
|
Entry := THashEntry<Integer>.Create('One', 1);
|
|
end.
|
|
|