old-cross-binutils/gdb/testsuite/gdb.stabs/weird-xcoff.S
1993-09-15 22:17:29 +00:00

27 lines
1.1 KiB
ArmAsm

#define N_GSYM 128
#define N_LSYM 129
/* If we try to use .stabx for common blocks, the AIX assembler (bogusly)
complains about the lack of a colon in the stabstring. */
#define BEGIN_COMMON(name) .bc name
#define END_COMMON(name) .ec
#define VAR(name) \
.globl name; \
.align 1; \
name:; \
.long 42;
#define STAB(string,type,value) .stabx string,value,type,0
/* Put everything in this csect, which seems to make things work.
The compiler actually puts the stabs in .csect [PR], but that didn't
work here (I guess because there is no text section). */
.csect .data[RW]
#include "weird.def"
/* Stuff with backslashes needs to go here, since the aix assembler treats
them differently. */
STAB("sym92:\ !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~",N_LSYM,0)
STAB("type92:t92=\ !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~",N_LSYM,0)
STAB("attr92:G392=@\ !#$%&'()*+,-./0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~;1",N_GSYM, 0)