divert(-1)dnl m4 macros for alpha assembler on unicos.dnl Copyright 2000, 2002, 2003, 2004 Free Software Foundation, Inc.dnldnl This file is part of the GNU MP Library.dnldnl The GNU MP Library is free software; you can redistribute it and/ordnl modify it under the terms of the GNU Lesser General Public License asdnl published by the Free Software Foundation; either version 2.1 of thednl License, or (at your option) any later version.dnldnl The GNU MP Library is distributed in the hope that it will be useful,dnl but WITHOUT ANY WARRANTY; without even the implied warranty ofdnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNUdnl Lesser General Public License for more details.dnldnl You should have received a copy of the GNU Lesser General Publicdnl License along with the GNU MP Library; see the file COPYING.LIB. Ifdnl not, write to the Free Software Foundation, Inc., 51 Franklin Street,dnl Fifth Floor, Boston, MA 02110-1301, USA.dnl Note that none of the standard GMP_ASM_ autoconf tests are done fordnl unicos, so none of the config.m4 results can be used here.dnl No underscores on unicosdefine(`GSYM_PREFIX')define(`ASM_START',m4_assert_numargs(0)` .ident dummy')define(`X',m4_assert_numargs(1)`^X$1')define(`FLOAT64',m4_assert_numargs(2)` .psect $1@crud,data$1: .t_floating $2.endp')dnl Called: PROLOGUE_cpu(GSYM_PREFIX`'foo[,gp|noalign])dnl EPILOGUE_cpu(GSYM_PREFIX`'foo)define(`PROLOGUE_cpu',m4_assert_numargs_range(1,2)`ifelse(`$2',gp,,`ifelse(`$2',noalign,,`ifelse(`$2',,,`m4_error(`Unrecognised PROLOGUE parameter')')')')dnl.stack 192 ; What does this mean? Only Cray knows..psect $1@code,code,cache$1::')define(`EPILOGUE_cpu',m4_assert_numargs(1)` .endp')dnl Usage: LDGP(dst,src)dnldnl Emit an "ldgp dst,src", but only on systems using a GOT (which unicosdnl doesn't).define(LDGP,m4_assert_numargs(2))dnl Usage: EXTERN(variable_name)define(`EXTERN',m4_assert_numargs(1)` .extern $1')define(`DATASTART',m4_assert_numargs(1)` .psect $1@crud,data$1:')define(`DATAEND',m4_assert_numargs(0)` .endp')define(`ASM_END',m4_assert_numargs(0)` .end')define(`cvttqc',m4_assert_numargs(-1)`cvttq/c')dnl Load a symbolic address into a registerdefine(`LEA',m4_assert_numargs(2)`laum $1, $2(r31)sll $1, 32, $1lalm $1, $2($1)lal $1, $2($1)')dnl Usage: ALIGN(bytes)dnldnl Unicos assembler .align emits zeros, even in code segments, so disablednl aligning.dnldnl GCC uses a macro emiting nops until the desired alignment is reacheddnl (see unicosmk_file_start in alpha.c). Could do something like that ifdnl we cared. The maximum desired alignment must be established at thednl start of the section though, since of course emitting nops onlydnl advances relative to the section beginning.define(`ALIGN',m4_assert_numargs(1))divert