Explorar o código

Disable MemPos on JVM.

Rika Ichinose hai 5 meses
pai
achega
840df7e243
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/inc/generic.inc

+ 1 - 1
rtl/inc/generic.inc

@@ -671,7 +671,7 @@ end;
 {$endif not FPC_SYSTEM_HAS_COMPARECHAR0}
 
 
-{$ifndef FPC_SYSTEM_HAS_MEMPOS_PBYTE}
+{$if not defined(FPC_SYSTEM_HAS_MEMPOS_PBYTE) and not defined(CPUJVM)}
 function MemPos(needle:PByte;nNeedle:SizeUint;haystack:PByte;nHaystack:SizeUint):SizeInt;
 var
   p,d,pmaxplus1,iNeedle : SizeUint;