Merge branch 'master' of github.com:pascalabcnet/pascalabcnet

Configuration/GlobalAssemblyInfo.cs

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

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=2
-%REVISION%=1488
+%REVISION%=1492
 %COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.2.0.1488'
+!define VERSION '3.2.0.1492'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -3264,15 +3264,25 @@ end;
 /// Повторяет символ c n раз
 function char.operator*(c: char; n: integer): string;
 begin
+  if n<=0 then
+  begin
+    Result := '';
+    exit;
+  end;
   var sb := new StringBuilder(n,n);
   loop n do
     sb.Append(c);
-  result := sb.ToString;
+  Result := sb.ToString;
 end;
 
 /// Повторяет символ c n раз
 function char.operator*(n: integer; c: char): string;
 begin
+  if n<=0 then
+  begin
+    Result := '';
+    exit;
+  end;
   var sb := new StringBuilder(n,n);
   loop n do
     sb.Append(c);

bin/Lib/PABCSystem.pas

@@ -3264,15 +3264,25 @@ end;
 /// Повторяет символ c n раз
 function char.operator*(c: char; n: integer): string;
 begin
+  if n<=0 then
+  begin
+    Result := '';
+    exit;
+  end;
   var sb := new StringBuilder(n,n);
   loop n do
     sb.Append(c);
-  result := sb.ToString;
+  Result := sb.ToString;
 end;
 
 /// Повторяет символ c n раз
 function char.operator*(n: integer; c: char): string;
 begin
+  if n<=0 then
+  begin
+    Result := '';
+    exit;
+  end;
   var sb := new StringBuilder(n,n);
   loop n do
     sb.Append(c);