View source for Compile FreePascal on device

[http://freepascal.org FreePascal compiler] is a free compiler for the various Pascal dialects. There is also a project [http://lazarus.freepascal.org Lazarus] which provides a Delphi-like IDE for the FreePascal compiler. This article describes how to compile and install FreePascal compiler right on the device (currently [[Nokia N900|N900]] only, still have troubles to successfully compile it on my [[Nokia N810|N810]]). You may need a lot of space, so it is very useful to [[Ext2 on microSD card|format an external SD card as ext2 or ext3]].

==Bootstrapping==

First we need to get a working copy of fpc for ARM EABI. Currently, it is possible to get only ARB OABI version at the FreePascal web site. (version 2.2.2)

That's why we need to compile an ARM version of the compiler on the GNU/Linux PC first, then transfer it to the Nokia device, and compile the full compiler distribution there.
<ol>
<li>
First you need to have fpc installed on your GNU/Linux box.
</li>
<li>
Then, download fpc source with svn.
<pre>
svn checkout http://svn.freepascal.org/svn/fpc/trunk fpc
</pre>
</li>
<li>
You also need cross binutils for ARM. Let's compile it like this:
<pre>
mkdir binutils
cd binutils
BINUTILS=binutils-2.20.1
wget http://ftp.gnu.org/gnu/binutils/$BINUTILS.tar.bz2
tar jxvf $BINUTILS.tar.bz2
cd $BINUTILS
./configure --prefix=/opt/binutils-arm-eabi --target=arm-none-eabi --with-gnu-as
 --with-gnu-ld
make
make install
ln -s /opt/binutils-arm-eabi/bin/arm-none-eabi-as /opt/binutils-arm-eabi/bin/arm
-linux-as
ln -s /opt/binutils-arm-eabi/bin/arm-none-eabi-ld /opt/binutils-arm-eabi/bin/arm
-linux-ld
</pre>
</li>
<li>
Then, export PATH so it will contain your binutils path first
<pre>
export PATH=/opt/binutils-arm-eabi/bin:$PATH
</pre>
</li>
<li>
Now we can compile fpc for ARM EABI. Go to fpc svn directory and run:
<pre>
make all PREFIX=/opt/fpc-arm OS_TARGET=linux CPU_TARGET=arm OPT="-dFPC_ARMEL"
</pre>
</li>
<li>
After successful compilation you will get "ppcarm" binary in the "compiler" folder inside fpc source tree.
<pre>
noch@hactar:~/freepascal/svn/fpc/compiler$ file ppcarm
ppcarm: ELF 32-bit LSB executable, ARM, version 1 (SYSV), statically linked, stripped
</pre>
</li>
<li>
Now it's time to scp ppcarm to the Nokia Maemo device, and compile with it sources there. From this point we work only on Maemo. I assume that you have <code>openssh-server</code> installed. You will also need the following packages:
<ul>
<li><code>subversion</code> - to get fpc source tree</li>
<li><code>binutils</code> - to get GNU assembler and linker</li>
<li><code>diffutils-gnu</code> - fpc needs "diff" to compile itself</li>
<li><code>coreutils-gnu</code> - contains, "install" command, needed to run "make install"</li>
</ul>

For Diablo, I found "diffutils" package in the [http://www.gronmayer.com/it/dl.php?id=224 Dayless] repository at the  [http://www.gronmayer.com/it gronmayer] repository list.

<pre>
# dpkg -L diffutils-gnu | grep bin
/usr/bin
/usr/bin/gnu
/usr/bin/gnu/cmp
/usr/bin/gnu/diff
/usr/bin/gnu/diff3
/usr/bin/gnu/sdiff
/usr/bin/gcmp
/usr/bin/gsdiff
/usr/bin/gdiff3
/usr/bin/gdiff
</pre>
</li>
<li>
Because fpc needs "diff" executable, then there's two options. Whether to add <code>/usr/bin/gnu</code> to the <code>PATH</code>:
<pre> export PATH=/usr/bin/gnu:$PATH</pre>
or create a symlink to <code>gdiff</code> in <code>/usr/bin</code>
<pre>ln -s /usr/bin/gdiff /usr/bin/diff</pre>
</li>
<li>
There is a linker problem like
<pre>
./link.res: file format not recognized; treating as linker script
./link.res:281: syntax error
pp.pas(209,27) Error: Error while linking
pp.pas(209,27) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted 
</pre>
In order to avoid this, go to <code>compiler/systems</code> and change <code>t_linux.pas</code> so that it contain path to the <code>/lib/ld-linux.so.3</code> instead of <code>/lib/ld-linux.so.2</code>, because we do not have <code>/lib/ld-linux.so.2</code> on Maemo 4 and Maemo 5. This is a [[http://free-pascal-general.1045716.n5.nabble.com/FreePascal-on-ARM-Linux-SoftFloat-and-EABI-issues-td2819338.html quote]] from the freepascal mailing list:
<pre>
> also although it creates an EABI 4 executable correctly there is a
> problem with fpc-svn/compiler/systems/t_linux.pas that sticks the wrong
> dynamic linker name in the file. I fixed it with this...
>
>
> {$ifdef arm}
>     {$ifdef FPC_ARMEL}
>          defdynlinker:='/lib/ld-linux.so.3';
>     {$else} 
</pre>
</li>
<li>
So, change to the fpc source directory and run:
<pre>
make clean all PP=/path/to/newlycopied/ppcarm PREFIX="/opt/fpc-svn" OPT="-dFPC_ARMEL -O- -dFPC_ABI_EABI"
</pre>
</li>
<li>
If you have compilation error like this
<pre>
__missing_command_DATA2INC fpc
</pre>
it means compiler cannot find "data2inc" file and we need to provide path for that, so the command is
<pre>
make clean all PP=/path/to/newlycopied/ppcarm DATA2INC="/path/to/fpc_source/utils/data2inc" PREFIX="/opt/fpc-svn" OPT="-dFPC_ARMEL -O- -dFPC_ABI_EABI"
</pre>
Then, make install with the same options
<pre>
make install PP=/path/to/newlycopied/ppcarm PREFIX="/opt/fpc-svn" OPT="-dFPC_ARMEL -O- -dFPC_ABI_EABI"
</pre>
</li>
</ol>

==Creating config==

Now, we have a working compiler in <code>/opt/fpc-svn/bin</code>. But there are no config file, so it won't work.
<ol>
<li>
In order to create a config file, do:
<pre>
/opt/fpc-svn/bin/fpcmkcfg -d basepath=/opt/fpc-svn/lib/fpc/2.5.1/ -o /etc/fpc.cfg
</pre>
</li>
<li>
It is also necessary to have correct path:
<pre>
export PATH=/opt/fpc-svn/lib/fpc/2.5.1:/opt/fpc-svn/bin:$PATH
</pre>
Second directory contains ppcarm binary, which is necessary for compilation.
</li>
</ol>
This is it, now you have a working FreePascal compiler on Maemo. Next step is to install Lazarus, so you will be able to compile Lazarus created sources right on the device.

==Compile Lazarus==

Get the source:
<pre>
svn co http://svn.freepascal.org/svn/lazarus/trunk lazarus
</pre>

Lazarus compilation will fail with the binutils of Maemo 5. Thus we need to compile newer binutils and we need gcc for it.

<ol>
<li>
Add SDK repository to the apt config
<pre>vi /etc/apt/sources.list.d/dev.list</pre>
<pre>deb http://repository.maemo.org fremantle/sdk free non-free</pre>
DO NOT UPGRADE YOUR SYSTEM WITH THIS CONFIG LINE ENABLED!
</li>
<li>
<pre>
apt-get update
apt-get install gcc autoconf automake1.9 libtool flex bison gdb automaken libltdl3-dev
</pre>
</li>
<li>
At this point I also have gettext installed.
<pre>
apt-get install gettext
</pre>
</li>
<li>
Dependencies for lazarus:
<pre>apt-get install libgtk2.0-dev libgpmg1-dev libncurses5-dev</pre>
It will compile, but won't link without them.
</li>
<li>
Now install binutils. For that you also need <code>tar-gnu</code> and <code>bzip2</code> packages:
<pre>
apt-get install tar-gnu bzip2
</pre>
</li>
<li>
I use the following script:
<source lang="bash">
#!/bin/bash
BINUTILS=binutils-2.20.1
rm -rf $BINUTILS
wget -c http://ftp.gnu.org/gnu/binutils/$BINUTILS.tar.bz2
/usr/bin/gnu/tar -jxvf binutils-2.20.1.tar.bz2  
cd $BINUTILS                                                                    
./configure --prefix=/opt/binutils-arm-eabi --target=arm-none-eabi --with-gnu-as
make        
make install                                                                    
ln -s /opt/binutils-arm-eabi/bin/arm-none-eabi-as /opt/binutils-arm-eabi/bin/arm
ln -s /opt/binutils-arm-eabi/bin/arm-none-eabi-ld /opt/binutils-arm-eabi/bin/arm
</source>
</li>
<li>
Update the <code>PATH</code> environment variable so it contain newly installed binutils at first place:
<pre>
export PATH=/opt/binutils-arm-eabi/bin:$PATH
</pre>
or if fpc is not currently in the path in this terminal, then
<pre>export PATH=/opt/binutils-arm-eabi/bin:/opt/fpc-svn/lib/fpc/2.5.1:/opt/fpc-svn/bin:$PATH</pre>
</li>
<li>
cd into lazarus directory
<pre>
make clean all
</pre>
if it fails with
<pre>
Need "lazarus_0.9.31.orig.tar.gz" to build for DEBBUILD = ""
</pre>
then you will be able to compile it with
<pre>
make DEBUSESVN=1 clean all
</pre>

if it still fails with
<pre>
make -C ide ide
make[1]: Entering directory `/media/mmc1/noch/src/freepascal/lazarus-svn-2011-02-10/ide'
../tools/svn2revisioninc .. revision.inc
make[1]: *** [revisioninc] Segmentation fault
make[1]: Leaving directory `/media/mmc1/noch/src/freepascal/lazarus-svn-2011-02-10/ide'
make: *** [ide] Error 2
</pre>
then according to [http://bugs.freepascal.org/bug_view_page.php?bug_id=18271 this] link it could be solved by USESVN2REVISIONINC=0
<pre>
make LCL_PLATFORM=gtk USESVN2REVISIONINC=0 DEBUSESVN=1 clean all
</pre>
</li>
</ol>

==Compile on device==

This script will help you to compile your application on device.
<pre>
ARCH="arm-linux"
LAZARUS="/media/mmc1/noch/lazarus"
fpc project1.lpr -MObjFPC -Scgi -O1 -gl -WG -vewnhi -l -Fu$LAZARUS/lcl/units/$ARCH/ -Fu$LAZARUS/lcl/units/$ARCH/gtk2/ -Fu$LAZARUS/packager/units/$ARCH/ -Fu. -oproject1 -dLCL -dLCLgtk2
</pre>

Now it is possible to run it :)

Actually, you may need a longer compile line, to find out that, click on "Show options" button in Project -> Compiler Options, and change the line correspondingly, by replacing ARCH and LAZARUS paths.

[[Category:N8x0]]
[[Category:N900]]
[[Category:Development]]