paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 12:09:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r19292 into '.':

Browse Source 
U    rtl\nativent\system.pp
--- Recording mergeinfo for merge of r19292 into '.':
 U   .

git-svn-id: trunk@19342 -
This commit is contained in:
florian 2011-10-03 20:17:51 +00:00
parent c6a0cafdb0
commit 94adf3992d
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/nativent/system.pp
View File

@ -376,12 +376,11 @@ begin
end; end;
{$endif} {$endif}
{$ifndef kmode}
// other user mode only stuff
procedure SysInitStdIO; procedure SysInitStdIO;
begin begin
{ This function is currently only called if the RTL is compiled for Usermode;
one could think about adding a text driver that outputs using DbgPrint }
{$ifndef KMODE}
with PSimplePEB(CurrentPEB)^.ProcessParameters^ do begin with PSimplePEB(CurrentPEB)^.ProcessParameters^ do begin
StdInputHandle := StandardInput; StdInputHandle := StandardInput;
StdOutputHandle := StandardOutput; StdOutputHandle := StandardOutput;
@ -405,13 +404,8 @@ begin
Assign(ErrOutput, ''); Assign(ErrOutput, '');
Assign(StdErr, ''); Assign(StdErr, '');
end; end;
end;
{$else}
// other kernel mode only stuff
{$endif} {$endif}
end;
function GetProcessID: SizeUInt; function GetProcessID: SizeUInt;
begin begin