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

* pas2jni: TClass helper must be generated only for the system unit.

Browse Source 
git-svn-id: trunk@40462 -
This commit is contained in:
yury 2018-12-04 13:07:05 +00:00
parent 78b3b8ee4e
commit 1cc3c199c8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/pas2jni/writer.pas
View File

@ -2075,7 +2075,7 @@ begin
end; end;
// Class ref helpers // Class ref helpers
if FClasses.IndexOf('system.TClass', nil) >= 0 then begin if (u.Name = 'system') and (FClasses.IndexOf('system.TClass', nil) >= 0) then begin
Fjs.WriteLn('native static long GetClassRef(int index);'); Fjs.WriteLn('native static long GetClassRef(int index);');
AddNativeMethod(u, '_GetClassRef', 'GetClassRef', '(I)J'); AddNativeMethod(u, '_GetClassRef', 'GetClassRef', '(I)J');
Fjs.WriteLn('static TClass GetTClass(int index) { TClass c = new TClass(null); c._pasobj=GetClassRef(index); return c; }'); Fjs.WriteLn('static TClass GetTClass(int index) { TClass c = new TClass(null); c._pasobj=GetClassRef(index); return c; }');