administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

don't use Array.Empty (#3089)

Browse source
This commit is contained in:
Sun Serega 2024-04-23 10:47:20 +03:00 committed by GitHub
parent 1e66c4d740
commit 0c74dc0b12
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
bin/Lib/PABCSystem.pas
View file

@ -4180,10 +4180,10 @@ function operator implicit(s: string): StringBuilder; extensionmethod := new Str
type
ObjectToStringUtils = static class
static procedure MethodToString(mi: System.Reflection.MethodInfo; write_sub_names: boolean; res: TextWriter);
const lambda_name='lambda';
const sugar_name_begin='<>';
const par_separator = ', ';
public static procedure MethodToString(mi: System.Reflection.MethodInfo; write_sub_names: boolean; res: TextWriter);
const lambda_name='lambda';
const sugar_name_begin='<>';
const par_separator = ', ';
begin
var rt := mi.ReturnType;
if rt=typeof(Void) then rt := nil;
@ -4231,8 +4231,9 @@ type
end;
static procedure ContentsToString(o: Object; prev: Stack<object>; res: TextWriter);
const val_sep = '; ';
private static empty_obj_arr := new object[0];
public static procedure ContentsToString(o: Object; prev: Stack<object>; res: TextWriter);
const val_sep = '; ';
begin
res.Write('(');
var any_vals := false;
@ -4275,7 +4276,7 @@ type
res.Write('=');
var val: object;
try
val := mi.Invoke(o, &Array.Empty&<object>);
val := mi.Invoke(o, empty_obj_arr);
except
on e: System.Reflection.TargetInvocationException do
val := e.InnerException.ToString;
@ -4286,7 +4287,7 @@ type
res.Write(')');
end;
static procedure Append(o: Object; prev: Stack<object>; res: TextWriter);
public static procedure Append(o: Object; prev: Stack<object>; res: TextWriter);
begin
if prev.Contains(o) then
begin
@ -4299,8 +4300,8 @@ type
if prev.Pop<>o then raise new InvalidOperationException;
end;
static procedure AppendImpl(o: Object; prev: Stack<object>; res: TextWriter);
const max_seq_len = 100;
public static procedure AppendImpl(o: Object; prev: Stack<object>; res: TextWriter);
const max_seq_len = 100;
begin
if o = nil then
begin