mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 11:24:14 +02:00
* fix #40293: have the SysUtils unit use the TArray<> declaration in the ObjPas unit instead of declaring it again
This commit is contained in:
parent
462536ca9b
commit
d24eeffa2b
@ -1,7 +1,6 @@
|
||||
{%mainunit syshelpers.pp}
|
||||
|
||||
Type
|
||||
generic TArray<T> = array of T;
|
||||
TStringArray = Array of string;
|
||||
TCharArray = Array of char;
|
||||
TEndian = ObjPas.TEndian;
|
||||
|
26
tests/webtbs/tw40293.pp
Normal file
26
tests/webtbs/tw40293.pp
Normal file
@ -0,0 +1,26 @@
|
||||
unit tw40293;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
type
|
||||
ftest1 = class
|
||||
private
|
||||
procedure setValue(value: specialize TArray<String>);
|
||||
function getValue(): specialize TArray<String>;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses sysutils; // compile error if uncommented
|
||||
|
||||
procedure ftest1.setValue(value: specialize TArray<String>);
|
||||
begin
|
||||
end;
|
||||
|
||||
function ftest1.getValue(): specialize TArray<String>;
|
||||
begin
|
||||
end;
|
||||
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user