* fix #40293: have the SysUtils unit use the TArray<> declaration in the ObjPas unit instead of declaring it again

This commit is contained in:
Sven/Sarah Barth 2023-06-03 18:10:45 +02:00
parent 462536ca9b
commit d24eeffa2b
2 changed files with 26 additions and 1 deletions

View File

@ -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
View 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.