paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 21:48:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disable MemPos on JVM.

Browse Source
This commit is contained in:
Rika Ichinose 2025-02-10 20:29:40 +03:00 committed by Michael Van Canneyt
parent c3f80014b4
commit 840df7e243
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/generic.inc
View File

@ -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;