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

+ compile time stack size setting

Browse Source
This commit is contained in:
carl 1998-08-17 12:28:21 +00:00
parent 26319a738a
commit 6937b1128a
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/atari/prt0.as
View File

@ -26,7 +26,7 @@
|
| useful constants
|
MINSTK = 8192 | Minimum 1K stack size
MINSTK = 16384 | Minimum 16K stack size
MARGIN = 512 | Minimum memory to return to OS
|
@ -100,14 +100,10 @@ _start:
| calculate new stack size (store in d2)
|
| ASSUME 8K STACK FOR THE MOMENT.
| movel __stklen,a2 | a2 = &_STKSIZ
| movel a2,d2 | if __STKSIZ is undefined
bra minimum | use MINSTK
movel a2@,d2 | if __STKSIZ is positive
bpl setstk | use __STKSIZ
addl d3,d2 | if __STKSIZ is negative
cmpl #MINSTK,d2 | try (free space + __STKSIZ)
bge setstk | if < MINSTK
movel __stklen,d2 | d2 = _STKSIZ
tstl d2 | if __STKSIZ is zero
beq minimum | use MINSTK
bra setstk | use __STKSIZ
minimum:
movel #MINSTK,d2 | use MINSTK
|