Explorar o código

Fix FPC bug caused by local var not initialized

PascalCoin %!s(int64=4) %!d(string=hai) anos
pai
achega
3186d497b6
Modificáronse 1 ficheiros con 1 adicións e 2 borrados
  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);