paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 21:07:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation of NativeNT target, patch by Karl-Michael Schindler. Fixes Mantis #30149.

Browse Source 
rtl/nativent/Makefile.fpc:
  + add rule for ISO Extended Pascal unit
rtl/nativent/sysutils.pp: 
  * add dummy implementations of the RawByteString and UnicodeString variants of ExecuteProcess
packages/fcl-pdf/fpmake.pp:
  * don't compile fcl-pdf for NativeNT

git-svn-id: trunk@33713 -
This commit is contained in:
svenbarth 2016-05-20 13:21:08 +00:00
parent d3b936073a
commit 8a42ef764d
3 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-pdf/fpmake.pp
View File

@ -23,7 +23,7 @@ begin
P.Email := '';
P.Description := 'PDF generating and TTF file info library';
P.NeedLibC:= false;
P.OSes:=P.OSes-[embedded,win16,msdos];
P.OSes:=P.OSes-[embedded,win16,msdos,nativent];
P.Dependencies.Add('rtl-objpas');
P.Dependencies.Add('fcl-base');
P.Dependencies.Add('fcl-image');

3
rtl/nativent/Makefile.fpc
View File

@ -123,6 +123,9 @@ macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) buildrtl$(PPUEXT)
iso7185$(PPUEXT) : $(INC)/iso7185.pp $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(INC)/iso7185.pp
extpas$(PPUEXT) : $(INC)/extpas.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
$(COMPILER) $(INC)/extpas.pp
buildrtl$(PPUEXT): buildrtl.pp system$(PPUEXT) objpas$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils -Fi$(OBJPASDIR)/classes -Fu$(PROCINC) -I$(OBJPASDIR) -Fi$(DDKINC) -I$(INC) -Fu$(INC) -Fu$(OBJPASDIR) buildrtl

30
rtl/nativent/sysutils.pp
View File

@ -1194,17 +1194,39 @@ begin
end;
function ExecuteProcess(const Path: AnsiString; const ComLine: AnsiString;
function ExecuteProcess(const Path: RawByteString; const ComLine: RawByteString;
Flags: TExecuteFlags = []): Integer;
begin
{ TODO : implement }
Result := 0;
end;
function ExecuteProcess(const Path: AnsiString;
const ComLine: Array of AnsiString; Flags:TExecuteFlags = []): Integer;
function ExecuteProcess(const Path: RawByteString;
const ComLine: Array of RawByteString; Flags:TExecuteFlags = []): Integer;
var
CommandLine: AnsiString;
CommandLine: RawByteString;
I: integer;
begin
Commandline := '';
for I := 0 to High (ComLine) do
if Pos (' ', ComLine [I]) <> 0 then
CommandLine := CommandLine + ' ' + '"' + ComLine [I] + '"'
else
CommandLine := CommandLine + ' ' + Comline [I];
ExecuteProcess := ExecuteProcess (Path, CommandLine,Flags);
end;
function ExecuteProcess(const Path: UnicodeString; const ComLine: UnicodeString;
Flags: TExecuteFlags = []): Integer;
begin
{ TODO : implement }
Result := 0;
end;
function ExecuteProcess(const Path: UnicodeString;
const ComLine: Array of UnicodeString; Flags:TExecuteFlags = []): Integer;
var
CommandLine: UnicodeString;
I: integer;
begin
Commandline := '';