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

fix #2584

Browse source
This commit is contained in:
Ivan Bondarev 2021-12-22 20:50:03 +01:00
parent 24a40ea8c0
commit 8de0dd15b5
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
TestSuite/shortstring3.pas Normal file
View file

@ -0,0 +1,6 @@
begin
var s: string[1];
var s0: string := nil;
s := s0;
assert(s = '');
end.

4
bin/Lib/PABCSystem.pas
View file

@ -13677,7 +13677,9 @@ end;
[System.Diagnostics.DebuggerStepThrough] [System.Diagnostics.DebuggerStepThrough]
function ClipShortString(s: string; len: integer): string; function ClipShortString(s: string; len: integer): string;
begin begin
if s.Length <= len then if s = nil then
Result := ''
else if s.Length <= len then
Result := s Result := s
else Result := s.Substring(0, len); else Result := s.Substring(0, len);
end; end;