mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-25 16:16:50 +03:00
29 lines
666 B
PHP
29 lines
666 B
PHP
; Magic for proc32.inc: prologue/epilogue for esp-based addressing
|
|
; fpo stands from Frame Pointer Omission
|
|
macro fpo_prologue procname,flag,parmbytes,localbytes,reglist
|
|
{
|
|
local loc,regcount
|
|
loc = (localbytes+3) and (not 3)
|
|
regcount = 0
|
|
irps reg, reglist
|
|
\{
|
|
regcount = regcount+1
|
|
push reg
|
|
\}
|
|
if loc
|
|
sub esp, loc
|
|
end if
|
|
parmbase@proc equ esp+4+loc+regcount*4
|
|
localbase@proc equ esp
|
|
fpo_localsize = loc
|
|
}
|
|
macro fpo_epilogue procname,flag,parmbytes,localbytes,reglist
|
|
{
|
|
irps reg, reglist \{ reverse pop reg \}
|
|
if flag and 10000b
|
|
retn
|
|
else
|
|
retn parmbytes
|
|
end if
|
|
}
|