[fpc-pascal]Free Pascal for ARM

[Jose Pascual]

Hi,
  
I'm interested in freepascal for ARM, I have downloaded the last
snapshot (cvs) of freepascal and I've tried to compile
with a fatal internal error,
 
"typinfo.pp(443,6) Fatal: Internal error 200308241"

My host is a linux and i386, the above error is making a cross compiler
with target ARM.

patched Makefile.FPC, because there was several error in sections for
ARM
Run FPCMake to generate Makefile
make CPU_TARGET=arm OS_TARGET=linux
CROSSBINDIR=/usr/local/arm/2.95.3/arm-linux/bin cycle

---------------typinfo.pp-----------------------------------------------
------
Function GetPropInfo(TypeInfo : PTypeInfo;const PropName : string;
Akinds : TTypeKinds) : PPropInfo;
begin
  Result:=GetPropInfo(TypeInfo,PropName);
  If (Akinds<>[]) then   (* ERROR in this line, this's 443 line *)
    If (Result<>Nil) then
      If Not (Result^.PropType^.Kind in AKinds) then
        Result:=Nil;
end;
------------------------------------------------------------------------
------

Kind regards