Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2016-03

trunk for arm-embedded does not compile anymore

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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

Reply by email