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

* pas2jni: Handle null objects in the Pointer() support function.

Browse Source 
git-svn-id: trunk@28043 -
This commit is contained in:
yury 2014-06-24 09:49:09 +00:00
parent db011dfb7a
commit 045429327b
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._pasobj; }'); Fjs.WriteLn('public static long Pointer(PascalObject obj) { return (obj == null) ? null : obj._pasobj; }');
// Record // Record
Fjs.WriteLn; Fjs.WriteLn;