divert(-1)


dnl  Copyright 2000, 2002, 2003 Free Software Foundation, Inc.

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 modify
dnl  it under the terms of either:
dnl
dnl    * the GNU Lesser General Public License as published by the Free
dnl      Software Foundation; either version 3 of the License, or (at your
dnl      option) any later version.
dnl
dnl  or
dnl
dnl    * the GNU General Public License as published by the Free Software
dnl      Foundation; either version 2 of the License, or (at your option) any
dnl      later version.
dnl
dnl  or both in parallel, as here.
dnl
dnl  The GNU MP Library is distributed in the hope that it will be useful, but
dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
dnl  for more details.
dnl
dnl  You should have received copies of the GNU General Public License and the
dnl  GNU Lesser General Public License along with the GNU MP Library.  If not,
dnl  see https://www.gnu.org/licenses/.


dnl  ia64 assembler comments are C++ style "//" to the end of line.  gas
dnl  also accepts "#" as a comment, if it's the first non-blank on a line.
dnl
dnl  BSD m4 can't handle a multi-character comment like "//" (see notes in
dnl  mpn/asm-defs.m4).  For now the default "#" is left, but with care taken
dnl  not to put any macros after "foo#" (since of course they won't expand).


define(`ASM_START',
m4_assert_numargs(0)
`')


dnl  Called: PROLOGUE_cpu(GSYM_PREFIX`'foo)
dnl          EPILOGUE_cpu(GSYM_PREFIX`'foo)
dnl
dnl  32-byte alignment is used for the benefit of itanium-2, where the code
dnl  fetcher will only take 2 bundles from a 32-byte aligned target.  At
dnl  16mod32 it only reads 1 in the first cycle.  This might not make any
dnl  difference if the rotate buffers are full or there's other work holding
dnl  up execution, but we use 32-bytes to give the best chance of peak
dnl  throughput.
dnl
dnl  We can use .align here despite the gas bug noted in mpn/ia64/README,
dnl  since we're not expecting to execute across a PROLOGUE(), at least not
dnl  currently.

define(`PROLOGUE_cpu',
m4_assert_numargs(1)
	`
	.text
	.align	32
	.global	$1#
	.proc	$1#
$1:')

define(`EPILOGUE_cpu',
m4_assert_numargs(1)
	`
	.endp	$1#
')

define(`DATASTART',
	`dnl
	DATA
$1:')
define(`DATAEND',`dnl')

define(`ASM_END',`dnl')


dnl  Usage: ALIGN(bytes)
dnl
dnl  Emit a ".align" directive.  "bytes" is eval()ed, so can be an
dnl  expression.
dnl
dnl  This version overrides the definition in mpn/asm-defs.m4.  We suppress
dnl  any .align if the gas byte-swapped-nops bug was detected by configure
dnl  GMP_ASM_IA64_ALIGN_OK.

define(`ALIGN',
m4_assert_numargs(1)
m4_assert_defined(`IA64_ALIGN_OK')
`ifelse(IA64_ALIGN_OK,no,,
`.align	eval($1)')')


dnl  Usage: ASSERT([pr] [,code])
dnl
dnl  Require that the given predicate register is true after executing the
dnl  test code.  For example,
dnl
dnl         ASSERT(p6,
dnl         `       cmp.eq  p6,p0 = r3, r4')
dnl
dnl  If the predicate register argument is empty then nothing is tested, the
dnl  code is just executed.  This can be used for setups required by later
dnl  ASSERTs.  The code argument can be omitted to just test a predicate
dnl  with no special setup code.
dnl
dnl  For convenience, stops are inserted before and after the code emitted.

define(ASSERT,
m4_assert_numargs_range(1,2)
m4_assert_defined(`WANT_ASSERT')
`ifelse(WANT_ASSERT,1,
`	;;
ifelse(`$2',,,
`$2
	;;
')
ifelse(`$1',,,
`($1)	br	.LASSERTok`'ASSERT_label_counter ;;
	cmp.ne	p6,p6 = r0, r0	C illegal instruction
	;;
.LASSERTok`'ASSERT_label_counter:
define(`ASSERT_label_counter',eval(ASSERT_label_counter+1))
')
')')
define(`ASSERT_label_counter',1)

define(`getfsig', `getf.sig')
define(`setfsig', `setf.sig')
define(`cmpeq',   `cmp.eq')
define(`cmpne',   `cmp.ne')
define(`cmpltu',  `cmp.ltu')
define(`cmpleu',  `cmp.leu')
define(`cmpgtu',  `cmp.gtu')
define(`cmpgeu',  `cmp.geu')
define(`cmple',   `cmp.le')
define(`cmpgt',   `cmp.gt')
define(`cmpeqor', `cmp.eq.or')
define(`cmpequc', `cmp.eq.unc')

divert