Re: [fpc-pascal] Re: android share library with classes unit

[darekm]

 I use this binutils http://www.gnu.org/software/binutils/
 using this command to build crosscompiler

 make clean crossinstall CPU_TARGET=arm OS_TARGET=linux
 CROSSBINDIR=/usr/share/fpcsrc/binutils/ OPT=-dFPC_ARMEL -O- -gl
 CROSSOPT=-dANDROID -CpARMv6 -gl -CfSOFT -O-

CROSSOPT=-dANDROID -CpARMv6  -dFPC_ARMEL 


I've trace Your debug log.  Bug is on line  where library is loaded.
It seems be corrupted. I always had once more line with absent of dlopen

D/dalvikvm( 1082): Trying to load lib
/data/data/com.herux.hellojni/lib/libhellojni.so 0x44e7ea48

here something with dlopen, I don't remember exactly.
^^^
I/DEBUG   (   31): *** *** *** *** *** *** *** *** *** *** *** *** *** ***
*** ***


Darek

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] assigning ansistring with shortstring

[DarekM]

L505 napisał(a):

I'm lacking some memory concept here. Below program doesn't work unless 
setlengths
are called first on the shortstrings.

program Project1;

{$mode objfpc}{$H+}

var
  filename: string;
  last3: string[3];
  last4: string[4];
  

this is not short strings
use
last3: shortstring[3];



begin
  filename:= 'test';
  filename:= filename+ 'ing.pas';
  setlength(last3, 3);
  last3[1]:= filename[length(filename)-2];
  last3[2]:= filename[length(filename)-1];
  last3[3]:= filename[length(filename)];
  writeln('debug last3: ' + last3);
  setlength(last4, 4);
  last4[1]:= filename[length(filename)-3];
  last4[2]:= filename[length(filename)-2];
  last4[3]:= filename[length(filename)-1];
  last4[4]:= filename[length(filename)];
  writeln('debug last4: ' + last4);
  readln;
end.


I'd never have thought to use a setlength on a shortstring???




___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

  

Darek
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

[fpc-pascal] hot pass $LCL_PLATFORM to fpc.cfg from command line

[darekM]

Hi
 I want to pass directive from command line to fpc.cfg

 in fpc.cfg I have something like this

-Fu/home/me/project1/units/$LCL_PLATFORM


and I want to compile my program form command line


fpc -dRELEASE myprogram


how setup $LCL_PLATFORM


Darek




___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

[fpc-pascal] ASM jump parse error

[darekM]

Hi
 I've badly submit 4612 bug

Should be:
Title:ASM jump parse error


in Description:

in assembler fastcodemoveunit.pas(214,34)
Error: Unknown identifier @FWDJUMPTABLE fastcodemoveunit.pas(256,21)
Error: Local symbols/labels aren't allowed as references F

 in Linux FPC can't compile line:
 jmpdword ptr [EMAIL PROTECTED]
under WIN it pass



sorry.

Darek
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal