diff -r 95d565991edd -r 6bcc36225162 hedgewars/hwLibrary.pas --- a/hedgewars/hwLibrary.pas Tue Oct 04 17:18:25 2011 +0200 +++ b/hedgewars/hwLibrary.pas Tue Oct 04 19:20:42 2011 +0200 @@ -17,26 +17,31 @@ *) Library hwLibrary; - +{$INCLUDE "options.inc"} -// Add all your Pascal units to the "uses" clause below to add them to the program. +// Add all your Pascal units to the 'uses' clause below to add them to the program. // Mark all Pascal procedures/functions that you wish to call from C/C++/Objective-C code using -// "cdecl; export;" (see the fpclogo.pas unit for an example), and then add C-declarations for -// these procedures/functions to the PascalImports.h file (also in the "Pascal Sources" group) +// 'cdecl; export;' (see the fpclogo.pas unit for an example), and then add C-declarations for +// these procedures/functions to the PascalImports.h file (also in the 'Pascal Sources' group) // to make these functions available in the C/C++/Objective-C source files -// (add "#include PascalImports.h" near the top of these files if it's not there yet) +// (add '#include PascalImports.h' near the top of these files if it is not there yet) uses PascalExports, hwengine{$IFDEF ANDROID}, jni{$ENDIF}; exports Game, HW_versionInfo; {$IFDEF ANDROID} function JNI_HW_versionInfoNet(env: PJNIEnv; obj: JObject):JInt;cdecl; begin - JNI_HW_versionInfoNet := cNetProtoVersion; + env:= env; // avoid hint + obj:= obj; // avoid hint + JNI_HW_versionInfoNet:= cNetProtoVersion; end; function JNI_HW_versionInfoVersion(env: PJNIEnv; obj: JObject):JString; cdecl; +var envderef : JNIEnv; begin - JNI_HW_versionInfoVersion := env^.NewStringUTF(env, PChar(cVersionString)); + obj:= obj; // avoid hint + envderef:= @env; + JNI_HW_versionInfoVersion := envderef^.NewStringUTF(env, PChar(cVersionString)); end; exports