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

atari: moved the target to use tinyheap, and various cleanups

Browse Source 
git-svn-id: trunk@37827 -
This commit is contained in:
Károly Balogh 2017-12-27 02:57:25 +00:00
parent ad1742373a
commit 5cbdf4d30c
1 changed files with 22 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
rtl/atari/system.pp
View File

@ -16,20 +16,19 @@
**********************************************************************}
unit System;
{--------------------------------------------------------------------}
{ LEFT TO DO: }
{--------------------------------------------------------------------}
{ o SBrk }
{ o Implement truncate }
{ o Implement paramstr(0) }
{--------------------------------------------------------------------}
interface
interface
{$define FPC_HAS_ANSI_TEXTFILEREC}
{$define FPC_ATARI_USE_TINYHEAP}
{$I systemh.inc}
{$ifdef FPC_ATARI_USE_TINYHEAP}
{$define HAS_MEMORYMANAGER}
{$endif FPC_ATARI_USE_TINYHEAP}
{$i systemh.inc}
{$ifdef FPC_ATARI_USE_TINYHEAP}
{$i tnyheaph.inc}
{$endif FPC_ATARI_USE_TINYHEAP}
{Platform specific information}
const
@ -97,35 +96,21 @@ var
{$endif defined(FPUSOFT)}
{$I system.inc}
{$I syspara.inc}
{$i system.inc}
{$ifdef FPC_ATARI_USE_TINYHEAP}
{$i tinyheap.inc}
{$endif FPC_ATARI_USE_TINYHEAP}
{$i syspara.inc}
var
basepage: PPD; external name '__base';
function GetProcessID:SizeUInt;
begin
{$WARNING To be checked by platform maintainer}
GetProcessID := 1;
end;
{$S-}
(* procedure Stack_Check; assembler;
{ Check for local variable allocation }
{ On Entry -> d0 : size of local stack we are trying to allocate }
asm
XDEF STACKCHECK
move.l sp,d1 { get value of stack pointer }
sub.l d0,d1 { sp - stack_size }
sub.l #2048,d1
cmp.l __BREAK,d1
bgt @st1nosweat
move.l #202,d0
jsr HALT_ERROR
@st1nosweat:
end;*)
function GetProcessID:SizeUInt;
begin
{$WARNING To be checked by platform maintainer}
GetProcessID := 1;
end;
procedure SysInitParamsAndEnv;
@ -135,15 +120,6 @@ end;
GenerateArgs;
end;
{ This routine is used to grow the heap. }
{ But here we do a trick, we say that the }
{ heap cannot be regrown! }
function sbrk( size: longint): pointer;
{ on exit nil = if fails. }
Begin
sbrk:=nil;
end;
procedure randomize;
begin
@ -183,8 +159,10 @@ begin
StackLength := CheckInitialStkLen (InitialStkLen);
{ Initialize ExitProc }
ExitProc:=Nil;
{$ifndef FPC_ATARI_USE_TINYHEAP}
{ Setup heap }
InitHeap;
{$endif FPC_ATARI_USE_TINYHEAP}
SysInitExceptions;
InitUnicodeStringManager;
{ Setup stdin, stdout and stderr }