[fpc-pascal] problem compiling svn-fpc for arm-linux

[Florian Klaempfl]

Koenraad Lelong wrote:
> Koenraad Lelong schreef:
>> Jonas Maebe schreef:
>>
> ...
>> /home/koenraad/fpc-devel/fpc/compiler/ppcrossarm -Ur -XParm-linux- -Xc
>> -Xr -Ur -Xs -O2 -n -Fi../inc -Fi../arm -Fi../unix -Fiarm -FE.
>> -FU/home/koenraad/fpc-devel/fpc/rtl/units/arm-linux -darm -dRELEASE
>> ../objpas/sysconst.pp
>> /home/koenraad/fpc-devel/fpc/compiler/ppcrossarm -Ur -XParm-linux- -Xc
>> -Xr -Ur -Xs -O2 -n -Fi../inc -Fi../arm -Fi../unix -Fiarm -FE.
>> -FU/home/koenraad/fpc-devel/fpc/rtl/units/arm-linux -darm -dRELEASE
>> -Fi../objpas/sysutils ../unix/sysutils.pp
>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/sysutils.s: Assembler
>> messages:
>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/sysutils.s:11815:
>> Error: offset too large -- `sfm f4,1,[r11,#-1152]'
>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/sysutils.s:11862:
>> Error: offset too large -- `lfm f4,1,[r11,#-1152]'
>> sysutils.pp(551,20) Error: Error while assembling exitcode 1
>> sysutils.pp(551,20) Fatal: There were 2 errors compiling module, stopping
>> Fatal: Compilation aborted
>> make[5]: *** [sysutils.ppu] Fout 1
>> make[5]: Leaving directory `/home/koenraad/fpc-devel/fpc/rtl/linux'
>> make[4]: *** [linux_all] Fout 2
>> make[4]: Leaving directory `/home/koenraad/fpc-devel/fpc/rtl'
>> make[3]: *** [rtl] Fout 2
>> make[3]: Leaving directory `/home/koenraad/fpc-devel/fpc/compiler'
>> make[2]: *** [cycle] Fout 2
>> make[2]: Leaving directory `/home/koenraad/fpc-devel/fpc/compiler'
>> make[1]: *** [compiler_cycle] Fout 2
>> make[1]: Leaving directory `/home/koenraad/fpc-devel/fpc'
>> make: *** [build-stamp.arm-linux] Fout 2
>> I'm going to look at this.
>> Regards,
>> Koenraad Lelong.
> I got past this error by modifying sysstr.inc (see the enclosed diff). I
> hope it's an acceptable patch.

No ;) It solves the problem but not the cause :) I'll look into it when
I find time ;)

> Now I'm having internal error 200203271 when compiling
> buildgtk2.pp/gtkspinbutton.inc. I'm going to look at that.
> Regards,
> Koenraad Lelong.
> 
> 
> ------------------------------------------------------------------------
> 
> Index: fpc/rtl/objpas/sysutils/sysstr.inc
> ===================================================================
> --- fpc/rtl/objpas/sysutils/sysstr.inc	(revision 3121)
> +++ fpc/rtl/objpas/sysutils/sysstr.inc	(working copy)
> @@ -1917,7 +1917,7 @@
>  Function FormatFloat(Const format: String; Value: Extended): String;
>  
>  Var
> -  buf : Array[0..1024] of char;
> +  buf : Array[0..1023] of char;
>  
>  Begin
>    Buf[FloatToTextFmt(@Buf[0],Value,Pchar(Format))]:=#0;
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal