paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:19:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pas2jni: Typecast interface to pointer.

Browse Source 
git-svn-id: trunk@32616 -
This commit is contained in:
yury 2015-12-07 23:32:22 +00:00
parent 2206a54b28
commit f6b99c5d6a
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
utils/pas2jni/writer.pas
View File

@ -1853,10 +1853,14 @@ begin
Result:=Format('_StringToJString(_env, _JNIString(GUIDToString(%s)))', [Result]); Result:=Format('_StringToJString(_env, _JNIString(GUIDToString(%s)))', [Result]);
end; end;
dtClass: dtClass:
if TClassDef(d).CType in [ctObject, ctRecord] then case TClassDef(d).CType of
Result:=Format('_%s_CreateObj(_env, %s)', [GetClassPrefix(d), Result]) ctObject, ctRecord:
else Result:=Format('_%s_CreateObj(_env, %s)', [GetClassPrefix(d), Result]);
Result:=Format('_CreateJavaObj(_env, %s, %s)', [Result, GetTypeInfoVar(d)]); ctInterface:
Result:=Format('_CreateJavaObj(_env, pointer(%s), %s)', [Result, GetTypeInfoVar(d)]);
else
Result:=Format('_CreateJavaObj(_env, %s, %s)', [Result, GetTypeInfoVar(d)]);
end;
dtProcType: dtProcType:
Result:=Format('_CreateMethodPtrObject(_env, TMethod(%s), %s)', [Result, GetTypeInfoVar(d)]); Result:=Format('_CreateMethodPtrObject(_env, TMethod(%s), %s)', [Result, GetTypeInfoVar(d)]);
dtEnum: dtEnum: