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

+ Add feature define around inittextio

Browse Source 
git-svn-id: trunk@6522 -
This commit is contained in:
daniel 2007-02-17 09:11:13 +00:00
parent a662c5fedb
commit 5e13ba03e6
3 changed files with 178 additions and 175 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -4828,7 +4828,6 @@ rtl/nds/sysfile.inc -text
rtl/nds/sysheap.inc -text
rtl/nds/sysos.inc -text
rtl/nds/sysosh.inc -text
rtl/nds/system.pp -text
rtl/nds/systhrd.inc -text
rtl/nds/sysutils.pp -text
rtl/nds/tthread.inc -text

8
rtl/gba/system.pp
View File

@ -19,6 +19,7 @@ interface
{$define __ARM__} (* For future usage! *)
{$define FPC_IS_SYSTEM}
{$define USE_NOTHREADMANAGER}
{$i gbabiosh.inc}
@ -81,11 +82,11 @@ implementation
{$i gbabios.inc}
{$ifdef FPC_HAS_FEATURE_PROCESSES}
function GetProcessID: SizeUInt;
begin
end;
{$endif}
{*****************************************************************************
@ -118,12 +119,14 @@ procedure randomize;
begin
end;
{$ifdef FPC_HAS_FEATURE_TEXTIO}
procedure SysInitStdIO;
begin
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
end;
{$endif}
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
@ -170,5 +173,4 @@ begin
InitSystemThreads;
initvariantmanager;
initwidestringmanager;
end.

6
rtl/nds/system.pp
View File

@ -80,11 +80,11 @@ implementation
{$i ndsbios.inc}
{$ifdef FPC_HAS_FEATURE_PROCESSES}
function GetProcessID: SizeUInt;
begin
end;
{$endif}
{*****************************************************************************
@ -117,12 +117,14 @@ procedure randomize;
begin
end;
{$ifdef FPC_HAS_FEATURE_TEXTIO}
procedure SysInitStdIO;
begin
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
end;
{$endif}
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;