paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 02:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compiler warning

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-02-04 13:09:33 +01:00
parent eaf665e8c4
commit 15b49f4609
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/basenenc.pp
View File

@ -108,6 +108,7 @@ Var
L : Integer;
begin
Result:='';
L:=Length(B);
SetLength(Result,L);
If L>0 then
@ -120,6 +121,7 @@ Var
L : Integer;
begin
Result:=[];
L:=Length(S);
SetLength(Result,L);
If L>0 then