Explorar o código

Workaround for FPC bug

Herman Schoenfeld %!s(int64=4) %!d(string=hai) anos
pai
achega
dd527052f8
Modificáronse 1 ficheiros con 4 adicións e 2 borrados
  1. 4 2
      src/core/UEPasa.pas

+ 4 - 2
src/core/UEPasa.pas

@@ -767,7 +767,9 @@ end;
 
 
 
 
 initialization
 initialization
-
+{$IFDEF FPC}
+FillChar(EmptyEPasa, SizeOf(EmptyEPASA), 0);
+{$ELSE}
 EmptyEPasa := Default(TEPasa);
 EmptyEPasa := Default(TEPasa);
-
+{$ENDIF}
 end.
 end.