Browse Source

Fix FPC bug caused by local var not initialized

PascalCoin 4 years ago
parent
commit
3186d497b6
1 changed files with 1 additions and 2 deletions
  1. 1 2
      src/core/UEPasa.pas

+ 1 - 2
src/core/UEPasa.pas

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