[fpc-devel] trunk for arm-embedded does not compile anymore

[Michael Ring]

Builf fails with the following message:
/Users/ring/devel/fpc-arm/compiler/ppcrossarm -Cparmv7em @rtl.cfg -Ur 
-Tembedded -Parm -XParm-none-eabi- -Xr -Ur -Xs -O2 -n -Fi../inc 
-Fi../arm -FE. -FU/Users/ring/devel/fpc-arm/rtl/units/arm-embedded -darm 
-dRELEASE -O2 -Fi../objpas/sysutils sysutils.pp
osutilsh.inc(32,10) Error: Forward declaration not solved 
"ExecuteProcess(const RawByteString;const 
RawByteString;TExecuteFlags="<set>"):LongInt;"
osutilsh.inc(33,10) Error: Forward declaration not solved 
"ExecuteProcess(const RawByteString;const {Open} Array Of 
RawByteString;TExecuteFlags="<set>"):LongInt;"
osutilsh.inc(34,10) Error: Forward declaration not solved 
"ExecuteProcess(const UnicodeString;const 
UnicodeString;TExecuteFlags="<set>"):LongInt;"
osutilsh.inc(35,10) Error: Forward declaration not solved 
"ExecuteProcess(const UnicodeString;const {Open} Array Of 
UnicodeString;TExecuteFlags="<set>"):LongInt;"
sysutils.pp(280) Fatal: There were 4 errors compiling module, stopping
Fatal: Compilation aborted
make[3]: *** [sysutils.ppu] Error 1
make[2]: *** [embedded_all] Error 2
make[1]: *** [rtl_all] Error 2
make: *** [base.build-stamp.arm-embedded] Error 2

the following patch solves the issue, can someboby please apply?

TnX,

Michael

  svn diff fpc-arm/rtl/embedded/sysutils.pp
Index: fpc-arm/rtl/embedded/sysutils.pp
===================================================================
--- fpc-arm/rtl/embedded/sysutils.pp    (revision 33349)
+++ fpc-arm/rtl/embedded/sysutils.pp    (working copy)
@@ -255,18 +255,25 @@
  end;


-function ExecuteProcess (const Path: AnsiString; const ComLine: 
AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess(Const Path: RawByteString; Const ComLine: 
RawByteString;Flags:TExecuteFlags=[]):integer;
  begin
    result := -1;
  end;

+function ExecuteProcess(Const Path: RawByteString; Const ComLine: Array 
of RawByteString;Flags:TExecuteFlags=[]):integer;
+begin
+  result := -1;
+end;

-function ExecuteProcess (const Path: AnsiString;
-                                  const ComLine: array of 
AnsiString;Flags:TExecuteFlags=[]): integer;
+function ExecuteProcess(Const Path: UnicodeString; Const ComLine: 
UnicodeString;Flags:TExecuteFlags=[]):integer;
  begin
    result := -1;
  end;

+function ExecuteProcess(Const Path: UnicodeString; Const ComLine: Array 
of UnicodeString;Flags:TExecuteFlags=[]):integer;
+begin
+  result := -1;
+end;

  {****************************************************************************
                                Initialization code