96 lines
2.9 KiB
Plaintext
96 lines
2.9 KiB
Plaintext
divert(-1)
|
|
|
|
dnl m4 macros for PowerPC assembler (32 and 64 bit).
|
|
|
|
dnl Copyright 2000, 2002, 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 2.1 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
|
|
dnl License along with the GNU MP Library; see the file COPYING.LIB. If
|
|
dnl not, write to the Free Software Foundation, Inc., 51 Franklin Street,
|
|
dnl Fifth Floor, Boston, MA 02110-1301, USA.
|
|
|
|
|
|
dnl Called: PROLOGUE_cpu(GSYM_PREFIX`'foo)
|
|
dnl
|
|
dnl This is the same as the default in mpn/asm-defs.m4, but with ALIGN(4)
|
|
dnl not 8.
|
|
dnl
|
|
dnl 4-byte alignment is normally enough, certainly it's what gcc gives. We
|
|
dnl don't want bigger alignment within PROLOGUE since it can introduce
|
|
dnl padding into multiple-entrypoint routines, and with gas such padding is
|
|
dnl zero words, which are not valid instructions.
|
|
|
|
define(`PROLOGUE_cpu',
|
|
m4_assert_numargs(1)
|
|
` TEXT
|
|
ALIGN(4)
|
|
GLOBL `$1' GLOBL_ATTR
|
|
TYPE(`$1',`function')
|
|
`$1'LABEL_SUFFIX')
|
|
|
|
|
|
dnl Usage: r0 ... r31, cr0 ... cr7
|
|
dnl
|
|
dnl Registers names, either left as "r0" etc or mapped to plain 0 etc,
|
|
dnl according to the result of the GMP_ASM_POWERPC_REGISTERS configure
|
|
dnl test.
|
|
|
|
ifelse(WANT_R_REGISTERS,no,`
|
|
forloop(i,0,31,`deflit(`r'i,i)')
|
|
forloop(i,0,31,`deflit(`v'i,i)')
|
|
forloop(i,0,31,`deflit(`f'i,i)')
|
|
forloop(i,0,7, `deflit(`cr'i,i)')
|
|
')
|
|
|
|
|
|
dnl Usage: ASSERT(cond,instructions)
|
|
dnl
|
|
dnl If WANT_ASSERT is 1, output the given instructions and expect the given
|
|
dnl flags condition to then be satisfied. For example,
|
|
dnl
|
|
dnl ASSERT(eq, `cmpwi r6, 123')
|
|
dnl
|
|
dnl The instructions can be omitted to just assert a flags condition with
|
|
dnl no extra calculation. For example,
|
|
dnl
|
|
dnl ASSERT(ne)
|
|
dnl
|
|
dnl The condition can be omitted to just output the given instructions when
|
|
dnl assertion checking is wanted. For example,
|
|
dnl
|
|
dnl ASSERT(, `mr r11, r0')
|
|
dnl
|
|
dnl Using a zero word for an illegal instruction is probably not ideal,
|
|
dnl since it marks the beginning of a traceback table in the 64-bit ABI.
|
|
dnl But assertions are only for development, so it doesn't matter too much.
|
|
|
|
define(ASSERT,
|
|
m4_assert_numargs_range(1,2)
|
|
m4_assert_defined(`WANT_ASSERT')
|
|
`ifelse(WANT_ASSERT,1,
|
|
`C ASSERT
|
|
$2
|
|
ifelse(`$1',,,
|
|
` b$1 L(ASSERT_ok`'ASSERT_counter)
|
|
W32 0 C assertion failed
|
|
L(ASSERT_ok`'ASSERT_counter):
|
|
define(`ASSERT_counter',incr(ASSERT_counter))
|
|
')')')
|
|
|
|
define(ASSERT_counter,1)
|
|
|
|
|
|
divert
|