paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +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;
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
@ -70,52 +75,15 @@ implementation
{ $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
*****************************************************************************}
//procedure haltproc(e:longint);cdecl;external name '_haltproc';
procedure haltproc(e:longint);cdecl;external name '_haltproc';
procedure System_exit;
begin
// haltproc(ExitCode);
haltproc(ExitCode);
End;
@ -155,21 +123,15 @@ end;
*****************************************************************************}
{ first address of heap }
function getheapstart:pointer;{assembler;
asm
leal HEAP,%eax
end ['EAX'];}
function getheapstart:pointer;
begin
getheapstart:=NIL;
getheapstart:=@int_heap;
end;
{ current length of heap }
function getheapsize:longint;{assembler;
asm
movl HEAPSIZE,%eax
end ['EAX'];}
function getheapsize:longint;
begin
getheapsize:=0;
getheapsize:=int_heapsize;
end;
{ function to allocate size bytes more for the program }
@ -208,12 +170,12 @@ begin
InOutRes:=1;
end;
function do_write(h,addr,len : longint) : longint;
function do_write(h:longint; addr: pointer; len: longint) : longint;
begin
InOutRes:=1;
end;
function do_read(h,addr,len : longint) : longint;
function do_read(h:longint; addr: pointer; len: longint) : longint;
begin
InOutRes:=1;
end;
@ -348,17 +310,17 @@ Begin
// InstallSignals;
{ Setup heap }
InitHeap;
SysInitExceptions;
// SysInitExceptions;
{ Arguments }
// SetupCmdLine;
// SysInitExecPath;
{ Setup stdin, stdout and stderr }
SysInitStdIO;
// SysInitStdIO;
{ Reset IO Error }
InOutRes:=0;
(* This should be changed to a real value during *)
(* thread driver initialization if appropriate. *)
ThreadID := 1;
// ThreadID := 1;
{$ifdef HASVARIANT}
initvariantmanager;
{$endif HASVARIANT}
@ -366,8 +328,8 @@ End.
{
$Log$
Revision 1.2 2004-04-08 06:28:29 karoly
* first steps to have a morphos system unit
Revision 1.3 2004-05-01 15:09:47 karoly
* first working system unit (very limited yet)
Revision 1.1 2004/02/13 07:19:53 karoly
* quick hack from Linux system unit