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

+ added console I/O support when running from Ambient

Browse Source
This commit is contained in:
Károly Balogh 2004-06-05 19:49:19 +00:00
parent 3720331958
commit 0535bdeae9
1 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/morphos/system.pp
View File

@ -211,12 +211,12 @@ type
end; { * Warning: size is not a longword multiple ! * } end; { * Warning: size is not a longword multiple ! * }
PDevice = ^TDevice; PDevice = ^TDevice;
tDevice = record tDevice = packed record
dd_Library: TLibrary; dd_Library: TLibrary;
end; end;
PUnit = ^tUnit; PUnit = ^tUnit;
TUnit = record TUnit = packed record
unit_MsgPort: TMsgPort; { queue for unprocessed messages } unit_MsgPort: TMsgPort; { queue for unprocessed messages }
{ instance of msgport is recommended } { instance of msgport is recommended }
unit_flags, unit_flags,
@ -286,13 +286,15 @@ var
MOS_DOSBase : Pointer; MOS_DOSBase : Pointer;
MOS_UtilityBase: Pointer; MOS_UtilityBase: Pointer;
MOS_heapPool: Pointer; { pointer for the OS pool for growing the heap } MOS_heapPool : Pointer; { pointer for the OS pool for growing the heap }
MOS_origDir : LongInt; { original directory on startup } MOS_origDir : LongInt; { original directory on startup }
MOS_ambMsg : PMessage; MOS_ambMsg : PMessage;
MOS_ConName : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT'; MOS_ConName : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
MOS_ConHandle: LongInt;
argc: LongInt; argc: LongInt;
argv: PPChar; argv: PPChar;
envp: PPChar;
{***************************************************************************** {*****************************************************************************
@ -1194,8 +1196,17 @@ begin
MOS_heapPool:=exec_CreatePool(MEMF_FAST,growheapsize2,growheapsize1); MOS_heapPool:=exec_CreatePool(MEMF_FAST,growheapsize2,growheapsize1);
if MOS_heapPool=nil then Halt(1); if MOS_heapPool=nil then Halt(1);
if MOS_ambMsg=nil then begin
StdInputHandle:=dos_Input; StdInputHandle:=dos_Input;
StdOutputHandle:=dos_Output; StdOutputHandle:=dos_Output;
end else begin
MOS_ConHandle:=dos_Open(MOS_ConName,1005);
if MOS_ConHandle<>0 then begin
StdInputHandle:=MOS_ConHandle;
StdOutputHandle:=MOS_ConHandle;
end else
Halt(1);
end;
end; end;
@ -1239,12 +1250,13 @@ Begin
MOS_ambMsg:=nil; MOS_ambMsg:=nil;
MOS_origDir:=0; MOS_origDir:=0;
MOS_fileList:=nil; MOS_fileList:=nil;
envp:=nil;
SysInitMorphOS; SysInitMorphOS;
{ Set up signals handlers } { Set up signals handlers }
// InstallSignals; // InstallSignals;
{ Setup heap } { Setup heap }
InitHeap; InitHeap;
// SysInitExceptions; SysInitExceptions;
{ Setup stdin, stdout and stderr } { Setup stdin, stdout and stderr }
SysInitStdIO; SysInitStdIO;
{ Reset IO Error } { Reset IO Error }
@ -1263,7 +1275,10 @@ End.
{ {
$Log$ $Log$
Revision 1.9 2004-05-12 23:18:54 karoly Revision 1.10 2004-06-05 19:49:19 karoly
+ added console I/O support when running from Ambient
Revision 1.9 2004/05/12 23:18:54 karoly
* fixed do_read and dos_Read from being nonsense * fixed do_read and dos_Read from being nonsense
Revision 1.8 2004/05/12 20:26:04 karoly Revision 1.8 2004/05/12 20:26:04 karoly