97003a8aca
GCC has -mrtd but the args are pushed in reverse versus PASCAL. So asm routines have to use macros to obtain the stack arguments. For the complex call_nls assembly, revert the arguments in C using a preprocessor macro.
253 lines
5.4 KiB
PHP
253 lines
5.4 KiB
PHP
;
|
|
; File:
|
|
; stacks.inc
|
|
; Description:
|
|
; Macro support for register stack frame
|
|
;
|
|
; Copyright (c) 1998
|
|
; Pasquale J. Villani
|
|
; All Rights Reserved
|
|
;
|
|
; This file is part of DOS-C.
|
|
;
|
|
; DOS-C is free software; you can redistribute it and/or
|
|
; modify it under the terms of the GNU General Public License
|
|
; as published by the Free Software Foundation; either version
|
|
; 2, or (at your option) any later version.
|
|
;
|
|
; DOS-C is distributed in the hope that it will be useful, but
|
|
; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
|
|
; the GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU General Public
|
|
; License along with DOS-C; see the file COPYING. If not,
|
|
; write to the Free Software Foundation, 675 Mass Ave,
|
|
; Cambridge, MA 02139, USA.
|
|
;
|
|
; $Id: stacks.inc 1591 2011-05-06 01:46:55Z bartoldeman $
|
|
;
|
|
|
|
;
|
|
; Standard stack frame used throughout DOS-C
|
|
;
|
|
; MS-DOS specific
|
|
;
|
|
; +---------------+
|
|
; | irp hi | 26
|
|
; +---------------+
|
|
; | irp low | 24
|
|
; +---------------+
|
|
; | flags | 22
|
|
; +---------------+
|
|
; | cs | 20
|
|
; +---------------+
|
|
; | ip | 18
|
|
; +---------------+
|
|
; | es | 16
|
|
; +---------------+
|
|
; | ds | 14
|
|
; +---------------+
|
|
; | bp | 12
|
|
; +---------------+
|
|
; | di | 10
|
|
; +---------------+
|
|
; | si | 8
|
|
; +---------------+
|
|
; | dx | 6
|
|
; +---------------+
|
|
; | cx | 4
|
|
; +---------------+
|
|
; | bx | 2
|
|
; +---------------+
|
|
; | ax | 0
|
|
; +---------------+
|
|
;
|
|
|
|
;; Note: The order of the pushed registers _must_ match with the definition
|
|
;; of the "iregs" structure within PCB.H, because a pointer to the last
|
|
;; pushed register is used as a pointer to a "iregs" structure within the
|
|
;; called C sources! -- 2000/03/22 ska
|
|
|
|
; Don't use `struc RegFrame' etc. here because it interferes with segment
|
|
; definitions.
|
|
reg_ax equ 0
|
|
reg_bx equ 2
|
|
reg_cx equ 4
|
|
reg_dx equ 6
|
|
reg_si equ 8
|
|
reg_di equ 10
|
|
reg_bp equ 12
|
|
reg_ds equ 14
|
|
reg_es equ 16
|
|
reg_ip equ 18
|
|
reg_cs equ 20
|
|
reg_flags equ 22
|
|
irp_low equ 24
|
|
irp_hi equ 26
|
|
|
|
%macro PUSH$ALL 0
|
|
push es
|
|
push ds
|
|
push bp
|
|
push di
|
|
push si
|
|
push dx
|
|
push cx
|
|
push bx
|
|
push ax
|
|
%endmacro
|
|
|
|
%macro POP$ALL 0
|
|
pop ax
|
|
pop bx
|
|
pop cx
|
|
pop dx
|
|
pop si
|
|
pop di
|
|
pop bp
|
|
pop ds
|
|
pop es
|
|
%endmacro
|
|
|
|
; I386.inc - 10/25/01 by tom ehlert
|
|
;
|
|
; compiling the kernel for 386 will (sometimes) change the
|
|
; high part of (some) registers, which will be (sometimes) be used
|
|
; later
|
|
;
|
|
; assumption:
|
|
; we have never seen MSVC to use anything but eax, ecx, edx,
|
|
; nor have we seen Borland C to use anything but eax, ebx, edx,
|
|
; so we only protect eax, ebx or ecx, edx to conserve stack space
|
|
;
|
|
; to save even more stack space, we save only HIGH part of regs
|
|
; at some expense of slower execution. it's easier anyway :-)
|
|
;
|
|
; WATCOM only uses FS: and GS: (using -zff and -zgf) and never
|
|
; any high part of the 386 registers
|
|
;
|
|
|
|
|
|
%IF XCPU < 386
|
|
; no need to save/restore anything
|
|
|
|
; error 1 2 3
|
|
%macro Protect386Registers 0
|
|
%endmacro
|
|
|
|
%macro RestoreSP 0
|
|
mov sp, bp
|
|
%endmacro
|
|
|
|
%macro Restore386Registers 0
|
|
%endmacro
|
|
|
|
%ELSE
|
|
%ifdef WATCOM
|
|
|
|
%macro Protect386Registers 0
|
|
push fs
|
|
push gs
|
|
%endmacro
|
|
|
|
%macro RestoreSP 0
|
|
lea sp, [bp-4]
|
|
%endmacro
|
|
|
|
%macro Restore386Registers 0
|
|
pop gs
|
|
pop fs
|
|
%endmacro
|
|
|
|
%else
|
|
|
|
%macro Protect386Registers 0
|
|
push eax
|
|
pop ax
|
|
%ifdef MSCL8
|
|
push ecx
|
|
pop cx
|
|
%else ;BC5
|
|
push ebx
|
|
pop bx
|
|
%endif
|
|
push edx
|
|
pop dx
|
|
%endmacro
|
|
|
|
%macro RestoreSP 0
|
|
lea sp, [bp-6]
|
|
%endmacro
|
|
|
|
%macro Restore386Registers 0
|
|
push dx
|
|
pop edx
|
|
%ifdef MSCL8
|
|
push cx
|
|
pop ecx
|
|
%else ;BC5
|
|
push bx
|
|
pop ebx
|
|
%endif
|
|
push ax
|
|
pop eax
|
|
%endmacro
|
|
|
|
%endif
|
|
%ENDIF
|
|
|
|
; macros to define stack arguments
|
|
; arg a, {b,4}, c
|
|
; defines a and c as "word" arguments and b as a "dword" argument
|
|
; for STDCALL defines .a as [bp+4], .b as [bp+6] and .c as [bp+10]
|
|
; for PASCAL defines .a as [bp+10], .b as [bp+6] and .c as [bp+4]
|
|
;
|
|
; popargs bx, {dx,ax}, cx pops these arguments of the stack (for PASCAL
|
|
; in reverse order). Here dx,ax is a dword argument dx:ax where dx is
|
|
; the high word. The caller is responsible for dealing with instruction
|
|
; pointer (ip) on the stack.
|
|
|
|
%ifdef gcc
|
|
%define STDCALL
|
|
%else
|
|
%define PASCAL
|
|
%endif
|
|
|
|
%macro definearg 1-2 2
|
|
%xdefine .%1 bp+.argloc
|
|
%assign .argloc .argloc+%2
|
|
%endmacro
|
|
|
|
%macro arg 1-*
|
|
%assign .argloc 4
|
|
%rep %0
|
|
%ifdef PASCAL
|
|
%rotate -1
|
|
%endif
|
|
definearg %1
|
|
%ifdef STDCALL
|
|
%rotate 1
|
|
%endif
|
|
%endrep
|
|
%endmacro
|
|
|
|
%macro multipop 1-*
|
|
%rep %0
|
|
%rotate -1
|
|
pop %1
|
|
%endrep
|
|
%endmacro
|
|
|
|
%macro popargs 1-*
|
|
%rep %0
|
|
%ifdef PASCAL
|
|
%rotate -1
|
|
%endif
|
|
multipop %1
|
|
%ifdef STDCALL
|
|
%rotate 1
|
|
%endif
|
|
%endrep
|
|
%endmacro
|