mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
7dfaec7a05
* pdecsub.pas, parse_proc_dec & pdecobj.pas, constructor_head:
correctly set the return type of the constructor of a class helper to the extended def
* psub.pas, generate_bodyentry_block:
call the NEWINSTANCE of the extended class for constructors of class helpers
git-svn-id: trunk@21582 -
25 lines
406 B
ObjectPascal
25 lines
406 B
ObjectPascal
unit tw21457;
|
|
{$mode objfpc}
|
|
interface
|
|
uses Classes;
|
|
|
|
Type
|
|
TFileStreamHelper = class helper for TFileStream
|
|
public
|
|
constructor CreateRetry(const AFileName: string; Mode: Word; Rights: Cardinal);
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{ TFileStreamHelper }
|
|
|
|
constructor TFileStreamHelper.CreateRetry(const AFileName:string; Mode:Word; Rights: Cardinal);
|
|
begin
|
|
//TODO
|
|
//=> internal error 200305103
|
|
end;
|
|
|
|
|
|
end.
|