paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 07:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed version of fpc_pchar_length() for JVM (the generic one passes

Browse Source 
p^ to indexbyte, and since indexbyte takes an open array parameter
    on the JVM platform rather than an untyped var, this was converted
    to a single element array rather than passing in p unmodified)

git-svn-id: trunk@33568 -
This commit is contained in:
Jonas Maebe 2016-04-28 20:33:09 +00:00
parent 162c4ef6f3
commit 6e2523b199
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/jvm/jvm.inc
View File

@ -274,6 +274,17 @@ function IndexWord(const buf: array of jchar;len:SizeInt;b:jshort):SizeInt;
String String
****************************************************************************} ****************************************************************************}
{$define FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
function fpc_pchar_length(p:pchar):sizeint;[public,alias:'FPC_PCHAR_LENGTH']; compilerproc;
begin
if assigned(p) then
Result:=IndexByte(TAnsiCharArray(p),high(Result),0)
else
Result:=0;
end;
{$define FPC_SYSTEM_HAS_FPC_PCHAR_TO_SHORTSTR} {$define FPC_SYSTEM_HAS_FPC_PCHAR_TO_SHORTSTR}
procedure fpc_pchar_to_shortstr(out res : shortstring;p:pchar); compilerproc; procedure fpc_pchar_to_shortstr(out res : shortstring;p:pchar); compilerproc;
var var