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

* first working system unit (very limited yet)

Browse Source
This commit is contained in:
Károly Balogh 2004-05-01 15:09:47 +00:00
parent 60971f7485
commit b411a7da94
1 changed files with 19 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
rtl/morphos/system.pp
View File

@ -53,7 +53,12 @@ const
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF; DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
var var
MOS_ExecBase : DWord; External Name '_ExecBase'; MOS_ExecBase : LongInt; external name '_ExecBase';
int_heap : LongInt; external name 'HEAP';
int_heapsize : LongInt; external name 'HEAPSIZE';
function exec_OpenLibrary(libname: PChar location 'a1'; libver: LongInt location 'd0'; LIBBASE: DWORD LOCATION 'LIBBASE') : LongInt; SysCall 552;
implementation implementation
@ -70,52 +75,15 @@ implementation
{ $I osmain.inc} // base wrappers *nix RTL (derivatives) { $I osmain.inc} // base wrappers *nix RTL (derivatives)
const
REG_D0 = 0;
REG_D1 = 4;
REG_D2 = 8;
REG_D3 = 12;
REG_D4 = 16;
REG_D5 = 20;
REG_D6 = 24;
REG_D7 = 28;
REG_A0 = 32;
REG_A1 = 36;
REG_A2 = 40;
REG_A3 = 44;
REG_A4 = 48;
REG_A5 = 52;
REG_A6 = 56;
const
LVOOpenLibrary = -552;
function Exec_OpenLibrary(LibName: PChar; LibVer: LongInt) : LongInt; Assembler;
asm
stw r3,(REG_A0)(r2)
stw r4,(REG_D0)(r2)
lis r3,(MOS_ExecBase)@ha
ori r3,r3,(MOS_ExecBase)@l
stw r3,(REG_A6)(r2)
li r3,LVOOpenLibrary
mtlr r3
blrl
mr r3,r16
end;
{***************************************************************************** {*****************************************************************************
Misc. System Dependent Functions Misc. System Dependent Functions
*****************************************************************************} *****************************************************************************}
//procedure haltproc(e:longint);cdecl;external name '_haltproc'; procedure haltproc(e:longint);cdecl;external name '_haltproc';
procedure System_exit; procedure System_exit;
begin begin
// haltproc(ExitCode); haltproc(ExitCode);
End; End;
@ -155,21 +123,15 @@ end;
*****************************************************************************} *****************************************************************************}
{ first address of heap } { first address of heap }
function getheapstart:pointer;{assembler; function getheapstart:pointer;
asm
leal HEAP,%eax
end ['EAX'];}
begin begin
getheapstart:=NIL; getheapstart:=@int_heap;
end; end;
{ current length of heap } { current length of heap }
function getheapsize:longint;{assembler; function getheapsize:longint;
asm
movl HEAPSIZE,%eax
end ['EAX'];}
begin begin
getheapsize:=0; getheapsize:=int_heapsize;
end; end;
{ function to allocate size bytes more for the program } { function to allocate size bytes more for the program }
@ -208,12 +170,12 @@ begin
InOutRes:=1; InOutRes:=1;
end; end;
function do_write(h,addr,len : longint) : longint; function do_write(h:longint; addr: pointer; len: longint) : longint;
begin begin
InOutRes:=1; InOutRes:=1;
end; end;
function do_read(h,addr,len : longint) : longint; function do_read(h:longint; addr: pointer; len: longint) : longint;
begin begin
InOutRes:=1; InOutRes:=1;
end; end;
@ -348,17 +310,17 @@ Begin
// InstallSignals; // InstallSignals;
{ Setup heap } { Setup heap }
InitHeap; InitHeap;
SysInitExceptions; // SysInitExceptions;
{ Arguments } { Arguments }
// SetupCmdLine; // SetupCmdLine;
// SysInitExecPath; // SysInitExecPath;
{ Setup stdin, stdout and stderr } { Setup stdin, stdout and stderr }
SysInitStdIO; // SysInitStdIO;
{ Reset IO Error } { Reset IO Error }
InOutRes:=0; InOutRes:=0;
(* This should be changed to a real value during *) (* This should be changed to a real value during *)
(* thread driver initialization if appropriate. *) (* thread driver initialization if appropriate. *)
ThreadID := 1; // ThreadID := 1;
{$ifdef HASVARIANT} {$ifdef HASVARIANT}
initvariantmanager; initvariantmanager;
{$endif HASVARIANT} {$endif HASVARIANT}
@ -366,8 +328,8 @@ End.
{ {
$Log$ $Log$
Revision 1.2 2004-04-08 06:28:29 karoly Revision 1.3 2004-05-01 15:09:47 karoly
* first steps to have a morphos system unit * first working system unit (very limited yet)
Revision 1.1 2004/02/13 07:19:53 karoly Revision 1.1 2004/02/13 07:19:53 karoly
* quick hack from Linux system unit * quick hack from Linux system unit