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

* setup a true far data memory layout in the compact and large models with

Browse Source 
stack, heap and static data being all in different segments

git-svn-id: trunk@27418 -
This commit is contained in:
nickysn 2014-03-31 22:03:48 +00:00
parent 73cf0b62f2
commit 85c6ffa102
1 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/msdos/prt0comn.asm
View File

@ -64,10 +64,12 @@
%ifdef __TINY__ %ifdef __TINY__
mov bx, cs mov bx, cs
%else %else
; init the stack
mov bx, dgroup mov bx, dgroup
%ifdef __NEAR_DATA__
; init the stack
mov ss, bx mov ss, bx
mov sp, stacktop mov sp, stacktop
%endif
%endif %endif
; zero fill the BSS section ; zero fill the BSS section
@ -126,6 +128,11 @@
cpu_detect_done: cpu_detect_done:
mov [__Test8086], bl mov [__Test8086], bl
%ifdef __NEAR_DATA__
; ****************************************************************************
; ** near data memory layout setup **
; ****************************************************************************
; allocate max heap ; allocate max heap
; TODO: also support user specified heap size ; TODO: also support user specified heap size
; try to resize our main DOS memory block until the end of the data segment ; try to resize our main DOS memory block until the end of the data segment
@ -183,11 +190,26 @@ skip_mem_realloc:
dec bx dec bx
mov word [__nearheap_end], bx mov word [__nearheap_end], bx
; ****************************************************************************
; ** near data setup done **
; ****************************************************************************
%endif
%ifdef __FAR_DATA__ %ifdef __FAR_DATA__
mov word [__stktop], sp
mov word [__stkbottom], 0
mov ax, ss mov ax, ss
mov word [__stkbottom + 2], ax mov word [__stkbottom + 2], ax
mov word [__stktop + 2], ax mov word [__stktop + 2], ax
mov ax, ds
mov dx, sp
add dx, 15
mov cl, 4
shr dx, cl
add ax, dx
mov word [__nearheap_start], 0
mov word [__nearheap_end], 0FFF0h
mov word [__nearheap_start + 2], ax mov word [__nearheap_start + 2], ax
mov word [__nearheap_end + 2], ax mov word [__nearheap_end + 2], ax
%endif %endif
@ -447,9 +469,15 @@ __nullarea:
segment _AFTERNULL align=2 class=BEGDATA segment _AFTERNULL align=2 class=BEGDATA
dw 0 dw 0
%ifdef __NEAR_DATA__
segment stack stack class=stack segment stack stack class=stack
resb 256 resb 256
stacktop: stacktop:
%else
; todo: make FPC create the stack segment in far data models
segment stack stack class=stack align=16
resb 16384
%endif
%endif %endif
%ifdef __TINY__ %ifdef __TINY__