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

* pas2jni: Fixed the Pointer() support function.

Browse Source 
git-svn-id: trunk@28046 -
This commit is contained in:
yury 2014-06-24 10:52:14 +00:00
parent 41e8a0da2c
commit a27ea85560
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

@ -1286,7 +1286,7 @@ begin
Fjs.DecI; Fjs.DecI;
Fjs.WriteLn('}'); Fjs.WriteLn('}');
Fjs.WriteLn; Fjs.WriteLn;
Fjs.WriteLn('public static long Pointer(PascalObject obj) { return (obj == null) ? null : obj._pasobj; }'); Fjs.WriteLn('public static long Pointer(PascalObject obj) { return (obj == null) ? 0 : obj._pasobj; }');
// Record // Record
Fjs.WriteLn; Fjs.WriteLn;