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

* pas2jni: Fixed type cast for null.

Browse Source 
git-svn-id: trunk@32612 -
This commit is contained in:
yury 2015-12-07 19:31:15 +00:00
parent c797d6ac1e
commit df59776ff8
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

@ -1492,7 +1492,7 @@ begin
Fjs.WriteLn(Format('static { %s.system.InitJni(); }', [JavaPackage]));
Fjs.WriteLn('protected long _pasobj = 0;');
Fjs.WriteLn('protected PascalObject() { }');
Fjs.WriteLn('protected PascalObject(PascalObject obj) { _pasobj=obj._pasobj; }');
Fjs.WriteLn('protected PascalObject(PascalObject obj) { if (obj == null) _pasobj=0; else _pasobj=obj._pasobj; }');
Fjs.WriteLn('protected PascalObject(long objptr) { _pasobj=objptr; }');
Fjs.WriteLn('@Override public boolean equals(Object o) { return ((o instanceof PascalObject) && _pasobj == ((PascalObject)o)._pasobj); }');
Fjs.WriteLn('@Override public int hashCode() { return (int)_pasobj; }');