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

3.9.0.3461

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-04-23 21:13:01 +03:00
parent 9f9c2a85bd
commit e0085ece15
5 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "9";
public const string Build = "0";
public const string Revision = "3460";
public const string Revision = "3461";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=3460
%MINOR%=9
%REVISION%=3461
%COREVERSION%=0
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3460
3.9.0.3461

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3460'
!define VERSION '3.9.0.3461'

21
TestSuite/CompilationSamples/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