Просмотр исходного кода

Fix FPC bug caused by local var not initialized

PascalCoin 4 лет назад
Родитель
Сommit
3186d497b6
1 измененных файлов с 1 добавлено и 2 удалено
  1. 1 2
      src/core/UEPasa.pas

+ 1 - 2
src/core/UEPasa.pas

@@ -482,10 +482,9 @@ var
   LExtendedChecksumDelim, LExtendedChecksum, LActualChecksum: String;
   LAccNo, LAccChecksum: UInt32;
   LActualAccountChecksum: Byte;
-  LEPasa : TEPasa;
 begin
   AErrorCode := EPasaErrorCode.Success;
-  AEPasa := LEPasa;
+  AEPasa := TEPasa.Empty;
   if (string.IsNullOrEmpty(AEPasaText)) then begin
     AErrorCode := EPasaErrorCode.BadFormat;
     Exit(False);