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

* pas2jni: Fixed code generation for i386 targets.

Browse Source 
git-svn-id: trunk@32539 -
This commit is contained in:
yury 2015-11-26 19:21:04 +00:00
parent 6f8e9ad23e
commit 3e894e592d
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

@ -2135,7 +2135,7 @@ begin
Fps.WriteLn('end;');
Fps.WriteLn;
Fps.WriteLn('function _AllocMemory(env: PJNIEnv; jobj: jobject; size: jint): jlong;');
Fps.WriteLn('function _AllocMemory(env: PJNIEnv; jobj: jobject; size: jint): jlong;' + JniCaliing);
Fps.WriteLn('var p: pointer;');
Fps.WriteLn('begin');
Fps.WriteLn('GetMem(p, size);', 1);