mirror of
https://review.haiku-os.org/buildtools
synced 2025-01-31 18:44:48 +01:00
b58ddff026
* merged mpfr 3.0.0 and gmp 5.0.1 in buildtools trunk git-svn-id: file:///srv/svn/repos/haiku/buildtools/trunk@37378 a95241bf-73f2-0310-859d-f6bbb57e9c96
116 lines
3.0 KiB
NASM
116 lines
3.0 KiB
NASM
dnl x86 calling conventions checking.
|
|
|
|
dnl Copyright 2000, 2003 Free Software Foundation, Inc.
|
|
dnl
|
|
dnl This file is part of the GNU MP Library.
|
|
dnl
|
|
dnl The GNU MP Library is free software; you can redistribute it and/or
|
|
dnl modify it under the terms of the GNU Lesser General Public License as
|
|
dnl published by the Free Software Foundation; either version 3 of the
|
|
dnl License, or (at your option) any later version.
|
|
dnl
|
|
dnl The GNU MP Library is distributed in the hope that it will be useful,
|
|
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
dnl Lesser General Public License for more details.
|
|
dnl
|
|
dnl You should have received a copy of the GNU Lesser General Public License
|
|
dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/.
|
|
|
|
|
|
include(`../config.m4')
|
|
|
|
|
|
C void x86_fldcw (unsigned short cw);
|
|
C
|
|
C Execute an fldcw, setting the x87 control word to cw.
|
|
|
|
PROLOGUE(x86_fldcw)
|
|
fldcw 4(%esp)
|
|
ret
|
|
EPILOGUE()
|
|
|
|
|
|
C unsigned short x86_fstcw (void);
|
|
C
|
|
C Execute an fstcw, returning the current x87 control word.
|
|
|
|
PROLOGUE(x86_fstcw)
|
|
xorl %eax, %eax
|
|
pushl %eax
|
|
fstcw (%esp)
|
|
popl %eax
|
|
ret
|
|
EPILOGUE()
|
|
|
|
|
|
dnl Instrumented profiling doesn't come out quite right below, since we
|
|
dnl don't do an actual "ret". There's only a few instructions here, so
|
|
dnl there's no great need to get them separately accounted, just let them
|
|
dnl get attributed to the caller.
|
|
|
|
ifelse(WANT_PROFILING,instrument,
|
|
`define(`WANT_PROFILING',no)')
|
|
|
|
|
|
C int calling_conventions (...);
|
|
C
|
|
C The global variable "calling_conventions_function" is the function to
|
|
C call, with the arguments as passed here.
|
|
C
|
|
C Perhaps the finit should be done only if the tags word isn't clear, but
|
|
C nothing uses the rounding mode or anything at the moment.
|
|
|
|
define(G,
|
|
m4_assert_numargs(1)
|
|
`GSYM_PREFIX`'$1')
|
|
|
|
.text
|
|
ALIGN(8)
|
|
PROLOGUE(calling_conventions)
|
|
movl (%esp), %eax
|
|
movl %eax, G(calling_conventions_retaddr)
|
|
|
|
movl $L(return), (%esp)
|
|
|
|
movl %ebx, G(calling_conventions_save_ebx)
|
|
movl %esi, G(calling_conventions_save_esi)
|
|
movl %edi, G(calling_conventions_save_edi)
|
|
movl %ebp, G(calling_conventions_save_ebp)
|
|
|
|
movl $0x01234567, %ebx
|
|
movl $0x89ABCDEF, %esi
|
|
movl $0xFEDCBA98, %edi
|
|
movl $0x76543210, %ebp
|
|
|
|
C try to provoke a problem by starting with junk in the registers,
|
|
C especially in %eax and %edx which will be return values
|
|
movl $0x70246135, %eax
|
|
movl $0x8ACE9BDF, %ecx
|
|
movl $0xFDB97531, %edx
|
|
|
|
jmp *G(calling_conventions_function)
|
|
|
|
L(return):
|
|
movl %ebx, G(calling_conventions_ebx)
|
|
movl %esi, G(calling_conventions_esi)
|
|
movl %edi, G(calling_conventions_edi)
|
|
movl %ebp, G(calling_conventions_ebp)
|
|
|
|
pushf
|
|
popl %ebx
|
|
movl %ebx, G(calling_conventions_eflags)
|
|
|
|
fstenv G(calling_conventions_fenv)
|
|
finit
|
|
|
|
movl G(calling_conventions_save_ebx), %ebx
|
|
movl G(calling_conventions_save_esi), %esi
|
|
movl G(calling_conventions_save_edi), %edi
|
|
movl G(calling_conventions_save_ebp), %ebp
|
|
|
|
jmp *G(calling_conventions_retaddr)
|
|
|
|
EPILOGUE()
|
|
|