OLD | NEW |
| (Empty) |
1 divert(-1) | |
2 dnl m4 macros for AIX 32-bit assembly. | |
3 | |
4 dnl Copyright 2000, 2001, 2002, 2005, 2006 Free Software Foundation, Inc. | |
5 dnl | |
6 dnl This file is part of the GNU MP Library. | |
7 dnl | |
8 dnl The GNU MP Library is free software; you can redistribute it and/or | |
9 dnl modify it under the terms of the GNU Lesser General Public License as | |
10 dnl published by the Free Software Foundation; either version 3 of the | |
11 dnl License, or (at your option) any later version. | |
12 dnl | |
13 dnl The GNU MP Library is distributed in the hope that it will be useful, | |
14 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
16 dnl Lesser General Public License for more details. | |
17 dnl | |
18 dnl You should have received a copy of the GNU Lesser General Public License | |
19 dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. | |
20 | |
21 define(`ASM_START', | |
22 ` .toc') | |
23 | |
24 dnl Called: PROLOGUE_cpu(GSYM_PREFIX`'foo) | |
25 dnl EPILOGUE_cpu(GSYM_PREFIX`'foo) | |
26 dnl | |
27 dnl Don't want ELF style .size in the epilogue. | |
28 | |
29 define(`PROLOGUE_cpu', | |
30 m4_assert_numargs(1) | |
31 ` | |
32 .globl $1 | |
33 .globl .$1 | |
34 .csect [DS], 2 | |
35 $1: | |
36 .long .$1, TOC[tc0], 0 | |
37 .csect [PR] | |
38 .align 2 | |
39 .$1:') | |
40 | |
41 define(`EPILOGUE_cpu', | |
42 m4_assert_numargs(1) | |
43 `') | |
44 | |
45 define(`TOC_ENTRY', `') | |
46 | |
47 define(`LEA', | |
48 m4_assert_numargs(2) | |
49 `define(`TOC_ENTRY', | |
50 ` .toc | |
51 tc$2: | |
52 .tc $2[TC], $2')' | |
53 ` lwz $1, tc$2(2)') | |
54 | |
55 define(`EXTERN', | |
56 m4_assert_numargs(1) | |
57 ` .globl $1') | |
58 | |
59 define(`DEF_OBJECT', | |
60 m4_assert_numargs_range(1,2) | |
61 ` .csect [RO], 3 | |
62 ALIGN(ifelse($#,1,2,$2)) | |
63 $1: | |
64 ') | |
65 | |
66 define(`END_OBJECT', | |
67 m4_assert_numargs(1)) | |
68 | |
69 define(`ASM_END', `TOC_ENTRY') | |
70 | |
71 divert | |
OLD | NEW |