Blame mpn/alpha/default.m4

Packit 5c3484
divert(-1)
Packit 5c3484
Packit 5c3484
dnl  m4 macros for alpha assembler (everywhere except unicos).
Packit 5c3484
Packit 5c3484
Packit 5c3484
dnl  Copyright 2000, 2002-2004, 2013 Free Software Foundation, Inc.
Packit 5c3484
Packit 5c3484
dnl  This file is part of the GNU MP Library.
Packit 5c3484
dnl
Packit 5c3484
dnl  The GNU MP Library is free software; you can redistribute it and/or modify
Packit 5c3484
dnl  it under the terms of either:
Packit 5c3484
dnl
Packit 5c3484
dnl    * the GNU Lesser General Public License as published by the Free
Packit 5c3484
dnl      Software Foundation; either version 3 of the License, or (at your
Packit 5c3484
dnl      option) any later version.
Packit 5c3484
dnl
Packit 5c3484
dnl  or
Packit 5c3484
dnl
Packit 5c3484
dnl    * the GNU General Public License as published by the Free Software
Packit 5c3484
dnl      Foundation; either version 2 of the License, or (at your option) any
Packit 5c3484
dnl      later version.
Packit 5c3484
dnl
Packit 5c3484
dnl  or both in parallel, as here.
Packit 5c3484
dnl
Packit 5c3484
dnl  The GNU MP Library is distributed in the hope that it will be useful, but
Packit 5c3484
dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
Packit 5c3484
dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
Packit 5c3484
dnl  for more details.
Packit 5c3484
dnl
Packit 5c3484
dnl  You should have received copies of the GNU General Public License and the
Packit 5c3484
dnl  GNU Lesser General Public License along with the GNU MP Library.  If not,
Packit 5c3484
dnl  see https://www.gnu.org/licenses/.
Packit 5c3484
Packit 5c3484
Packit 5c3484
dnl  Usage: ASM_START()
Packit 5c3484
define(`ASM_START',
Packit 5c3484
m4_assert_numargs(0)
Packit 5c3484
`	.set noreorder
Packit 5c3484
	.set noat')
Packit 5c3484
Packit 5c3484
dnl  Usage: X(value)
Packit 5c3484
define(`X',
Packit 5c3484
m4_assert_numargs(1)
Packit 5c3484
`0x$1')
Packit 5c3484
Packit 5c3484
dnl  Usage: FLOAT64(label,value)
Packit 5c3484
define(`FLOAT64',
Packit 5c3484
m4_assert_numargs(2)
Packit 5c3484
`	.align	3
Packit 5c3484
$1:	.t_floating $2')
Packit 5c3484
Packit 5c3484
Packit 5c3484
dnl  Called: PROLOGUE_cpu(GSYM_PREFIX`'foo[,gp|noalign])
Packit 5c3484
dnl          EPILOGUE_cpu(GSYM_PREFIX`'foo)
Packit 5c3484
Packit 5c3484
define(`PROLOGUE_cpu',
Packit 5c3484
m4_assert_numargs_range(1,2)
Packit 5c3484
`ifelse(`$2',gp,,
Packit 5c3484
`ifelse(`$2',noalign,,
Packit 5c3484
`ifelse(`$2',,,`m4_error(`Unrecognised PROLOGUE parameter
Packit 5c3484
')')')')dnl
Packit 5c3484
	.text
Packit 5c3484
ifelse(`$2',noalign,,`	ALIGN(16)')
Packit 5c3484
	.globl	$1
Packit 5c3484
	.ent	$1
Packit 5c3484
$1:
Packit 5c3484
	.frame r30,0,r26,0
Packit 5c3484
ifelse(`$2',gp,`	ldgp	r29, 0(r27)
Packit 5c3484
`$'$1..ng:')
Packit 5c3484
	.prologue ifelse(`$2',gp,1,0)')
Packit 5c3484
Packit 5c3484
define(`EPILOGUE_cpu',
Packit 5c3484
m4_assert_numargs(1)
Packit 5c3484
`	.end	$1')
Packit 5c3484
Packit 5c3484
Packit 5c3484
dnl  Usage: LDGP(dst,src)
Packit 5c3484
dnl
Packit 5c3484
dnl  Emit an "ldgp dst,src", but only if the system uses a GOT.
Packit 5c3484
Packit 5c3484
define(LDGP,
Packit 5c3484
m4_assert_numargs(2)
Packit 5c3484
`ldgp	`$1', `$2'')
Packit 5c3484
Packit 5c3484
Packit 5c3484
dnl  Usage: EXTERN(variable_name)
Packit 5c3484
define(`EXTERN',
Packit 5c3484
m4_assert_numargs(1)
Packit 5c3484
)
Packit 5c3484
Packit 5c3484
dnl  Usage: r0 ... r31
Packit 5c3484
dnl         f0 ... f31
Packit 5c3484
dnl
Packit 5c3484
dnl  Map register names r0 to $0, and f0 to $f0, etc.
Packit 5c3484
dnl  This is needed on all systems but Unicos
Packit 5c3484
dnl
Packit 5c3484
dnl  defreg() is used to protect the $ in $0 (otherwise it would represent a
Packit 5c3484
dnl  macro argument).  Double quoting is used to protect the f0 in $f0
Packit 5c3484
dnl  (otherwise it would be an infinite recursion).
Packit 5c3484
Packit 5c3484
forloop(i,0,31,`defreg(`r'i,$i)')
Packit 5c3484
forloop(i,0,31,`deflit(`f'i,``$f''i)')
Packit 5c3484
Packit 5c3484
Packit 5c3484
dnl  Usage: DATASTART(name,align)  or  DATASTART(name)
Packit 5c3484
dnl         DATAEND()
Packit 5c3484
Packit 5c3484
define(`DATASTART',
Packit 5c3484
m4_assert_numargs_range(1,2)
Packit 5c3484
`	RODATA
Packit 5c3484
	ALIGN(ifelse($#,1,2,$2))
Packit 5c3484
$1:')
Packit 5c3484
define(`DATAEND',
Packit 5c3484
m4_assert_numargs(0)
Packit 5c3484
)
Packit 5c3484
Packit 5c3484
dnl  Load a symbolic address into a register
Packit 5c3484
define(`LEA',
Packit 5c3484
m4_assert_numargs(2)
Packit 5c3484
`lda	$1, $2')
Packit 5c3484
Packit 5c3484
dnl  Usage: ASM_END()
Packit 5c3484
define(`ASM_END',
Packit 5c3484
m4_assert_numargs(0)
Packit 5c3484
)
Packit 5c3484
Packit 5c3484
divert