1991-04-04 20:19:53 +02:00
|
|
|
|
/* read.c - read a source file -
|
1992-06-04 21:21:58 +02:00
|
|
|
|
Copyright (C) 1986, 1987, 1990, 1991 Free Software Foundation, Inc.
|
1992-02-15 22:13:03 +01:00
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
This file is part of GAS, the GNU Assembler.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with GAS; see the file COPYING. If not, write to
|
|
|
|
|
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
#if 0
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#define MASK_CHAR (0xFF) /* If your chars aren't 8 bits, you will
|
|
|
|
|
change this a bit. But then, GNU isn't
|
|
|
|
|
spozed to run on your machine anyway.
|
|
|
|
|
(RMS is so shortsighted sometimes.)
|
|
|
|
|
*/
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
#else
|
|
|
|
|
#define MASK_CHAR ((int)(unsigned char)-1)
|
|
|
|
|
#endif
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1993-05-27 21:29:38 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* This is the largest known floating point format (for now). It will
|
|
|
|
|
grow when we do 4361 style flonums. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#define MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT (16)
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
/* Routines that read assembler source text to build spagetti in memory.
|
|
|
|
|
Another group of these functions is in the expr.c module. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* for isdigit() */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#include "as.h"
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
#endif
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
#include "obstack.h"
|
1993-05-27 21:29:38 +02:00
|
|
|
|
#include "listing.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#ifndef TC_START_LABEL
|
|
|
|
|
#define TC_START_LABEL(x,y) (x==':')
|
|
|
|
|
#endif
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
/* The NOP_OPCODE is for the alignment fill value.
|
|
|
|
|
* fill it a nop instruction so that the disassembler does not choke
|
|
|
|
|
* on it
|
|
|
|
|
*/
|
|
|
|
|
#ifndef NOP_OPCODE
|
|
|
|
|
#define NOP_OPCODE 0x00
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
char *input_line_pointer; /*->next char of source file to parse. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
#if BITS_PER_CHAR != 8
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* The following table is indexed by[(char)] and will break if
|
|
|
|
|
a char does not have exactly 256 states (hopefully 0:255!)! */
|
|
|
|
|
die horribly;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
/* used by is_... macros. our ctype[] */
|
|
|
|
|
const char lex_type[256] =
|
|
|
|
|
{
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* @ABCDEFGHIJKLMNO */
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* PQRSTUVWXYZ[\]^_ */
|
|
|
|
|
0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, /* _!"#$%&'()*+,-./ */
|
|
|
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, /* 0123456789:;<=>? */
|
|
|
|
|
0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, /* @ABCDEFGHIJKLMNO */
|
|
|
|
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 0, 0, 0, 3, /* PQRSTUVWXYZ[\]^_ */
|
|
|
|
|
0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, /* `abcdefghijklmno */
|
|
|
|
|
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 0, 0, 0, 0, /* pqrstuvwxyz{|}~. */
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
1991-04-04 20:19:53 +02:00
|
|
|
|
* In: a character.
|
|
|
|
|
* Out: 1 if this character ends a line.
|
|
|
|
|
*/
|
|
|
|
|
#define _ (0)
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
char is_end_of_line[256] =
|
|
|
|
|
{
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef CR_EOL
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
_, _, _, _, _, _, _, _, _, _, 99, _, _, 99, _, _, /* @abcdefghijklmno */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#else
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
_, _, _, _, _, _, _, _, _, _, 99, _, _, _, _, _, /* @abcdefghijklmno */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
1993-07-07 14:37:58 +02:00
|
|
|
|
#ifdef TC_HPPA
|
|
|
|
|
_,99, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* _!"#$%&'()*+,-./ */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* 0123456789:;<=>? */
|
|
|
|
|
#else
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, 99, _, _, _, _, /* 0123456789:;<=>? */
|
1993-07-07 14:37:58 +02:00
|
|
|
|
#endif
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
_, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _, /* */
|
|
|
|
|
};
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#undef _
|
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
/* Functions private to this file. */
|
|
|
|
|
|
|
|
|
|
static char *buffer; /* 1st char of each buffer of lines is here. */
|
|
|
|
|
static char *buffer_limit; /*->1 + last char in buffer. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
static char *bignum_low; /* Lowest char of bignum. */
|
|
|
|
|
static char *bignum_limit; /* 1st illegal address of bignum. */
|
|
|
|
|
static char *bignum_high; /* Highest char of bignum. */
|
|
|
|
|
/* May point to (bignum_start-1). */
|
|
|
|
|
/* Never >= bignum_limit. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1993-03-29 23:20:04 +02:00
|
|
|
|
int target_big_endian;
|
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
static char *old_buffer; /* JF a hack */
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
static char *old_input;
|
|
|
|
|
static char *old_limit;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
/* Variables for handling include file directory list. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
char **include_dirs; /* List of pointers to directories to
|
|
|
|
|
search for .include's */
|
|
|
|
|
int include_dir_count; /* How many are in the list */
|
|
|
|
|
int include_dir_maxlen = 1;/* Length of longest in list */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
#ifndef WORKING_DOT_WORD
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
struct broken_word *broken_words;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
int new_broken_words;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif
|
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
static char *demand_copy_string PARAMS ((int *lenP));
|
|
|
|
|
int is_it_end_of_statement PARAMS ((void));
|
|
|
|
|
unsigned int next_char_of_string PARAMS ((void));
|
|
|
|
|
static segT get_known_segmented_expression PARAMS ((expressionS * expP));
|
|
|
|
|
static void grow_bignum PARAMS ((void));
|
|
|
|
|
static void pobegin PARAMS ((void));
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
extern int listing;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
void
|
|
|
|
|
read_begin ()
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
const char *p;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
pobegin ();
|
|
|
|
|
obj_read_begin_hook ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
obstack_begin (¬es, 5000);
|
|
|
|
|
obstack_begin (&cond_obstack, 960);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#define BIGNUM_BEGIN_SIZE (16)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
bignum_low = xmalloc ((long) BIGNUM_BEGIN_SIZE);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
bignum_limit = bignum_low + BIGNUM_BEGIN_SIZE;
|
|
|
|
|
|
|
|
|
|
/* Use machine dependent syntax */
|
|
|
|
|
for (p = line_separator_chars; *p; p++)
|
|
|
|
|
is_end_of_line[*p] = 1;
|
|
|
|
|
/* Use more. FIXME-SOMEDAY. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* set up pseudo-op tables */
|
|
|
|
|
|
1993-01-04 14:24:39 +01:00
|
|
|
|
struct hash_control *po_hash;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
static const pseudo_typeS potable[] =
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"abort", s_abort, 0},
|
|
|
|
|
{"align", s_align_ptwo, 0},
|
|
|
|
|
{"ascii", stringer, 0},
|
|
|
|
|
{"asciz", stringer, 1},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* block */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"byte", cons, 1},
|
|
|
|
|
{"comm", s_comm, 0},
|
|
|
|
|
{"data", s_data, 0},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* dim */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"double", float_cons, 'd'},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* dsect */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"eject", listing_eject, 0}, /* Formfeed listing */
|
|
|
|
|
{"else", s_else, 0},
|
|
|
|
|
{"end", s_end, 0},
|
|
|
|
|
{"endif", s_endif, 0},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* endef */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"equ", s_set, 0},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* err */
|
|
|
|
|
/* extend */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"extern", s_ignore, 0}, /* We treat all undef as ext */
|
1993-05-27 21:29:38 +02:00
|
|
|
|
{"appfile", s_app_file, 1},
|
|
|
|
|
{"appline", s_app_line, 0},
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"file", s_app_file, 0},
|
|
|
|
|
{"fill", s_fill, 0},
|
|
|
|
|
{"float", float_cons, 'f'},
|
|
|
|
|
{"global", s_globl, 0},
|
|
|
|
|
{"globl", s_globl, 0},
|
|
|
|
|
{"hword", cons, 2},
|
|
|
|
|
{"if", s_if, 0},
|
|
|
|
|
{"ifdef", s_ifdef, 0},
|
|
|
|
|
{"ifeqs", s_ifeqs, 0},
|
|
|
|
|
{"ifndef", s_ifdef, 1},
|
|
|
|
|
{"ifnes", s_ifeqs, 1},
|
|
|
|
|
{"ifnotdef", s_ifdef, 1},
|
|
|
|
|
{"include", s_include, 0},
|
|
|
|
|
{"int", cons, 4},
|
|
|
|
|
{"lcomm", s_lcomm, 0},
|
|
|
|
|
{"lflags", listing_flags, 0}, /* Listing flags */
|
|
|
|
|
{"list", listing_list, 1}, /* Turn listing on */
|
|
|
|
|
{"long", cons, 4},
|
|
|
|
|
{"lsym", s_lsym, 0},
|
|
|
|
|
{"nolist", listing_list, 0}, /* Turn listing off */
|
|
|
|
|
{"octa", big_cons, 16},
|
|
|
|
|
{"org", s_org, 0},
|
|
|
|
|
{"psize", listing_psize, 0}, /* set paper size */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* print */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"quad", big_cons, 8},
|
|
|
|
|
{"sbttl", listing_title, 1}, /* Subtitle of listing */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* scl */
|
|
|
|
|
/* sect */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"set", s_set, 0},
|
|
|
|
|
{"short", cons, 2},
|
|
|
|
|
{"single", float_cons, 'f'},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* size */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"space", s_space, 0},
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* tag */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"text", s_text, 0},
|
|
|
|
|
{"title", listing_title, 0}, /* Listing title */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* type */
|
|
|
|
|
/* use */
|
|
|
|
|
/* val */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{"word", cons, 2},
|
|
|
|
|
{NULL} /* end sentinel */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
};
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
static void
|
|
|
|
|
pobegin ()
|
|
|
|
|
{
|
|
|
|
|
char *errtxt; /* error text */
|
|
|
|
|
const pseudo_typeS *pop;
|
|
|
|
|
|
|
|
|
|
po_hash = hash_new ();
|
|
|
|
|
|
|
|
|
|
/* Do the target-specific pseudo ops. */
|
|
|
|
|
for (pop = md_pseudo_table; pop->poc_name; pop++)
|
|
|
|
|
{
|
|
|
|
|
errtxt = hash_insert (po_hash, pop->poc_name, (char *) pop);
|
|
|
|
|
if (errtxt && *errtxt)
|
|
|
|
|
{
|
|
|
|
|
as_fatal ("error constructing md pseudo-op table");
|
|
|
|
|
} /* on error */
|
|
|
|
|
} /* for each op */
|
|
|
|
|
|
|
|
|
|
/* Now object specific. Skip any that were in the target table. */
|
|
|
|
|
for (pop = obj_pseudo_table; pop->poc_name; pop++)
|
|
|
|
|
{
|
|
|
|
|
errtxt = hash_insert (po_hash, pop->poc_name, (char *) pop);
|
|
|
|
|
if (errtxt && *errtxt)
|
|
|
|
|
{
|
|
|
|
|
if (!strcmp (errtxt, "exists"))
|
|
|
|
|
{
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef DIE_ON_OVERRIDES
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_fatal ("pseudo op \".%s\" overridden.\n", pop->poc_name);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* DIE_ON_OVERRIDES */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
continue; /* OK if target table overrides. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_fatal ("error constructing obj pseudo-op table");
|
|
|
|
|
} /* if overridden */
|
|
|
|
|
} /* on error */
|
|
|
|
|
} /* for each op */
|
|
|
|
|
|
|
|
|
|
/* Now portable ones. Skip any that we've seen already. */
|
|
|
|
|
for (pop = potable; pop->poc_name; pop++)
|
|
|
|
|
{
|
|
|
|
|
errtxt = hash_insert (po_hash, pop->poc_name, (char *) pop);
|
|
|
|
|
if (errtxt && *errtxt)
|
|
|
|
|
{
|
|
|
|
|
if (!strcmp (errtxt, "exists"))
|
|
|
|
|
{
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef DIE_ON_OVERRIDES
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_fatal ("pseudo op \".%s\" overridden.\n", pop->poc_name);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* DIE_ON_OVERRIDES */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
continue; /* OK if target table overrides. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_fatal ("error constructing obj pseudo-op table");
|
|
|
|
|
} /* if overridden */
|
|
|
|
|
} /* on error */
|
|
|
|
|
} /* for each op */
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
} /* pobegin() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
#define HANDLE_CONDITIONAL_ASSEMBLY() \
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (ignore_input ()) \
|
|
|
|
|
{ \
|
|
|
|
|
while (! is_end_of_line[*input_line_pointer++]) \
|
|
|
|
|
if (input_line_pointer == buffer_limit) \
|
|
|
|
|
break; \
|
|
|
|
|
continue; \
|
|
|
|
|
}
|
1992-02-13 09:33:54 +01:00
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/* read_a_source_file()
|
|
|
|
|
*
|
|
|
|
|
* We read the file, putting things into a web that
|
|
|
|
|
* represents what we have been reading.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
read_a_source_file (name)
|
|
|
|
|
char *name;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register char c;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register char *s; /* string of symbol, '\0' appended */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register int temp;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
pseudo_typeS *pop;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
buffer = input_scrub_new_file (name);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
listing_file (name);
|
|
|
|
|
listing_newline ("");
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
while ((buffer_limit = input_scrub_next_buffer (&input_line_pointer)) != 0)
|
|
|
|
|
{ /* We have another line to parse. */
|
|
|
|
|
know (buffer_limit[-1] == '\n'); /* Must have a sentinel. */
|
1993-03-04 14:21:19 +01:00
|
|
|
|
contin: /* JF this goto is my fault I admit it.
|
|
|
|
|
Someone brave please re-write the whole
|
|
|
|
|
input section here? Pleeze??? */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
while (input_line_pointer < buffer_limit)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
{
|
|
|
|
|
/* We have more of this buffer to parse. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* We now have input_line_pointer->1st char of next line.
|
|
|
|
|
* If input_line_pointer [-1] == '\n' then we just
|
|
|
|
|
* scanned another line: so bump line counters.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (input_line_pointer[-1] == '\n')
|
|
|
|
|
{
|
|
|
|
|
bump_line_counters ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
#ifdef MRI
|
|
|
|
|
/* Text at the start of a line must be a label, we run down and stick a colon in */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_name_beginner (*input_line_pointer))
|
|
|
|
|
{
|
|
|
|
|
char *line_start = input_line_pointer;
|
|
|
|
|
char c = get_symbol_end ();
|
|
|
|
|
colon (line_start);
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
if (c == ':')
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#endif
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* We are at the begining of a line, or similar place.
|
|
|
|
|
* We expect a well-formed assembler statement.
|
|
|
|
|
* A "symbol-name:" is a statement.
|
|
|
|
|
*
|
|
|
|
|
* Depending on what compiler is used, the order of these tests
|
|
|
|
|
* may vary to catch most common case 1st.
|
|
|
|
|
* Each test is independent of all other tests at the (top) level.
|
|
|
|
|
* PLEASE make a compiler that doesn't use this assembler.
|
|
|
|
|
* It is crufty to waste a compiler's time encoding things for this
|
|
|
|
|
* assembler, which then wastes more time decoding it.
|
|
|
|
|
* (And communicating via (linear) files is silly!
|
|
|
|
|
* If you must pass stuff, please pass a tree!)
|
|
|
|
|
*/
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if ((c = *input_line_pointer++) == '\t'
|
|
|
|
|
|| c == ' '
|
|
|
|
|
|| c == '\f'
|
|
|
|
|
|| c == 0)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
|
|
|
|
c = *input_line_pointer++;
|
|
|
|
|
}
|
|
|
|
|
know (c != ' '); /* No further leading whitespace. */
|
|
|
|
|
LISTING_NEWLINE ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/*
|
|
|
|
|
* C is the 1st significant character.
|
|
|
|
|
* Input_line_pointer points after that character.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_name_beginner (c))
|
|
|
|
|
{ /* want user-defined label or pseudo/opcode */
|
|
|
|
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
s = --input_line_pointer;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
c = get_symbol_end (); /* name's delimiter */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/*
|
|
|
|
|
* C is character after symbol.
|
|
|
|
|
* That character's place in the input line is now '\0'.
|
|
|
|
|
* S points to the beginning of the symbol.
|
|
|
|
|
* [In case of pseudo-op, s->'.'.]
|
|
|
|
|
* Input_line_pointer->'\0' where c was.
|
|
|
|
|
*/
|
1993-05-27 21:29:38 +02:00
|
|
|
|
if (TC_START_LABEL(c, input_line_pointer))
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
|
|
|
|
colon (s); /* user-defined label */
|
|
|
|
|
*input_line_pointer++ = ':'; /* Put ':' back for error messages' sake. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* Input_line_pointer->after ':'. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
|
|
|
|
else if (c == '=' || input_line_pointer[1] == '=')
|
1993-03-29 23:20:04 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
equals (s);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{ /* expect pseudo-op or machine instruction */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#ifdef MRI
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (!done_pseudo (s))
|
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#else
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (*s == '.')
|
|
|
|
|
{
|
|
|
|
|
/*
|
1993-03-04 14:21:19 +01:00
|
|
|
|
* PSEUDO - OP.
|
|
|
|
|
*
|
|
|
|
|
* WARNING: c has next char, which may be end-of-line.
|
|
|
|
|
* We lookup the pseudo-op table with s+1 because we
|
|
|
|
|
* already know that the pseudo-op begins with a '.'.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
pop = (pseudo_typeS *) hash_find (po_hash, s + 1);
|
|
|
|
|
|
|
|
|
|
/* Print the error msg now, while we still can */
|
|
|
|
|
if (!pop)
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Unknown pseudo-op: `%s'", s);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
*input_line_pointer = c;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
s_ignore (0);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Put it back for error messages etc. */
|
|
|
|
|
*input_line_pointer = c;
|
1993-03-29 23:20:04 +02:00
|
|
|
|
/* The following skip of whitespace is compulsory.
|
|
|
|
|
A well shaped space is sometimes all that separates
|
|
|
|
|
keyword from operands. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (c == ' ' || c == '\t')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
} /* Skip seperator after keyword. */
|
|
|
|
|
/*
|
1993-03-04 14:21:19 +01:00
|
|
|
|
* Input_line is restored.
|
|
|
|
|
* Input_line_pointer->1st non-blank char
|
|
|
|
|
* after pseudo-operation.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (!pop)
|
|
|
|
|
{
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
(*pop->poc_handler) (pop->poc_val);
|
|
|
|
|
} /* if we have one */
|
|
|
|
|
}
|
|
|
|
|
else
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{ /* machine instruction */
|
|
|
|
|
/* WARNING: c has char, which may be end-of-line. */
|
|
|
|
|
/* Also: input_line_pointer->`\0` where c was. */
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
while (!is_end_of_line[*input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
c = *input_line_pointer;
|
|
|
|
|
*input_line_pointer = '\0';
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
md_assemble (s); /* Assemble 1 instruction. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
*input_line_pointer++ = c;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* We resume loop AFTER the end-of-line from this instruction */
|
|
|
|
|
} /* if (*s=='.') */
|
|
|
|
|
|
|
|
|
|
} /* if c==':' */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
continue;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* if (is_name_beginner(c) */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_end_of_line[c])
|
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
continue;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* empty statement */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if defined(LOCAL_LABELS_DOLLAR) || defined(LOCAL_LABELS_FB)
|
|
|
|
|
if (isdigit (c))
|
|
|
|
|
{ /* local label ("4:") */
|
|
|
|
|
char *backup = input_line_pointer;
|
|
|
|
|
|
|
|
|
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
|
|
|
|
|
|
|
|
|
temp = c - '0';
|
|
|
|
|
|
|
|
|
|
while (isdigit (*input_line_pointer))
|
|
|
|
|
{
|
|
|
|
|
temp = (temp * 10) + *input_line_pointer - '0';
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
} /* read the whole number */
|
|
|
|
|
|
|
|
|
|
#ifdef LOCAL_LABELS_DOLLAR
|
|
|
|
|
if (*input_line_pointer == '$'
|
|
|
|
|
&& *(input_line_pointer + 1) == ':')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer += 2;
|
|
|
|
|
|
|
|
|
|
if (dollar_label_defined (temp))
|
|
|
|
|
{
|
|
|
|
|
as_fatal ("label \"%d$\" redefined", temp);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
define_dollar_label (temp);
|
|
|
|
|
colon (dollar_label_name (temp, 0));
|
|
|
|
|
continue;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#endif /* LOCAL_LABELS_DOLLAR */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#ifdef LOCAL_LABELS_FB
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (*input_line_pointer++ == ':')
|
|
|
|
|
{
|
|
|
|
|
fb_label_instance_inc (temp);
|
|
|
|
|
colon (fb_label_name (temp, 0));
|
|
|
|
|
continue;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#endif /* LOCAL_LABELS_FB */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
input_line_pointer = backup;
|
|
|
|
|
} /* local label ("4:") */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#endif /* LOCAL_LABELS_DOLLAR or LOCAL_LABELS_FB */
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (c && strchr (line_comment_chars, c))
|
|
|
|
|
{ /* Its a comment. Better say APP or NO_APP */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
char *ends;
|
|
|
|
|
char *new_buf;
|
|
|
|
|
char *new_tmp;
|
|
|
|
|
int new_length;
|
|
|
|
|
char *tmp_buf = 0;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
extern char *scrub_string, *scrub_last_string;
|
|
|
|
|
|
|
|
|
|
bump_line_counters ();
|
|
|
|
|
s = input_line_pointer;
|
|
|
|
|
if (strncmp (s, "APP\n", 4))
|
|
|
|
|
continue; /* We ignore it */
|
|
|
|
|
s += 4;
|
|
|
|
|
|
|
|
|
|
ends = strstr (s, "#NO_APP\n");
|
|
|
|
|
|
|
|
|
|
if (!ends)
|
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
int tmp_len;
|
|
|
|
|
int num;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* The end of the #APP wasn't in this buffer. We
|
|
|
|
|
keep reading in buffers until we find the #NO_APP
|
|
|
|
|
that goes with this #APP There is one. The specs
|
|
|
|
|
guarentee it. . . */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
tmp_len = buffer_limit - s;
|
Wed Dec 30 10:18:57 1992 Ian Lance Taylor (ian@cygnus.com)
* app.c, config/tc-*.c: Don't include read.h, since it is already
included by as.h.
* These are based on patches from Minh Tran-le
<mtranle@paris.intellicorp.com>.
* configure.in (i[34]86-ibm-aix*): Accept i486 for host. Use
obj_format coffbfd and gas_target i386coff for target.
(i[34]86-*-isc*): New host (uses sysv).
* config/i386aix.mt: Removed (no longer used).
* config/mh-i386aix (RANLIB): Use true rather than /bin/true.
(MINUS_G): Removed.
(LDFLAGS): Added, defined as -shlib.
* config/te-i386aix.h (REVERSE_SORT_RELOCS): Undefine.
* config/te-sco386.h (LOCAL_LABEL): Don't define.
(DOT_LABEL_PREFIX): Define.
* expr.c (operand): If DOT_LABEL_PREFIX, use .L0\001 as a label
name rather than L0\001.
* read.c (s_lcomm): Make a frag in SEG_BSS rather than using
local_bss_counter.
* symbols.c, symbols.h (local_bss_counter): Removed.
* write.c (write_object_file): bss no longer uses
local_bss_counter. Pass correct data and bss size to
VMS_write_object_file.
* config/obj-vms.c (VMS_write_object_file): Accept bss size as
argument, rather than using local_bss_counter.
* config/tc-m88k.c (s_bss): Don't use local_bss_counter.
* config/tc-sparc.c (s_reserve): Don't use local_bss_counter.
* config/obj-coffbfd.c (had_lineno, had_reloc): Removed.
(size_section): Restored sanity check.
(do_relocs_for): Base section address on s_paddr rather than
computing it. Adjust a29k R_IHIHALF special case to account for
section paddr (used to require paddr to be zero). If there are no
reclos, set s_relptr to 0. Set relocation size in object_headers.
(fill_section): Always set s_vaddr here, removing
ZERO_BASED_SEGMENTS case. Force s_scnptr for bss to 0. Don't set
NOLOAD for i386 .bss, because it confuses the SVR3 native linker.
Set STYP_INFO for .comment.
(coff_header_append): Use object headers and H_{SET,GET}_* macros.
Make aouthdr writing depend on OBJ_COFF_OMIT_OPTIONAL_HEADER.
(crawl_symbols): Handle 8 character section name correctly. Use
H_{SET,GET}_* macros.
(do_linenos_for): Set lineno size in object_headers.
(write_object_file): Use H_{SET,GET}_* macros. Don't bother to
set s_vaddr here. If string_byte_count remains 4, set it back to
0, and only write strings out if there are some. Call
fill_section before do_relocs_for and do_linenos_for.
(obj_coff_section): Handle optional quoted second argument giving
section characteristics.
(obj_coff_bss): Added to handle .bss.
(obj_coff_ident): Added to handle .ident (puts string in .comment
section).
(obj_coff_lcomm): Put common symbols in .bss, not .data.
(fixup_mdeps): Change to segment. Call frag_wane after
md_convert_frag.
(fixup_segment): Explicitly check S_IS_COMMON before making 386
adjustment (already happened only for common symbols, but this is
clearer).
* config/obj-coffbfd.h (OBJ_COFF_OMIT_OPTIONAL_HEADER): Define.
* config/tc-i386.c (s_bss): Don't use if I386COFF.
(md_pseudo_table): Ignore .optim and .noopt.
(tc_coff_sizemachdep): New function.
* config/tc-i386.h (REVERSE_SORT_RELOCS): Undef, for SVR3
compatibility.
(LOCAL_LABEL): Removed definition.
(DOT_LABEL_PREFIX): Defined.
1992-12-30 21:34:14 +01:00
|
|
|
|
tmp_buf = xmalloc (tmp_len + 1);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
bcopy (s, tmp_buf, tmp_len);
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
new_tmp = input_scrub_next_buffer (&buffer);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (!new_tmp)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
break;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
else
|
1992-11-23 21:39:57 +01:00
|
|
|
|
buffer_limit = new_tmp;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
input_line_pointer = buffer;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ends = strstr (buffer, "#NO_APP\n");
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (ends)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
num = ends - buffer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
else
|
1992-11-23 21:39:57 +01:00
|
|
|
|
num = buffer_limit - buffer;
|
|
|
|
|
|
|
|
|
|
tmp_buf = xrealloc (tmp_buf, tmp_len + num);
|
|
|
|
|
bcopy (buffer, tmp_buf + tmp_len, num);
|
|
|
|
|
tmp_len += num;
|
|
|
|
|
}
|
|
|
|
|
while (!ends);
|
|
|
|
|
|
|
|
|
|
input_line_pointer = ends ? ends + 8 : NULL;
|
|
|
|
|
|
|
|
|
|
s = tmp_buf;
|
|
|
|
|
ends = s + tmp_len;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer = ends + 8;
|
|
|
|
|
}
|
|
|
|
|
new_buf = xmalloc (100);
|
|
|
|
|
new_length = 100;
|
|
|
|
|
new_tmp = new_buf;
|
|
|
|
|
|
|
|
|
|
scrub_string = s;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
scrub_last_string = ends;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
for (;;)
|
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
int ch;
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ch = do_scrub_next_char (scrub_from_string, scrub_to_string);
|
|
|
|
|
if (ch == EOF)
|
|
|
|
|
break;
|
|
|
|
|
*new_tmp++ = ch;
|
|
|
|
|
if (new_tmp == new_buf + new_length)
|
|
|
|
|
{
|
|
|
|
|
new_buf = xrealloc (new_buf, new_length + 100);
|
|
|
|
|
new_tmp = new_buf + new_length;
|
|
|
|
|
new_length += 100;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
if (tmp_buf)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
free (tmp_buf);
|
|
|
|
|
old_buffer = buffer;
|
|
|
|
|
old_input = input_line_pointer;
|
|
|
|
|
old_limit = buffer_limit;
|
|
|
|
|
buffer = new_buf;
|
|
|
|
|
input_line_pointer = new_buf;
|
|
|
|
|
buffer_limit = new_tmp;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
HANDLE_CONDITIONAL_ASSEMBLY ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
/* as_warn("Junk character %d.",c); Now done by ignore_rest */
|
|
|
|
|
input_line_pointer--; /* Report unknown char as ignored. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
} /* while (input_line_pointer<buffer_limit) */
|
|
|
|
|
if (old_buffer)
|
|
|
|
|
{
|
|
|
|
|
bump_line_counters ();
|
|
|
|
|
if (old_input != 0)
|
|
|
|
|
{
|
|
|
|
|
buffer = old_buffer;
|
|
|
|
|
input_line_pointer = old_input;
|
|
|
|
|
buffer_limit = old_limit;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
old_buffer = 0;
|
|
|
|
|
goto contin;
|
|
|
|
|
}
|
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* while (more buffers to scan) */
|
|
|
|
|
input_scrub_close (); /* Close the input file */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* read_a_source_file() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_abort ()
|
|
|
|
|
{
|
|
|
|
|
as_fatal (".abort detected. Abandoning ship.");
|
|
|
|
|
} /* s_abort() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/* For machines where ".align 4" means align to a 4 byte boundary. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_align_bytes (arg)
|
|
|
|
|
int arg;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register unsigned int temp;
|
|
|
|
|
register long temp_fill;
|
|
|
|
|
unsigned int i = 0;
|
|
|
|
|
unsigned long max_alignment = 1 << 15;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_end_of_line[*input_line_pointer])
|
|
|
|
|
temp = arg; /* Default value from pseudo-op table */
|
|
|
|
|
else
|
|
|
|
|
temp = get_absolute_expression ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (temp > max_alignment)
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Alignment too large: %d. assumed.", temp = max_alignment);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/*
|
1992-06-04 21:21:58 +02:00
|
|
|
|
* For the sparc, `.align (1<<n)' actually means `.align n'
|
|
|
|
|
* so we have to convert it.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (temp != 0)
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; (temp & 1) == 0; temp >>= 1, ++i)
|
|
|
|
|
;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (temp != 1)
|
|
|
|
|
as_bad ("Alignment not a power of 2");
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
temp = i;
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
temp_fill = get_absolute_expression ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1993-03-04 14:21:19 +01:00
|
|
|
|
else if (now_seg != data_section && now_seg != bss_section)
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
temp_fill = NOP_OPCODE;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
else
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
temp_fill = 0;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* Only make a frag if we HAVE to. . . */
|
|
|
|
|
if (temp && !need_pass_2)
|
|
|
|
|
frag_align (temp, (int) temp_fill);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-05-27 21:42:23 +02:00
|
|
|
|
record_alignment (now_seg, temp);
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_align_bytes() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/* For machines where ".align 4" means align to 2**4 boundary. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_align_ptwo ()
|
|
|
|
|
{
|
|
|
|
|
register int temp;
|
|
|
|
|
register long temp_fill;
|
|
|
|
|
long max_alignment = 15;
|
|
|
|
|
|
|
|
|
|
temp = get_absolute_expression ();
|
|
|
|
|
if (temp > max_alignment)
|
|
|
|
|
as_bad ("Alignment too large: %d. assumed.", temp = max_alignment);
|
|
|
|
|
else if (temp < 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Alignment negative. 0 assumed.");
|
|
|
|
|
temp = 0;
|
|
|
|
|
}
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
temp_fill = get_absolute_expression ();
|
|
|
|
|
}
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* @@ Fix this right for BFD! */
|
|
|
|
|
else if (now_seg != data_section && now_seg != bss_section)
|
Sat Dec 12 15:26:34 1992 Ian Lance Taylor (ian@cygnus.com)
* listing.c: Call xmalloc, not malloc; don't declare malloc.
* Changes to support SCO 3.2v4:
* read.c (s_align_bytes, s_align_ptwo): If not SEG_DATA or
SEG_BSS, fill with NOP_OPCODE.
* config/i386coff.mt: Add opcode/i386.h to TARG_CPU_DEPENDENTS.
* config/obj-coffbfd.c (do_relocs_for): Increment addr even if not
using ZERO_BASED_SEGMENTS.
(fill_section): If ZERO_BASED_SEGMENTS, set segment addresses, but
never set segment address for SEG_E2 (.bss) and don't write out
SEG_E2 contents. Set .init and .fini sections to STYP_TEXT.
(obj_coff_endef): Don't merge labels or symbols awaiting forward
definitions, and don't merge tags with non-tags. Check for .bf
rather than just checking whether the second character is b and
the third character is f.
(obj_coff_val): gcc can generate values which we don't handle
correctly; discard information for now, since it only affects the
debugging information.
(tag_find_or_name): Don't insert tags in the symbol table.
(yank_symbols): Don't merge labels.
(write_object_file): Don't define SUB_SEGMENT_ALIGN if it is
already defined. Fill subsegments with NOP_OPCODE, not 0. Don't
set segment address if ZERO_BASED_SEGMENTS.
(obj_coff_section): Accept and ignore a trailing quoted string, as
used in AT&T i386 syntax.
(fixup_segment): Take segment as argument. On the i386, adjust PC
relative addends by the segment vaddr.
* tc-i386.h: Define SUB_SEGMENT_ALIGN.
* tc-a29k.h: Define ZERO_BASED_SEGMENTS.
* tc-i386.c: (i386_operand): If I386COFF, accept any segment type.
1992-12-13 01:56:14 +01:00
|
|
|
|
temp_fill = NOP_OPCODE;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
else
|
|
|
|
|
temp_fill = 0;
|
|
|
|
|
/* Only make a frag if we HAVE to. . . */
|
|
|
|
|
if (temp && !need_pass_2)
|
|
|
|
|
frag_align (temp, (int) temp_fill);
|
|
|
|
|
|
|
|
|
|
record_alignment (now_seg, temp);
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_align_ptwo() */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
s_comm ()
|
|
|
|
|
{
|
|
|
|
|
register char *name;
|
|
|
|
|
register char c;
|
|
|
|
|
register char *p;
|
1993-07-07 14:37:58 +02:00
|
|
|
|
valueT temp;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register symbolS *symbolP;
|
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
/* just after name is now '\0' */
|
|
|
|
|
p = input_line_pointer;
|
|
|
|
|
*p = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Expected comma after symbol-name: rest of line ignored.");
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
input_line_pointer++; /* skip ',' */
|
|
|
|
|
if ((temp = get_absolute_expression ()) < 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn (".COMMon length (%d.) <0! Ignored.", temp);
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
*p = 0;
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
*p = c;
|
|
|
|
|
if (S_IS_DEFINED (symbolP))
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Ignoring attempt to re-define symbol");
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (S_GET_VALUE (symbolP))
|
|
|
|
|
{
|
|
|
|
|
if (S_GET_VALUE (symbolP) != temp)
|
|
|
|
|
as_bad ("Length of .comm \"%s\" is already %d. Not changed to %d.",
|
|
|
|
|
S_GET_NAME (symbolP),
|
|
|
|
|
S_GET_VALUE (symbolP),
|
|
|
|
|
temp);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
S_SET_VALUE (symbolP, temp);
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
}
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#ifdef OBJ_VMS
|
|
|
|
|
if ( (!temp) || !flagseen['1'])
|
|
|
|
|
S_GET_OTHER(symbolP) = const_flag;
|
|
|
|
|
#endif /* not OBJ_VMS */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
know (symbolP->sy_frag == &zero_address_frag);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_comm() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
void
|
1992-11-23 21:39:57 +01:00
|
|
|
|
s_data ()
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register int temp;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
temp = get_absolute_expression ();
|
1993-01-04 22:48:44 +01:00
|
|
|
|
#ifdef BFD_ASSEMBLER
|
1993-01-04 14:24:39 +01:00
|
|
|
|
subseg_set (data_section, (subsegT) temp);
|
1993-01-04 22:48:44 +01:00
|
|
|
|
#else
|
1993-03-04 14:21:19 +01:00
|
|
|
|
subseg_new (data_section, (subsegT) temp);
|
1993-01-04 22:48:44 +01:00
|
|
|
|
#endif
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#ifdef OBJ_VMS
|
1992-11-23 21:39:57 +01:00
|
|
|
|
const_flag = 0;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
demand_empty_rest_of_line ();
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
1993-05-27 21:29:38 +02:00
|
|
|
|
/* Handle the .appfile pseudo-op. This is automatically generated by
|
|
|
|
|
do_scrub_next_char when a preprocessor # line comment is seen with
|
|
|
|
|
a file name. This default definition may be overridden by the
|
|
|
|
|
object or CPU specific pseudo-ops. This function is also the
|
|
|
|
|
default definition for .file; the APPFILE argument is 1 for
|
|
|
|
|
.appfile, 0 for .file. */
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
1993-05-27 21:29:38 +02:00
|
|
|
|
s_app_file (appfile)
|
|
|
|
|
int appfile;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
|
|
|
|
register char *s;
|
|
|
|
|
int length;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* Some assemblers tolerate immediately following '"' */
|
|
|
|
|
if ((s = demand_copy_string (&length)) != 0)
|
|
|
|
|
{
|
1993-05-27 21:29:38 +02:00
|
|
|
|
/* If this is a fake .appfile, a fake newline was inserted into
|
|
|
|
|
the buffer. Passing -2 to new_logical_line tells it to
|
|
|
|
|
account for it. */
|
|
|
|
|
new_logical_line (s, appfile ? -2 : -1);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
demand_empty_rest_of_line ();
|
1993-05-27 21:29:38 +02:00
|
|
|
|
#ifdef LISTING
|
|
|
|
|
if (listing)
|
|
|
|
|
listing_source_file (s);
|
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef OBJ_COFF
|
1992-11-23 21:39:57 +01:00
|
|
|
|
c_dot_file_symbol (s);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_COFF */
|
1993-07-07 14:37:58 +02:00
|
|
|
|
#ifdef OBJ_ELF
|
|
|
|
|
elf_file_symbol (s);
|
|
|
|
|
#endif
|
|
|
|
|
}
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1993-05-27 21:29:38 +02:00
|
|
|
|
/* Handle the .appline pseudo-op. This is automatically generated by
|
|
|
|
|
do_scrub_next_char when a preprocessor # line comment is seen.
|
|
|
|
|
This default definition may be overridden by the object or CPU
|
|
|
|
|
specific pseudo-ops. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
s_app_line ()
|
|
|
|
|
{
|
|
|
|
|
int l;
|
|
|
|
|
|
|
|
|
|
/* The given number is that of the next line. */
|
|
|
|
|
l = get_absolute_expression () - 1;
|
|
|
|
|
new_logical_line ((char *) NULL, l);
|
|
|
|
|
#ifdef LISTING
|
|
|
|
|
if (listing)
|
|
|
|
|
listing_source_line (l);
|
|
|
|
|
#endif
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_fill ()
|
|
|
|
|
{
|
|
|
|
|
long temp_repeat = 0;
|
|
|
|
|
long temp_size = 1;
|
|
|
|
|
register long temp_fill = 0;
|
|
|
|
|
char *p;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-06-24 20:02:38 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
temp_repeat = get_absolute_expression ();
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
temp_size = get_absolute_expression ();
|
|
|
|
|
if (*input_line_pointer == ',')
|
1992-06-24 20:02:38 +02:00
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
temp_fill = get_absolute_expression ();
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
1993-01-04 14:24:39 +01:00
|
|
|
|
/* This is to be compatible with BSD 4.2 AS, not for any rational reason. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#define BSD_FILL_SIZE_CROCK_8 (8)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (temp_size > BSD_FILL_SIZE_CROCK_8)
|
|
|
|
|
{
|
|
|
|
|
as_warn (".fill size clamped to %d.", BSD_FILL_SIZE_CROCK_8);
|
|
|
|
|
temp_size = BSD_FILL_SIZE_CROCK_8;
|
|
|
|
|
}
|
|
|
|
|
if (temp_size < 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn ("Size negative: .fill ignored.");
|
|
|
|
|
temp_size = 0;
|
|
|
|
|
}
|
|
|
|
|
else if (temp_repeat <= 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn ("Repeat < 0, .fill ignored");
|
|
|
|
|
temp_size = 0;
|
|
|
|
|
}
|
1992-08-06 21:11:19 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (temp_size && !need_pass_2)
|
|
|
|
|
{
|
|
|
|
|
p = frag_var (rs_fill, (int) temp_size, (int) temp_size, (relax_substateT) 0, (symbolS *) 0, temp_repeat, (char *) 0);
|
1993-01-04 14:24:39 +01:00
|
|
|
|
memset (p, 0, (int) temp_size);
|
|
|
|
|
/* The magic number BSD_FILL_SIZE_CROCK_4 is from BSD 4.2 VAX
|
|
|
|
|
* flavoured AS. The following bizzare behaviour is to be
|
|
|
|
|
* compatible with above. I guess they tried to take up to 8
|
|
|
|
|
* bytes from a 4-byte expression and they forgot to sign
|
|
|
|
|
* extend. Un*x Sux. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#define BSD_FILL_SIZE_CROCK_4 (4)
|
1993-01-04 14:24:39 +01:00
|
|
|
|
md_number_to_chars (p, temp_fill,
|
|
|
|
|
(temp_size > BSD_FILL_SIZE_CROCK_4
|
|
|
|
|
? BSD_FILL_SIZE_CROCK_4
|
|
|
|
|
: (int) temp_size));
|
|
|
|
|
/* Note: .fill (),0 emits no frag (since we are asked to .fill 0 bytes)
|
|
|
|
|
* but emits no error message because it seems a legal thing to do.
|
|
|
|
|
* It is a degenerate case of .fill but could be emitted by a compiler.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
|
|
|
|
demand_empty_rest_of_line ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_globl ()
|
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
char *name;
|
|
|
|
|
int c;
|
|
|
|
|
symbolS *symbolP;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
*input_line_pointer = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
if (c == ',')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer == '\n')
|
|
|
|
|
c = '\n';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
while (c == ',');
|
|
|
|
|
demand_empty_rest_of_line ();
|
1993-07-07 14:37:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
s_lcomm (needs_align)
|
1993-01-04 14:24:39 +01:00
|
|
|
|
/* 1 if this was a ".bss" directive, which may require a 3rd argument
|
|
|
|
|
(alignment); 0 if it was an ".lcomm" (2 args only) */
|
|
|
|
|
int needs_align;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register char *name;
|
|
|
|
|
register char c;
|
|
|
|
|
register char *p;
|
|
|
|
|
register int temp;
|
|
|
|
|
register symbolS *symbolP;
|
1993-05-27 21:29:38 +02:00
|
|
|
|
segT current_seg = now_seg;
|
|
|
|
|
subsegT current_subseg = now_subseg;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
const int max_alignment = 15;
|
|
|
|
|
int align = 0;
|
1993-05-27 21:29:38 +02:00
|
|
|
|
segT bss_seg = bss_section;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
p = input_line_pointer;
|
|
|
|
|
*p = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Expected comma after name");
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
++input_line_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (*input_line_pointer == '\n')
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Missing size expression");
|
|
|
|
|
return;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if ((temp = get_absolute_expression ()) < 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn ("BSS length (%d.) <0! Ignored.", temp);
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-05-27 21:29:38 +02:00
|
|
|
|
#ifdef TC_MIPS
|
|
|
|
|
#ifdef OBJ_ECOFF
|
|
|
|
|
/* For MIPS ECOFF, small objects are put in .sbss. */
|
|
|
|
|
if (temp <= bfd_get_gp_size (stdoutput))
|
|
|
|
|
bss_seg = subseg_new (".sbss", 1);
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (needs_align)
|
|
|
|
|
{
|
|
|
|
|
align = 0;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Expected comma after size");
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer == '\n')
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Missing alignment");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
align = get_absolute_expression ();
|
|
|
|
|
if (align > max_alignment)
|
|
|
|
|
{
|
|
|
|
|
align = max_alignment;
|
|
|
|
|
as_warn ("Alignment too large: %d. assumed.", align);
|
|
|
|
|
}
|
|
|
|
|
else if (align < 0)
|
|
|
|
|
{
|
|
|
|
|
align = 0;
|
|
|
|
|
as_warn ("Alignment negative. 0 assumed.");
|
|
|
|
|
}
|
1993-05-27 21:29:38 +02:00
|
|
|
|
record_alignment (bss_seg, align);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* if needs align */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
*p = 0;
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
|
|
|
|
*p = c;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_GET_OTHER (symbolP) == 0 &&
|
|
|
|
|
S_GET_DESC (symbolP) == 0 &&
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1993-05-27 21:29:38 +02:00
|
|
|
|
(S_GET_SEGMENT (symbolP) == bss_seg
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|| (!S_IS_DEFINED (symbolP) && S_GET_VALUE (symbolP) == 0)))
|
|
|
|
|
{
|
Wed Dec 30 10:18:57 1992 Ian Lance Taylor (ian@cygnus.com)
* app.c, config/tc-*.c: Don't include read.h, since it is already
included by as.h.
* These are based on patches from Minh Tran-le
<mtranle@paris.intellicorp.com>.
* configure.in (i[34]86-ibm-aix*): Accept i486 for host. Use
obj_format coffbfd and gas_target i386coff for target.
(i[34]86-*-isc*): New host (uses sysv).
* config/i386aix.mt: Removed (no longer used).
* config/mh-i386aix (RANLIB): Use true rather than /bin/true.
(MINUS_G): Removed.
(LDFLAGS): Added, defined as -shlib.
* config/te-i386aix.h (REVERSE_SORT_RELOCS): Undefine.
* config/te-sco386.h (LOCAL_LABEL): Don't define.
(DOT_LABEL_PREFIX): Define.
* expr.c (operand): If DOT_LABEL_PREFIX, use .L0\001 as a label
name rather than L0\001.
* read.c (s_lcomm): Make a frag in SEG_BSS rather than using
local_bss_counter.
* symbols.c, symbols.h (local_bss_counter): Removed.
* write.c (write_object_file): bss no longer uses
local_bss_counter. Pass correct data and bss size to
VMS_write_object_file.
* config/obj-vms.c (VMS_write_object_file): Accept bss size as
argument, rather than using local_bss_counter.
* config/tc-m88k.c (s_bss): Don't use local_bss_counter.
* config/tc-sparc.c (s_reserve): Don't use local_bss_counter.
* config/obj-coffbfd.c (had_lineno, had_reloc): Removed.
(size_section): Restored sanity check.
(do_relocs_for): Base section address on s_paddr rather than
computing it. Adjust a29k R_IHIHALF special case to account for
section paddr (used to require paddr to be zero). If there are no
reclos, set s_relptr to 0. Set relocation size in object_headers.
(fill_section): Always set s_vaddr here, removing
ZERO_BASED_SEGMENTS case. Force s_scnptr for bss to 0. Don't set
NOLOAD for i386 .bss, because it confuses the SVR3 native linker.
Set STYP_INFO for .comment.
(coff_header_append): Use object headers and H_{SET,GET}_* macros.
Make aouthdr writing depend on OBJ_COFF_OMIT_OPTIONAL_HEADER.
(crawl_symbols): Handle 8 character section name correctly. Use
H_{SET,GET}_* macros.
(do_linenos_for): Set lineno size in object_headers.
(write_object_file): Use H_{SET,GET}_* macros. Don't bother to
set s_vaddr here. If string_byte_count remains 4, set it back to
0, and only write strings out if there are some. Call
fill_section before do_relocs_for and do_linenos_for.
(obj_coff_section): Handle optional quoted second argument giving
section characteristics.
(obj_coff_bss): Added to handle .bss.
(obj_coff_ident): Added to handle .ident (puts string in .comment
section).
(obj_coff_lcomm): Put common symbols in .bss, not .data.
(fixup_mdeps): Change to segment. Call frag_wane after
md_convert_frag.
(fixup_segment): Explicitly check S_IS_COMMON before making 386
adjustment (already happened only for common symbols, but this is
clearer).
* config/obj-coffbfd.h (OBJ_COFF_OMIT_OPTIONAL_HEADER): Define.
* config/tc-i386.c (s_bss): Don't use if I386COFF.
(md_pseudo_table): Ignore .optim and .noopt.
(tc_coff_sizemachdep): New function.
* config/tc-i386.h (REVERSE_SORT_RELOCS): Undef, for SVR3
compatibility.
(LOCAL_LABEL): Removed definition.
(DOT_LABEL_PREFIX): Defined.
1992-12-30 21:34:14 +01:00
|
|
|
|
char *p;
|
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#ifdef BFD_ASSEMBLER
|
1993-05-27 21:29:38 +02:00
|
|
|
|
subseg_set (bss_seg, 1);
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#else
|
1993-05-27 21:29:38 +02:00
|
|
|
|
subseg_new (bss_seg, 1);
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#endif
|
Wed Dec 30 10:18:57 1992 Ian Lance Taylor (ian@cygnus.com)
* app.c, config/tc-*.c: Don't include read.h, since it is already
included by as.h.
* These are based on patches from Minh Tran-le
<mtranle@paris.intellicorp.com>.
* configure.in (i[34]86-ibm-aix*): Accept i486 for host. Use
obj_format coffbfd and gas_target i386coff for target.
(i[34]86-*-isc*): New host (uses sysv).
* config/i386aix.mt: Removed (no longer used).
* config/mh-i386aix (RANLIB): Use true rather than /bin/true.
(MINUS_G): Removed.
(LDFLAGS): Added, defined as -shlib.
* config/te-i386aix.h (REVERSE_SORT_RELOCS): Undefine.
* config/te-sco386.h (LOCAL_LABEL): Don't define.
(DOT_LABEL_PREFIX): Define.
* expr.c (operand): If DOT_LABEL_PREFIX, use .L0\001 as a label
name rather than L0\001.
* read.c (s_lcomm): Make a frag in SEG_BSS rather than using
local_bss_counter.
* symbols.c, symbols.h (local_bss_counter): Removed.
* write.c (write_object_file): bss no longer uses
local_bss_counter. Pass correct data and bss size to
VMS_write_object_file.
* config/obj-vms.c (VMS_write_object_file): Accept bss size as
argument, rather than using local_bss_counter.
* config/tc-m88k.c (s_bss): Don't use local_bss_counter.
* config/tc-sparc.c (s_reserve): Don't use local_bss_counter.
* config/obj-coffbfd.c (had_lineno, had_reloc): Removed.
(size_section): Restored sanity check.
(do_relocs_for): Base section address on s_paddr rather than
computing it. Adjust a29k R_IHIHALF special case to account for
section paddr (used to require paddr to be zero). If there are no
reclos, set s_relptr to 0. Set relocation size in object_headers.
(fill_section): Always set s_vaddr here, removing
ZERO_BASED_SEGMENTS case. Force s_scnptr for bss to 0. Don't set
NOLOAD for i386 .bss, because it confuses the SVR3 native linker.
Set STYP_INFO for .comment.
(coff_header_append): Use object headers and H_{SET,GET}_* macros.
Make aouthdr writing depend on OBJ_COFF_OMIT_OPTIONAL_HEADER.
(crawl_symbols): Handle 8 character section name correctly. Use
H_{SET,GET}_* macros.
(do_linenos_for): Set lineno size in object_headers.
(write_object_file): Use H_{SET,GET}_* macros. Don't bother to
set s_vaddr here. If string_byte_count remains 4, set it back to
0, and only write strings out if there are some. Call
fill_section before do_relocs_for and do_linenos_for.
(obj_coff_section): Handle optional quoted second argument giving
section characteristics.
(obj_coff_bss): Added to handle .bss.
(obj_coff_ident): Added to handle .ident (puts string in .comment
section).
(obj_coff_lcomm): Put common symbols in .bss, not .data.
(fixup_mdeps): Change to segment. Call frag_wane after
md_convert_frag.
(fixup_segment): Explicitly check S_IS_COMMON before making 386
adjustment (already happened only for common symbols, but this is
clearer).
* config/obj-coffbfd.h (OBJ_COFF_OMIT_OPTIONAL_HEADER): Define.
* config/tc-i386.c (s_bss): Don't use if I386COFF.
(md_pseudo_table): Ignore .optim and .noopt.
(tc_coff_sizemachdep): New function.
* config/tc-i386.h (REVERSE_SORT_RELOCS): Undef, for SVR3
compatibility.
(LOCAL_LABEL): Removed definition.
(DOT_LABEL_PREFIX): Defined.
1992-12-30 21:34:14 +01:00
|
|
|
|
|
|
|
|
|
if (align)
|
|
|
|
|
frag_align (align, 0);
|
|
|
|
|
/* detach from old frag */
|
1993-05-27 21:29:38 +02:00
|
|
|
|
if (S_GET_SEGMENT (symbolP) == bss_seg)
|
Wed Dec 30 10:18:57 1992 Ian Lance Taylor (ian@cygnus.com)
* app.c, config/tc-*.c: Don't include read.h, since it is already
included by as.h.
* These are based on patches from Minh Tran-le
<mtranle@paris.intellicorp.com>.
* configure.in (i[34]86-ibm-aix*): Accept i486 for host. Use
obj_format coffbfd and gas_target i386coff for target.
(i[34]86-*-isc*): New host (uses sysv).
* config/i386aix.mt: Removed (no longer used).
* config/mh-i386aix (RANLIB): Use true rather than /bin/true.
(MINUS_G): Removed.
(LDFLAGS): Added, defined as -shlib.
* config/te-i386aix.h (REVERSE_SORT_RELOCS): Undefine.
* config/te-sco386.h (LOCAL_LABEL): Don't define.
(DOT_LABEL_PREFIX): Define.
* expr.c (operand): If DOT_LABEL_PREFIX, use .L0\001 as a label
name rather than L0\001.
* read.c (s_lcomm): Make a frag in SEG_BSS rather than using
local_bss_counter.
* symbols.c, symbols.h (local_bss_counter): Removed.
* write.c (write_object_file): bss no longer uses
local_bss_counter. Pass correct data and bss size to
VMS_write_object_file.
* config/obj-vms.c (VMS_write_object_file): Accept bss size as
argument, rather than using local_bss_counter.
* config/tc-m88k.c (s_bss): Don't use local_bss_counter.
* config/tc-sparc.c (s_reserve): Don't use local_bss_counter.
* config/obj-coffbfd.c (had_lineno, had_reloc): Removed.
(size_section): Restored sanity check.
(do_relocs_for): Base section address on s_paddr rather than
computing it. Adjust a29k R_IHIHALF special case to account for
section paddr (used to require paddr to be zero). If there are no
reclos, set s_relptr to 0. Set relocation size in object_headers.
(fill_section): Always set s_vaddr here, removing
ZERO_BASED_SEGMENTS case. Force s_scnptr for bss to 0. Don't set
NOLOAD for i386 .bss, because it confuses the SVR3 native linker.
Set STYP_INFO for .comment.
(coff_header_append): Use object headers and H_{SET,GET}_* macros.
Make aouthdr writing depend on OBJ_COFF_OMIT_OPTIONAL_HEADER.
(crawl_symbols): Handle 8 character section name correctly. Use
H_{SET,GET}_* macros.
(do_linenos_for): Set lineno size in object_headers.
(write_object_file): Use H_{SET,GET}_* macros. Don't bother to
set s_vaddr here. If string_byte_count remains 4, set it back to
0, and only write strings out if there are some. Call
fill_section before do_relocs_for and do_linenos_for.
(obj_coff_section): Handle optional quoted second argument giving
section characteristics.
(obj_coff_bss): Added to handle .bss.
(obj_coff_ident): Added to handle .ident (puts string in .comment
section).
(obj_coff_lcomm): Put common symbols in .bss, not .data.
(fixup_mdeps): Change to segment. Call frag_wane after
md_convert_frag.
(fixup_segment): Explicitly check S_IS_COMMON before making 386
adjustment (already happened only for common symbols, but this is
clearer).
* config/obj-coffbfd.h (OBJ_COFF_OMIT_OPTIONAL_HEADER): Define.
* config/tc-i386.c (s_bss): Don't use if I386COFF.
(md_pseudo_table): Ignore .optim and .noopt.
(tc_coff_sizemachdep): New function.
* config/tc-i386.h (REVERSE_SORT_RELOCS): Undef, for SVR3
compatibility.
(LOCAL_LABEL): Removed definition.
(DOT_LABEL_PREFIX): Defined.
1992-12-30 21:34:14 +01:00
|
|
|
|
symbolP->sy_frag->fr_symbol = NULL;
|
|
|
|
|
|
|
|
|
|
symbolP->sy_frag = frag_now;
|
|
|
|
|
p = frag_var (rs_org, 1, 1, (relax_substateT)0, symbolP,
|
|
|
|
|
temp, (char *)0);
|
|
|
|
|
*p = 0;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-05-27 21:29:38 +02:00
|
|
|
|
S_SET_SEGMENT (symbolP, bss_seg);
|
Wed Dec 30 10:18:57 1992 Ian Lance Taylor (ian@cygnus.com)
* app.c, config/tc-*.c: Don't include read.h, since it is already
included by as.h.
* These are based on patches from Minh Tran-le
<mtranle@paris.intellicorp.com>.
* configure.in (i[34]86-ibm-aix*): Accept i486 for host. Use
obj_format coffbfd and gas_target i386coff for target.
(i[34]86-*-isc*): New host (uses sysv).
* config/i386aix.mt: Removed (no longer used).
* config/mh-i386aix (RANLIB): Use true rather than /bin/true.
(MINUS_G): Removed.
(LDFLAGS): Added, defined as -shlib.
* config/te-i386aix.h (REVERSE_SORT_RELOCS): Undefine.
* config/te-sco386.h (LOCAL_LABEL): Don't define.
(DOT_LABEL_PREFIX): Define.
* expr.c (operand): If DOT_LABEL_PREFIX, use .L0\001 as a label
name rather than L0\001.
* read.c (s_lcomm): Make a frag in SEG_BSS rather than using
local_bss_counter.
* symbols.c, symbols.h (local_bss_counter): Removed.
* write.c (write_object_file): bss no longer uses
local_bss_counter. Pass correct data and bss size to
VMS_write_object_file.
* config/obj-vms.c (VMS_write_object_file): Accept bss size as
argument, rather than using local_bss_counter.
* config/tc-m88k.c (s_bss): Don't use local_bss_counter.
* config/tc-sparc.c (s_reserve): Don't use local_bss_counter.
* config/obj-coffbfd.c (had_lineno, had_reloc): Removed.
(size_section): Restored sanity check.
(do_relocs_for): Base section address on s_paddr rather than
computing it. Adjust a29k R_IHIHALF special case to account for
section paddr (used to require paddr to be zero). If there are no
reclos, set s_relptr to 0. Set relocation size in object_headers.
(fill_section): Always set s_vaddr here, removing
ZERO_BASED_SEGMENTS case. Force s_scnptr for bss to 0. Don't set
NOLOAD for i386 .bss, because it confuses the SVR3 native linker.
Set STYP_INFO for .comment.
(coff_header_append): Use object headers and H_{SET,GET}_* macros.
Make aouthdr writing depend on OBJ_COFF_OMIT_OPTIONAL_HEADER.
(crawl_symbols): Handle 8 character section name correctly. Use
H_{SET,GET}_* macros.
(do_linenos_for): Set lineno size in object_headers.
(write_object_file): Use H_{SET,GET}_* macros. Don't bother to
set s_vaddr here. If string_byte_count remains 4, set it back to
0, and only write strings out if there are some. Call
fill_section before do_relocs_for and do_linenos_for.
(obj_coff_section): Handle optional quoted second argument giving
section characteristics.
(obj_coff_bss): Added to handle .bss.
(obj_coff_ident): Added to handle .ident (puts string in .comment
section).
(obj_coff_lcomm): Put common symbols in .bss, not .data.
(fixup_mdeps): Change to segment. Call frag_wane after
md_convert_frag.
(fixup_segment): Explicitly check S_IS_COMMON before making 386
adjustment (already happened only for common symbols, but this is
clearer).
* config/obj-coffbfd.h (OBJ_COFF_OMIT_OPTIONAL_HEADER): Define.
* config/tc-i386.c (s_bss): Don't use if I386COFF.
(md_pseudo_table): Ignore .optim and .noopt.
(tc_coff_sizemachdep): New function.
* config/tc-i386.h (REVERSE_SORT_RELOCS): Undef, for SVR3
compatibility.
(LOCAL_LABEL): Removed definition.
(DOT_LABEL_PREFIX): Defined.
1992-12-30 21:34:14 +01:00
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef OBJ_COFF
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* The symbol may already have been created with a preceding
|
1993-01-04 14:24:39 +01:00
|
|
|
|
".globl" directive -- be careful not to step on storage class
|
|
|
|
|
in that case. Otherwise, set it to static. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (S_GET_STORAGE_CLASS (symbolP) != C_EXT)
|
|
|
|
|
{
|
|
|
|
|
S_SET_STORAGE_CLASS (symbolP, C_STAT);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
#endif /* OBJ_COFF */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
Wed Dec 30 10:18:57 1992 Ian Lance Taylor (ian@cygnus.com)
* app.c, config/tc-*.c: Don't include read.h, since it is already
included by as.h.
* These are based on patches from Minh Tran-le
<mtranle@paris.intellicorp.com>.
* configure.in (i[34]86-ibm-aix*): Accept i486 for host. Use
obj_format coffbfd and gas_target i386coff for target.
(i[34]86-*-isc*): New host (uses sysv).
* config/i386aix.mt: Removed (no longer used).
* config/mh-i386aix (RANLIB): Use true rather than /bin/true.
(MINUS_G): Removed.
(LDFLAGS): Added, defined as -shlib.
* config/te-i386aix.h (REVERSE_SORT_RELOCS): Undefine.
* config/te-sco386.h (LOCAL_LABEL): Don't define.
(DOT_LABEL_PREFIX): Define.
* expr.c (operand): If DOT_LABEL_PREFIX, use .L0\001 as a label
name rather than L0\001.
* read.c (s_lcomm): Make a frag in SEG_BSS rather than using
local_bss_counter.
* symbols.c, symbols.h (local_bss_counter): Removed.
* write.c (write_object_file): bss no longer uses
local_bss_counter. Pass correct data and bss size to
VMS_write_object_file.
* config/obj-vms.c (VMS_write_object_file): Accept bss size as
argument, rather than using local_bss_counter.
* config/tc-m88k.c (s_bss): Don't use local_bss_counter.
* config/tc-sparc.c (s_reserve): Don't use local_bss_counter.
* config/obj-coffbfd.c (had_lineno, had_reloc): Removed.
(size_section): Restored sanity check.
(do_relocs_for): Base section address on s_paddr rather than
computing it. Adjust a29k R_IHIHALF special case to account for
section paddr (used to require paddr to be zero). If there are no
reclos, set s_relptr to 0. Set relocation size in object_headers.
(fill_section): Always set s_vaddr here, removing
ZERO_BASED_SEGMENTS case. Force s_scnptr for bss to 0. Don't set
NOLOAD for i386 .bss, because it confuses the SVR3 native linker.
Set STYP_INFO for .comment.
(coff_header_append): Use object headers and H_{SET,GET}_* macros.
Make aouthdr writing depend on OBJ_COFF_OMIT_OPTIONAL_HEADER.
(crawl_symbols): Handle 8 character section name correctly. Use
H_{SET,GET}_* macros.
(do_linenos_for): Set lineno size in object_headers.
(write_object_file): Use H_{SET,GET}_* macros. Don't bother to
set s_vaddr here. If string_byte_count remains 4, set it back to
0, and only write strings out if there are some. Call
fill_section before do_relocs_for and do_linenos_for.
(obj_coff_section): Handle optional quoted second argument giving
section characteristics.
(obj_coff_bss): Added to handle .bss.
(obj_coff_ident): Added to handle .ident (puts string in .comment
section).
(obj_coff_lcomm): Put common symbols in .bss, not .data.
(fixup_mdeps): Change to segment. Call frag_wane after
md_convert_frag.
(fixup_segment): Explicitly check S_IS_COMMON before making 386
adjustment (already happened only for common symbols, but this is
clearer).
* config/obj-coffbfd.h (OBJ_COFF_OMIT_OPTIONAL_HEADER): Define.
* config/tc-i386.c (s_bss): Don't use if I386COFF.
(md_pseudo_table): Ignore .optim and .noopt.
(tc_coff_sizemachdep): New function.
* config/tc-i386.h (REVERSE_SORT_RELOCS): Undef, for SVR3
compatibility.
(LOCAL_LABEL): Removed definition.
(DOT_LABEL_PREFIX): Defined.
1992-12-30 21:34:14 +01:00
|
|
|
|
as_bad ("Ignoring attempt to re-define symbol %s.", name);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-05-27 21:29:38 +02:00
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
|
subseg_set (current_seg, current_subseg);
|
|
|
|
|
#else
|
|
|
|
|
subseg_new (current_seg, current_subseg);
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
demand_empty_rest_of_line ();
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* s_lcomm() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
void
|
1992-11-23 21:39:57 +01:00
|
|
|
|
s_long ()
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
cons (4);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
1992-11-23 21:39:57 +01:00
|
|
|
|
s_int ()
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
cons (4);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_lsym ()
|
|
|
|
|
{
|
|
|
|
|
register char *name;
|
|
|
|
|
register char c;
|
|
|
|
|
register char *p;
|
|
|
|
|
register segT segment;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
register symbolS *symbolP;
|
|
|
|
|
|
|
|
|
|
/* we permit ANY defined expression: BSD4.2 demands constants */
|
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
c = get_symbol_end ();
|
|
|
|
|
p = input_line_pointer;
|
|
|
|
|
*p = c;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
*p = 0;
|
|
|
|
|
as_bad ("Expected comma after name \"%s\"", name);
|
|
|
|
|
*p = c;
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
segment = expression (&exp);
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (segment != absolute_section
|
|
|
|
|
&& segment != reg_section
|
|
|
|
|
&& ! SEG_NORMAL (segment))
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
|
|
|
|
as_bad ("Bad expression: %s", segment_name (segment));
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
*p = 0;
|
|
|
|
|
symbolP = symbol_find_or_make (name);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-01-04 14:24:39 +01:00
|
|
|
|
/* FIXME-SOON I pulled a (&& symbolP->sy_other == 0 &&
|
|
|
|
|
symbolP->sy_desc == 0) out of this test because coff doesn't have
|
|
|
|
|
those fields, and I can't see when they'd ever be tripped. I
|
|
|
|
|
don't think I understand why they were here so I may have
|
|
|
|
|
introduced a bug. As recently as 1.37 didn't have this test
|
|
|
|
|
anyway. xoxorich. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (S_GET_SEGMENT (symbolP) == undefined_section
|
1992-11-23 21:39:57 +01:00
|
|
|
|
&& S_GET_VALUE (symbolP) == 0)
|
|
|
|
|
{
|
1993-01-04 14:24:39 +01:00
|
|
|
|
/* The name might be an undefined .global symbol; be sure to
|
|
|
|
|
keep the "external" bit. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_SET_SEGMENT (symbolP, segment);
|
|
|
|
|
S_SET_VALUE (symbolP, (valueT) (exp.X_add_number));
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Symbol %s already defined", name);
|
|
|
|
|
}
|
|
|
|
|
*p = c;
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_lsym() */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
s_org ()
|
|
|
|
|
{
|
|
|
|
|
register segT segment;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
register long temp_fill;
|
|
|
|
|
register char *p;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* Don't believe the documentation of BSD 4.2 AS. There is no such
|
|
|
|
|
thing as a sub-segment-relative origin. Any absolute origin is
|
|
|
|
|
given a warning, then assumed to be segment-relative. Any
|
|
|
|
|
segmented origin expression ("foo+42") had better be in the right
|
|
|
|
|
segment or the .org is ignored.
|
|
|
|
|
|
|
|
|
|
BSD 4.2 AS warns if you try to .org backwards. We cannot because
|
|
|
|
|
we never know sub-segment sizes when we are reading code. BSD
|
|
|
|
|
will crash trying to emit negative numbers of filler bytes in
|
|
|
|
|
certain .orgs. We don't crash, but see as-write for that code.
|
|
|
|
|
|
|
|
|
|
Don't make frag if need_pass_2==1. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
segment = get_known_segmented_expression (&exp);
|
|
|
|
|
if (*input_line_pointer == ',')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
temp_fill = get_absolute_expression ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
temp_fill = 0;
|
|
|
|
|
if (!need_pass_2)
|
|
|
|
|
{
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (segment != now_seg && segment != absolute_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Invalid segment \"%s\". Segment \"%s\" assumed.",
|
|
|
|
|
segment_name (segment), segment_name (now_seg));
|
|
|
|
|
p = frag_var (rs_org, 1, 1, (relax_substateT) 0, exp.X_add_symbol,
|
|
|
|
|
exp.X_add_number, (char *) 0);
|
|
|
|
|
*p = temp_fill;
|
|
|
|
|
} /* if (ok to make frag) */
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_org() */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
s_set ()
|
|
|
|
|
{
|
|
|
|
|
register char *name;
|
|
|
|
|
register char delim;
|
|
|
|
|
register char *end_name;
|
|
|
|
|
register symbolS *symbolP;
|
|
|
|
|
|
|
|
|
|
/*
|
1993-01-04 14:24:39 +01:00
|
|
|
|
* Especial apologies for the random logic:
|
|
|
|
|
* this just grew, and could be parsed much more simply!
|
|
|
|
|
* Dean in haste.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
name = input_line_pointer;
|
|
|
|
|
delim = get_symbol_end ();
|
|
|
|
|
end_name = input_line_pointer;
|
|
|
|
|
*end_name = delim;
|
|
|
|
|
SKIP_WHITESPACE ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (*input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
*end_name = 0;
|
|
|
|
|
as_bad ("Expected comma after name \"%s\"", name);
|
|
|
|
|
*end_name = delim;
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
*end_name = 0;
|
|
|
|
|
|
|
|
|
|
if (name[0] == '.' && name[1] == '\0')
|
|
|
|
|
{
|
|
|
|
|
/* Turn '. = mumble' into a .org mumble */
|
|
|
|
|
register segT segment;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
register char *ptr;
|
|
|
|
|
|
|
|
|
|
segment = get_known_segmented_expression (&exp);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (!need_pass_2)
|
|
|
|
|
{
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (segment != now_seg && segment != absolute_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Invalid segment \"%s\". Segment \"%s\" assumed.",
|
|
|
|
|
segment_name (segment),
|
|
|
|
|
segment_name (now_seg));
|
|
|
|
|
ptr = frag_var (rs_org, 1, 1, (relax_substateT) 0, exp.X_add_symbol,
|
|
|
|
|
exp.X_add_number, (char *) 0);
|
|
|
|
|
*ptr = 0;
|
|
|
|
|
} /* if (ok to make frag) */
|
|
|
|
|
|
|
|
|
|
*end_name = delim;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if ((symbolP = symbol_find (name)) == NULL
|
|
|
|
|
&& (symbolP = md_undefined_symbol (name)) == NULL)
|
|
|
|
|
{
|
1993-03-04 14:21:19 +01:00
|
|
|
|
symbolP = symbol_new (name, undefined_section, 0, &zero_address_frag);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef OBJ_COFF
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* "set" symbols are local unless otherwise specified. */
|
|
|
|
|
SF_SET_LOCAL (symbolP);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_COFF */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* make a new symbol */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
symbol_table_insert (symbolP);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
*end_name = delim;
|
|
|
|
|
pseudo_set (symbolP);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_set() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_space (mult)
|
|
|
|
|
int mult;
|
1992-09-09 20:37:27 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
long temp_repeat;
|
|
|
|
|
register long temp_fill;
|
|
|
|
|
register char *p;
|
|
|
|
|
|
|
|
|
|
/* Just like .fill, but temp_size = 1 */
|
|
|
|
|
if (get_absolute_expression_and_terminator (&temp_repeat) == ',')
|
|
|
|
|
{
|
|
|
|
|
temp_fill = get_absolute_expression ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer--; /* Backup over what was not a ','. */
|
|
|
|
|
temp_fill = 0;
|
|
|
|
|
}
|
|
|
|
|
if (mult)
|
|
|
|
|
{
|
1993-03-04 20:55:59 +01:00
|
|
|
|
temp_repeat *= mult;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
|
|
|
|
if (temp_repeat <= 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn ("Repeat < 0, .space ignored");
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (!need_pass_2)
|
|
|
|
|
{
|
|
|
|
|
p = frag_var (rs_fill, 1, 1, (relax_substateT) 0, (symbolS *) 0,
|
|
|
|
|
temp_repeat, (char *) 0);
|
|
|
|
|
*p = temp_fill;
|
|
|
|
|
}
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_space() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
void
|
1992-11-23 21:39:57 +01:00
|
|
|
|
s_text ()
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register int temp;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
temp = get_absolute_expression ();
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
|
subseg_set (text_section, (subsegT) temp);
|
1992-02-13 09:33:54 +01:00
|
|
|
|
#else
|
1993-03-04 14:21:19 +01:00
|
|
|
|
subseg_new (text_section, (subsegT) temp);
|
1992-02-13 09:33:54 +01:00
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* s_text() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
demand_empty_rest_of_line ()
|
|
|
|
|
{
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (is_end_of_line[*input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
/* Return having already swallowed end-of-line. */
|
|
|
|
|
} /* Return pointing just after end-of-line. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
void
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ignore_rest_of_line () /* For suspect lines: gives warning. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (!is_end_of_line[*input_line_pointer])
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (isprint (*input_line_pointer))
|
|
|
|
|
as_bad ("Rest of line ignored. First ignored character is `%c'.",
|
1992-06-04 21:21:58 +02:00
|
|
|
|
*input_line_pointer);
|
|
|
|
|
else
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Rest of line ignored. First ignored character valued 0x%x.",
|
1992-06-04 21:21:58 +02:00
|
|
|
|
*input_line_pointer);
|
|
|
|
|
while (input_line_pointer < buffer_limit
|
1992-11-23 21:39:57 +01:00
|
|
|
|
&& !is_end_of_line[*input_line_pointer])
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
input_line_pointer++;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
input_line_pointer++; /* Return pointing just after end-of-line. */
|
|
|
|
|
know (is_end_of_line[input_line_pointer[-1]]);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* pseudo_set()
|
|
|
|
|
*
|
|
|
|
|
* In: Pointer to a symbol.
|
|
|
|
|
* Input_line_pointer->expression.
|
|
|
|
|
*
|
|
|
|
|
* Out: Input_line_pointer->just after any whitespace after expression.
|
|
|
|
|
* Tried to set symbol to value of expression.
|
|
|
|
|
* Will change symbols type, value, and frag;
|
|
|
|
|
* May set need_pass_2 == 1.
|
|
|
|
|
*/
|
|
|
|
|
void
|
1992-06-04 21:21:58 +02:00
|
|
|
|
pseudo_set (symbolP)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
symbolS *symbolP;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
expressionS exp;
|
|
|
|
|
register segT segment;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
int ext;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
know (symbolP); /* NULL pointer is logic error. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* @@ Fix this right for BFD. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ext = S_IS_EXTERNAL (symbolP);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if ((segment = expression (&exp)) == absent_section)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Missing expression: absolute 0 assumed");
|
1993-03-04 14:21:19 +01:00
|
|
|
|
exp.X_seg = absolute_section;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
exp.X_add_number = 0;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (segment == reg_section)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1993-03-04 14:21:19 +01:00
|
|
|
|
S_SET_SEGMENT (symbolP, reg_section);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_SET_VALUE (symbolP, exp.X_add_number);
|
|
|
|
|
symbolP->sy_frag = &zero_address_frag;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
|
|
|
|
else if (segment == big_section)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("%s number invalid. Absolute 0 assumed.",
|
|
|
|
|
exp.X_add_number > 0 ? "Bignum" : "Floating-Point");
|
1993-03-04 14:21:19 +01:00
|
|
|
|
S_SET_SEGMENT (symbolP, absolute_section);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* @@ Fix this right for BFD. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ext ? S_SET_EXTERNAL (symbolP) :
|
|
|
|
|
S_CLEAR_EXTERNAL (symbolP);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_SET_VALUE (symbolP, 0);
|
|
|
|
|
symbolP->sy_frag = &zero_address_frag;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
|
|
|
|
else if (segment == absent_section)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_warn ("No expression: Using absolute 0");
|
1993-03-04 14:21:19 +01:00
|
|
|
|
S_SET_SEGMENT (symbolP, absolute_section);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* @@ Fix this right for BFD. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ext ? S_SET_EXTERNAL (symbolP) :
|
|
|
|
|
S_CLEAR_EXTERNAL (symbolP);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_SET_VALUE (symbolP, 0);
|
|
|
|
|
symbolP->sy_frag = &zero_address_frag;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
|
|
|
|
else if (segment == diff_section)
|
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (exp.X_add_symbol && exp.X_subtract_symbol
|
1992-11-23 21:39:57 +01:00
|
|
|
|
&& (S_GET_SEGMENT (exp.X_add_symbol) ==
|
|
|
|
|
S_GET_SEGMENT (exp.X_subtract_symbol)))
|
|
|
|
|
{
|
1993-05-27 21:29:38 +02:00
|
|
|
|
if (exp.X_add_symbol->sy_frag == exp.X_subtract_symbol->sy_frag)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-05-27 21:29:38 +02:00
|
|
|
|
exp.X_add_number += S_GET_VALUE (exp.X_add_symbol) -
|
|
|
|
|
S_GET_VALUE (exp.X_subtract_symbol);
|
|
|
|
|
goto abs;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
1993-05-27 21:29:38 +02:00
|
|
|
|
as_bad ("Invalid expression: separation between symbols `%s'",
|
|
|
|
|
S_GET_NAME (exp.X_add_symbol));
|
|
|
|
|
as_bad (" and `%s' may not be constant",
|
|
|
|
|
S_GET_NAME (exp.X_subtract_symbol));
|
|
|
|
|
need_pass_2++;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
else
|
1993-05-27 21:29:38 +02:00
|
|
|
|
{
|
|
|
|
|
as_bad ("Complex expression. Absolute segment assumed.");
|
|
|
|
|
goto abs;
|
|
|
|
|
}
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
|
|
|
|
else if (segment == absolute_section)
|
|
|
|
|
{
|
|
|
|
|
abs:
|
|
|
|
|
S_SET_SEGMENT (symbolP, absolute_section);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* @@ Fix this right for BFD. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
ext ? S_SET_EXTERNAL (symbolP) :
|
|
|
|
|
S_CLEAR_EXTERNAL (symbolP);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_SET_VALUE (symbolP, exp.X_add_number);
|
|
|
|
|
symbolP->sy_frag = &zero_address_frag;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
|
|
|
|
else if (segment == pass1_section)
|
|
|
|
|
{
|
1993-07-15 00:21:25 +02:00
|
|
|
|
symbolP->sy_value.X_add_symbol = exp.X_add_symbol;
|
|
|
|
|
symbolP->sy_value.X_subtract_symbol = NULL;
|
|
|
|
|
symbolP->sy_value.X_add_number = 0;
|
|
|
|
|
symbolP->sy_value.X_seg = undefined_section;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
as_bad ("Unknown expression");
|
|
|
|
|
know (need_pass_2 == 1);
|
|
|
|
|
}
|
|
|
|
|
else if (segment == undefined_section)
|
|
|
|
|
{
|
1993-07-15 00:21:25 +02:00
|
|
|
|
symbolP->sy_value.X_add_symbol = exp.X_add_symbol;
|
|
|
|
|
symbolP->sy_value.X_subtract_symbol = NULL;
|
|
|
|
|
symbolP->sy_value.X_add_number = 0;
|
|
|
|
|
symbolP->sy_value.X_seg = undefined_section;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
#ifndef BFD_ASSEMBLER
|
|
|
|
|
#ifndef MANY_SEGMENTS
|
1992-11-23 21:39:57 +01:00
|
|
|
|
switch (segment)
|
|
|
|
|
{
|
|
|
|
|
case SEG_DATA:
|
|
|
|
|
case SEG_TEXT:
|
|
|
|
|
case SEG_BSS:
|
|
|
|
|
break;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
default:
|
|
|
|
|
as_fatal ("failed sanity check.");
|
|
|
|
|
} /* switch on segment */
|
1992-02-13 09:33:54 +01:00
|
|
|
|
#endif
|
1993-03-04 14:21:19 +01:00
|
|
|
|
#endif
|
|
|
|
|
S_SET_SEGMENT (symbolP, segment);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#if defined(OBJ_AOUT) | defined(OBJ_BOUT)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
/* @@ Fix this right for BFD! */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (ext)
|
|
|
|
|
{
|
|
|
|
|
S_SET_EXTERNAL (symbolP);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
S_CLEAR_EXTERNAL (symbolP);
|
|
|
|
|
} /* if external */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* OBJ_AOUT or OBJ_BOUT */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_SET_VALUE (symbolP, exp.X_add_number + S_GET_VALUE (exp.X_add_symbol));
|
|
|
|
|
symbolP->sy_frag = exp.X_add_symbol->sy_frag;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* cons()
|
|
|
|
|
*
|
|
|
|
|
* CONStruct more frag of .bytes, or .words etc.
|
|
|
|
|
* Should need_pass_2 be 1 then emit no frag(s).
|
|
|
|
|
* This understands EXPRESSIONS, as opposed to big_cons().
|
|
|
|
|
*
|
|
|
|
|
* Bug (?)
|
|
|
|
|
*
|
|
|
|
|
* This has a split personality. We use expression() to read the
|
|
|
|
|
* value. We can detect if the value won't fit in a byte or word.
|
|
|
|
|
* But we can't detect if expression() discarded significant digits
|
|
|
|
|
* in the case of a long. Not worth the crocks required to fix it.
|
|
|
|
|
*/
|
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* Select a parser for cons expressions. */
|
|
|
|
|
|
|
|
|
|
/* Some targets need to parse the expression in various fancy ways.
|
|
|
|
|
You can define TC_PARSE_CONS_EXPRESSION to do whatever you like
|
|
|
|
|
(for example, the HPPA does this). Otherwise, you can define
|
|
|
|
|
BITFIELD_CONS_EXPRESSIONS to permit bitfields to be specified, or
|
|
|
|
|
REPEAT_CONS_EXPRESSIONS to permit repeat counts. If none of these
|
|
|
|
|
are defined, which is the normal case, then only simple expressions
|
|
|
|
|
are permitted. */
|
|
|
|
|
|
|
|
|
|
#ifndef TC_PARSE_CONS_EXPRESSION
|
|
|
|
|
#ifdef BITFIELD_CONS_EXPRESSIONS
|
|
|
|
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_bitfield_cons (EXP, NBYTES)
|
|
|
|
|
static void
|
|
|
|
|
parse_bitfield_cons PARAMS ((expressionS *exp, unsigned int nbytes));
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef MRI
|
|
|
|
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_mri_cons (EXP)
|
|
|
|
|
static void
|
|
|
|
|
parse_mri_cons PARAMS ((expressionS *exp));
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
|
|
|
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) parse_repeat_cons (EXP, NBYTES)
|
|
|
|
|
static void
|
|
|
|
|
parse_repeat_cons PARAMS ((expressionS *exp, unsigned int nbytes));
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* If we haven't gotten one yet, just call expression. */
|
|
|
|
|
#ifndef TC_PARSE_CONS_EXPRESSION
|
|
|
|
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) expression (EXP)
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* worker to do .byte etc statements */
|
|
|
|
|
/* clobbers input_line_pointer, checks */
|
|
|
|
|
/* end-of-line. */
|
|
|
|
|
void
|
|
|
|
|
cons (nbytes)
|
|
|
|
|
register unsigned int nbytes; /* 1=.byte, 2=.word, 4=.long */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
expressionS exp;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
if (is_it_end_of_statement ())
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
1993-07-07 14:37:58 +02:00
|
|
|
|
|
|
|
|
|
do
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
TC_PARSE_CONS_EXPRESSION (&exp, nbytes);
|
|
|
|
|
emit_expr (&exp, nbytes);
|
|
|
|
|
}
|
|
|
|
|
while (*input_line_pointer++ == ',');
|
|
|
|
|
|
|
|
|
|
input_line_pointer--; /* Put terminator back into stream. */
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* cons() */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* Put the contents of expression EXP into the object file using
|
|
|
|
|
NBYTES bytes. If need_pass_2 is 1, this does nothing. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
void
|
|
|
|
|
emit_expr (exp, nbytes)
|
|
|
|
|
expressionS *exp;
|
|
|
|
|
unsigned int nbytes;
|
|
|
|
|
{
|
|
|
|
|
segT segment;
|
|
|
|
|
register char *p;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* Don't do anything if we are going to make another pass. */
|
|
|
|
|
if (need_pass_2)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
segment = exp->X_seg;
|
|
|
|
|
|
|
|
|
|
/* Don't call this if we are going to junk this pass anyway! */
|
|
|
|
|
know (segment != pass1_section);
|
|
|
|
|
|
|
|
|
|
if (segment == diff_section && exp->X_add_symbol == NULL)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
as_bad ("Subtracting symbol \"%s\" (segment \"%s\") is too hard. Absolute segment assumed.",
|
|
|
|
|
S_GET_NAME (exp->X_subtract_symbol),
|
|
|
|
|
segment_name (S_GET_SEGMENT (exp->X_subtract_symbol)));
|
|
|
|
|
segment = absolute_section;
|
|
|
|
|
/* Leave exp->X_add_number alone. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
}
|
1993-07-07 14:37:58 +02:00
|
|
|
|
else if (segment == absent_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
as_warn ("0 assumed for missing expression");
|
|
|
|
|
exp->X_add_number = 0;
|
|
|
|
|
know (exp->X_add_symbol == NULL);
|
|
|
|
|
segment = absolute_section;
|
|
|
|
|
}
|
|
|
|
|
else if (segment == big_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
as_bad ("%s number invalid. Absolute 0 assumed.",
|
|
|
|
|
exp->X_add_number > 0 ? "Bignum" : "Floating-Point");
|
|
|
|
|
exp->X_add_number = 0;
|
|
|
|
|
segment = absolute_section;
|
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
p = frag_more (nbytes);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
#ifndef WORKING_DOT_WORD
|
|
|
|
|
/* If we have the difference of two symbols in a word, save it on
|
|
|
|
|
the broken_words list. See the code in write.c. */
|
|
|
|
|
if (segment == diff_section && nbytes == 2)
|
|
|
|
|
{
|
|
|
|
|
struct broken_word *x;
|
|
|
|
|
|
|
|
|
|
x = (struct broken_word *) xmalloc (sizeof (struct broken_word));
|
|
|
|
|
x->next_broken_word = broken_words;
|
|
|
|
|
broken_words = x;
|
|
|
|
|
x->frag = frag_now;
|
|
|
|
|
x->word_goes_here = p;
|
|
|
|
|
x->dispfrag = 0;
|
|
|
|
|
x->add = exp->X_add_symbol;
|
|
|
|
|
x->sub = exp->X_subtract_symbol;
|
|
|
|
|
x->addnum = exp->X_add_number;
|
|
|
|
|
x->added = 0;
|
|
|
|
|
new_broken_words++;
|
|
|
|
|
return;
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
if (segment == absolute_section)
|
|
|
|
|
{
|
|
|
|
|
register long get;
|
|
|
|
|
register long use;
|
|
|
|
|
register long mask;
|
|
|
|
|
register long unmask;
|
|
|
|
|
|
|
|
|
|
/* JF << of >= number of bits in the object is undefined. In
|
|
|
|
|
particular SPARC (Sun 4) has problems */
|
|
|
|
|
if (nbytes >= sizeof (long))
|
|
|
|
|
mask = 0;
|
|
|
|
|
else
|
|
|
|
|
mask = ~0 << (BITS_PER_CHAR * nbytes); /* Don't store these bits. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
unmask = ~mask; /* Do store these bits. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
#ifdef NEVER
|
|
|
|
|
"Do this mod if you want every overflow check to assume SIGNED 2's complement data.";
|
|
|
|
|
mask = ~(unmask >> 1); /* Includes sign bit now. */
|
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
get = exp->X_add_number;
|
|
|
|
|
use = get & unmask;
|
|
|
|
|
if ((get & mask) != 0 && (get & mask) != mask)
|
|
|
|
|
{ /* Leading bits contain both 0s & 1s. */
|
|
|
|
|
as_warn ("Value 0x%x truncated to 0x%x.", get, use);
|
|
|
|
|
}
|
|
|
|
|
md_number_to_chars (p, use, nbytes); /* put bytes in right order. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
md_number_to_chars (p, (long) 0, nbytes);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* Now we need to generate a fixS to record the symbol value.
|
|
|
|
|
This is easy for BFD. For other targets it can be more
|
|
|
|
|
complex. For very complex cases (currently, the HPPA and
|
|
|
|
|
NS32K), you can define TC_CONS_FIX_NEW to do whatever you
|
|
|
|
|
want. For simpler cases, you can define TC_CONS_RELOC to be
|
|
|
|
|
the name of the reloc code that should be stored in the fixS.
|
|
|
|
|
If neither is defined, the code uses NO_RELOC if it is
|
|
|
|
|
defined, and otherwise uses 0. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
#ifdef BFD_ASSEMBLER
|
|
|
|
|
fix_new (frag_now, p - frag_now->fr_literal, nbytes,
|
|
|
|
|
exp->X_add_symbol, exp->X_subtract_symbol,
|
|
|
|
|
exp->X_add_number, 0,
|
|
|
|
|
/* @@ Should look at CPU word size. */
|
|
|
|
|
BFD_RELOC_32);
|
|
|
|
|
#else
|
|
|
|
|
#ifdef TC_CONS_FIX_NEW
|
|
|
|
|
TC_CONS_FIX_NEW (frag_now, p - frag_now->fr_literal, nbytes, exp);
|
|
|
|
|
#else
|
|
|
|
|
/* Figure out which reloc number to use. Use TC_CONS_RELOC if
|
|
|
|
|
it is defined, otherwise use NO_RELOC if it is defined,
|
|
|
|
|
otherwise use 0. */
|
|
|
|
|
#ifndef TC_CONS_RELOC
|
|
|
|
|
#ifdef NO_RELOC
|
|
|
|
|
#define TC_CONS_RELOC NO_RELOC
|
|
|
|
|
#else
|
|
|
|
|
#define TC_CONS_RELOC 0
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
fix_new (frag_now, p - frag_now->fr_literal, nbytes,
|
|
|
|
|
exp->X_add_symbol, exp->X_subtract_symbol,
|
|
|
|
|
exp->X_add_number, 0, TC_CONS_RELOC);
|
|
|
|
|
#endif /* TC_CONS_FIX_NEW */
|
|
|
|
|
#endif /* BFD_ASSEMBLER */
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#ifdef BITFIELD_CONS_EXPRESSIONS
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* i960 assemblers, (eg, asm960), allow bitfields after ".byte" as
|
|
|
|
|
w:x,y:z, where w and y are bitwidths and x and y are values. They
|
|
|
|
|
then pack them all together. We do a little better in that we allow
|
|
|
|
|
them in words, longs, etc. and we'll pack them in target byte order
|
|
|
|
|
for you.
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
The rules are: pack least significat bit first, if a field doesn't
|
|
|
|
|
entirely fit, put it in the next unit. Overflowing the bitfield is
|
|
|
|
|
explicitly *not* even a warning. The bitwidth should be considered
|
|
|
|
|
a "mask".
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
To use this function the tc-XXX.h file should define
|
|
|
|
|
BITFIELD_CONS_EXPRESSIONS. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
static void
|
|
|
|
|
parse_bitfield_cons (exp, nbytes)
|
|
|
|
|
expressionS *exp;
|
|
|
|
|
unsigned int nbytes;
|
|
|
|
|
{
|
|
|
|
|
unsigned int bits_available = BITS_PER_CHAR * nbytes;
|
|
|
|
|
char *hold = input_line_pointer;
|
|
|
|
|
segT segment;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
segment = expression (exp);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
if (*input_line_pointer == ':')
|
|
|
|
|
{ /* bitfields */
|
|
|
|
|
long value = 0;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
unsigned long width;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
if (*input_line_pointer != ':')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer = hold;
|
|
|
|
|
break;
|
|
|
|
|
} /* next piece is not a bitfield */
|
|
|
|
|
|
|
|
|
|
/* In the general case, we can't allow
|
|
|
|
|
full expressions with symbol
|
|
|
|
|
differences and such. The relocation
|
|
|
|
|
entries for symbols not defined in this
|
|
|
|
|
assembly would require arbitrary field
|
|
|
|
|
widths, positions, and masks which most
|
|
|
|
|
of our current object formats don't
|
|
|
|
|
support.
|
|
|
|
|
|
|
|
|
|
In the specific case where a symbol
|
|
|
|
|
*is* defined in this assembly, we
|
|
|
|
|
*could* build fixups and track it, but
|
|
|
|
|
this could lead to confusion for the
|
|
|
|
|
backends. I'm lazy. I'll take any
|
|
|
|
|
SEG_ABSOLUTE. I think that means that
|
|
|
|
|
you can use a previous .set or
|
|
|
|
|
.equ type symbol. xoxorich. */
|
|
|
|
|
|
|
|
|
|
if (segment == absent_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
as_warn ("Using a bit field width of zero.");
|
|
|
|
|
exp->X_add_number = 0;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
segment = absolute_section;
|
1993-07-07 14:37:58 +02:00
|
|
|
|
} /* implied zero width bitfield */
|
|
|
|
|
|
|
|
|
|
if (segment != absolute_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
*input_line_pointer = '\0';
|
|
|
|
|
as_bad ("Field width \"%s\" too complex for a bitfield.\n", hold);
|
|
|
|
|
*input_line_pointer = ':';
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
} /* too complex */
|
|
|
|
|
|
|
|
|
|
if ((width = exp->X_add_number) > (BITS_PER_CHAR * nbytes))
|
1993-03-04 14:21:19 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
as_warn ("Field width %d too big to fit in %d bytes: truncated to %d bits.",
|
|
|
|
|
width, nbytes, (BITS_PER_CHAR * nbytes));
|
|
|
|
|
width = BITS_PER_CHAR * nbytes;
|
|
|
|
|
} /* too big */
|
|
|
|
|
|
|
|
|
|
if (width > bits_available)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* FIXME-SOMEDAY: backing up and reparsing is wasteful. */
|
|
|
|
|
input_line_pointer = hold;
|
|
|
|
|
exp->X_add_number = value;
|
|
|
|
|
break;
|
|
|
|
|
} /* won't fit */
|
|
|
|
|
|
|
|
|
|
hold = ++input_line_pointer; /* skip ':' */
|
|
|
|
|
|
|
|
|
|
if ((segment = expression (exp)) != absolute_section)
|
1993-03-04 14:21:19 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
char cache = *input_line_pointer;
|
|
|
|
|
|
|
|
|
|
*input_line_pointer = '\0';
|
|
|
|
|
as_bad ("Field value \"%s\" too complex for a bitfield.\n", hold);
|
|
|
|
|
*input_line_pointer = cache;
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
return;
|
|
|
|
|
} /* too complex */
|
|
|
|
|
|
|
|
|
|
value |= (~(-1 << width) & exp->X_add_number)
|
|
|
|
|
<< ((BITS_PER_CHAR * nbytes) - bits_available);
|
|
|
|
|
|
|
|
|
|
if ((bits_available -= width) == 0
|
|
|
|
|
|| is_it_end_of_statement ()
|
|
|
|
|
|| *input_line_pointer != ',')
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
} /* all the bitfields we're gonna get */
|
|
|
|
|
|
|
|
|
|
hold = ++input_line_pointer;
|
|
|
|
|
segment = expression (exp);
|
|
|
|
|
} /* forever loop */
|
|
|
|
|
|
|
|
|
|
exp->X_add_number = value;
|
|
|
|
|
exp->X_seg = absolute_section;
|
|
|
|
|
} /* if looks like a bitfield */
|
|
|
|
|
} /* parse_bitfield_cons() */
|
|
|
|
|
|
|
|
|
|
#endif /* BITFIELD_CONS_EXPRESSIONS */
|
|
|
|
|
|
|
|
|
|
#ifdef MRI
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
parse_mri_cons (exp, nbytes)
|
|
|
|
|
expressionS *exp;
|
|
|
|
|
unsigned int nbytes;
|
|
|
|
|
{
|
|
|
|
|
if (*input_line_pointer == '\'')
|
|
|
|
|
{
|
|
|
|
|
/* An MRI style string, cut into as many bytes as will fit into
|
|
|
|
|
a nbyte chunk, left justify if necessary, and separate with
|
|
|
|
|
commas so we can try again later */
|
|
|
|
|
int scan = 0;
|
|
|
|
|
unsigned int result = 0;
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
for (scan = 0; scan < nbytes; scan++)
|
|
|
|
|
{
|
|
|
|
|
if (*input_line_pointer == '\'')
|
|
|
|
|
{
|
|
|
|
|
if (input_line_pointer[1] == '\'')
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
1993-07-07 14:37:58 +02:00
|
|
|
|
input_line_pointer++;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1993-07-07 14:37:58 +02:00
|
|
|
|
else
|
|
|
|
|
break;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
}
|
1993-07-07 14:37:58 +02:00
|
|
|
|
result = (result << 8) | (*input_line_pointer++);
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-07-07 14:37:58 +02:00
|
|
|
|
/* Left justify */
|
|
|
|
|
while (scan < nbytes)
|
|
|
|
|
{
|
|
|
|
|
result <<= 8;
|
|
|
|
|
scan++;
|
|
|
|
|
}
|
|
|
|
|
/* Create correct expression */
|
|
|
|
|
exp->X_add_symbol = 0;
|
|
|
|
|
exp->X_add_number = result;
|
|
|
|
|
exp->X_seg = absolute_section;
|
|
|
|
|
/* Fake it so that we can read the next char too */
|
|
|
|
|
if (input_line_pointer[0] != '\'' ||
|
|
|
|
|
(input_line_pointer[0] == '\'' && input_line_pointer[1] == '\''))
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer -= 2;
|
|
|
|
|
input_line_pointer[0] = ',';
|
|
|
|
|
input_line_pointer[1] = '\'';
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
expression (&exp);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* MRI */
|
|
|
|
|
|
|
|
|
|
#ifdef REPEAT_CONS_EXPRESSIONS
|
|
|
|
|
|
|
|
|
|
/* Parse a repeat expression for cons. This is used by the MIPS
|
|
|
|
|
assembler. The format is NUMBER:COUNT; NUMBER appears in the
|
|
|
|
|
object file COUNT times.
|
|
|
|
|
|
|
|
|
|
To use this for a target, define REPEAT_CONS_EXPRESSIONS. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
parse_repeat_cons (exp, nbytes)
|
|
|
|
|
expressionS *exp;
|
|
|
|
|
unsigned int nbytes;
|
|
|
|
|
{
|
|
|
|
|
expressionS count;
|
|
|
|
|
segT segment;
|
|
|
|
|
register int i;
|
|
|
|
|
|
|
|
|
|
expression (exp);
|
|
|
|
|
|
|
|
|
|
if (*input_line_pointer != ':')
|
|
|
|
|
{
|
|
|
|
|
/* No repeat count. */
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
segment = expression (&count);
|
|
|
|
|
if (segment != absolute_section
|
|
|
|
|
|| count.X_add_number <= 0)
|
|
|
|
|
{
|
|
|
|
|
as_warn ("Unresolvable or nonpositive repeat count; using 1");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* The cons function is going to output this expression once. So we
|
|
|
|
|
output it count - 1 times. */
|
|
|
|
|
for (i = count.X_add_number - 1; i > 0; i--)
|
|
|
|
|
emit_expr (exp, nbytes);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* REPEAT_CONS_EXPRESSIONS */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* big_cons()
|
|
|
|
|
*
|
|
|
|
|
* CONStruct more frag(s) of .quads, or .octa etc.
|
|
|
|
|
* Makes 0 or more new frags.
|
|
|
|
|
* If need_pass_2 == 1, generate no frag.
|
|
|
|
|
* This understands only bignums, not expressions. Cons() understands
|
|
|
|
|
* expressions.
|
|
|
|
|
*
|
|
|
|
|
* Constants recognised are '0...'(octal) '0x...'(hex) '...'(decimal).
|
|
|
|
|
*
|
|
|
|
|
* This creates objects with struct obstack_control objs, destroying
|
|
|
|
|
* any context objs held about a partially completed object. Beware!
|
|
|
|
|
*
|
|
|
|
|
*
|
|
|
|
|
* I think it sucks to have 2 different types of integers, with 2
|
|
|
|
|
* routines to read them, store them etc.
|
|
|
|
|
* It would be nicer to permit bignums in expressions and only
|
|
|
|
|
* complain if the result overflowed. However, due to "efficiency"...
|
|
|
|
|
*/
|
|
|
|
|
/* worker to do .quad etc statements */
|
|
|
|
|
/* clobbers input_line_pointer, checks */
|
|
|
|
|
/* end-of-line. */
|
|
|
|
|
/* 8=.quad 16=.octa ... */
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
big_cons (nbytes)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register int nbytes;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register char c; /* input_line_pointer->c. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register int radix;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register long length; /* Number of chars in an object. */
|
|
|
|
|
register int digit; /* Value of 1 digit. */
|
|
|
|
|
register int carry; /* For multi-precision arithmetic. */
|
|
|
|
|
register int work; /* For multi-precision arithmetic. */
|
|
|
|
|
register char *p; /* For multi-precision arithmetic. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
extern const char hex_value[]; /* In hex_value.c. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* The following awkward logic is to parse ZERO or more strings,
|
|
|
|
|
* comma seperated. Recall an expression includes its leading &
|
|
|
|
|
* trailing blanks. We fake a leading ',' if there is (supposed to
|
|
|
|
|
* be) a 1st expression, and keep demanding 1 expression for each ','.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_it_end_of_statement ())
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
|
|
|
|
c = 0; /* Skip loop. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
c = ','; /* Do loop. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
--input_line_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
while (c == ',')
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
++input_line_pointer;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
c = *input_line_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* C contains 1st non-blank character of what we hope is a number. */
|
|
|
|
|
if (c == '0')
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
c = *++input_line_pointer;
|
|
|
|
|
if (c == 'x' || c == 'X')
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
c = *++input_line_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
radix = 16;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
else
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
radix = 8;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
radix = 10;
|
|
|
|
|
}
|
|
|
|
|
/*
|
|
|
|
|
* This feature (?) is here to stop people worrying about
|
|
|
|
|
* mysterious zero constants: which is what they get when
|
|
|
|
|
* they completely omit digits.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (hex_value[c] >= radix)
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Missing digits. 0 assumed.");
|
|
|
|
|
}
|
|
|
|
|
bignum_high = bignum_low - 1; /* Start constant with 0 chars. */
|
|
|
|
|
for (; (digit = hex_value[c]) < radix; c = *++input_line_pointer)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
|
|
|
|
/* Multiply existing number by radix, then add digit. */
|
|
|
|
|
carry = digit;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
for (p = bignum_low; p <= bignum_high; p++)
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
work = (*p & MASK_CHAR) * radix + carry;
|
|
|
|
|
*p = work & MASK_CHAR;
|
|
|
|
|
carry = work >> BITS_PER_CHAR;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (carry)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
grow_bignum ();
|
|
|
|
|
*bignum_high = carry & MASK_CHAR;
|
|
|
|
|
know ((carry & ~MASK_CHAR) == 0);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
length = bignum_high - bignum_low + 1;
|
|
|
|
|
if (length > nbytes)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_warn ("Most significant bits truncated in integer constant.");
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
register long leading_zeroes;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
for (leading_zeroes = nbytes - length;
|
|
|
|
|
leading_zeroes;
|
|
|
|
|
leading_zeroes--)
|
1992-02-13 09:33:54 +01:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
grow_bignum ();
|
|
|
|
|
*bignum_high = 0;
|
1992-02-13 09:33:54 +01:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (!need_pass_2)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1993-03-29 23:20:04 +02:00
|
|
|
|
char *src = bignum_low;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
p = frag_more (nbytes);
|
1993-03-29 23:20:04 +02:00
|
|
|
|
if (target_big_endian)
|
|
|
|
|
{
|
|
|
|
|
int i;
|
|
|
|
|
for (i = nbytes - 1; i >= 0; i--)
|
|
|
|
|
p[i] = *src++;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
bcopy (bignum_low, p, (int) nbytes);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
/* C contains character after number. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
c = *input_line_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* C contains 1st non-blank character after number. */
|
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* big_cons() */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* Extend bignum by 1 char. */
|
|
|
|
|
static void
|
|
|
|
|
grow_bignum ()
|
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register long length;
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
bignum_high++;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (bignum_high >= bignum_limit)
|
|
|
|
|
{
|
|
|
|
|
length = bignum_limit - bignum_low;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
bignum_low = xrealloc (bignum_low, length + length);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
bignum_high = bignum_low + length;
|
|
|
|
|
bignum_limit = bignum_low + length + length;
|
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* grow_bignum(); */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* float_cons()
|
|
|
|
|
*
|
|
|
|
|
* CONStruct some more frag chars of .floats .ffloats etc.
|
|
|
|
|
* Makes 0 or more new frags.
|
|
|
|
|
* If need_pass_2 == 1, no frags are emitted.
|
|
|
|
|
* This understands only floating literals, not expressions. Sorry.
|
|
|
|
|
*
|
|
|
|
|
* A floating constant is defined by atof_generic(), except it is preceded
|
|
|
|
|
* by 0d 0f 0g or 0h. After observing the STRANGE way my BSD AS does its
|
|
|
|
|
* reading, I decided to be incompatible. This always tries to give you
|
|
|
|
|
* rounded bits to the precision of the pseudo-op. Former AS did premature
|
|
|
|
|
* truncatation, restored noisy bits instead of trailing 0s AND gave you
|
|
|
|
|
* a choice of 2 flavours of noise according to which of 2 floating-point
|
|
|
|
|
* scanners you directed AS to use.
|
|
|
|
|
*
|
|
|
|
|
* In: input_line_pointer->whitespace before, or '0' of flonum.
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void /* JF was static, but can't be if VAX.C is goning to use it */
|
|
|
|
|
float_cons (float_type) /* Worker to do .float etc statements. */
|
|
|
|
|
/* Clobbers input_line-pointer, checks end-of-line. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register int float_type; /* 'f':.ffloat ... 'F':.float ... */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register char *p;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register char c;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
int length; /* Number of chars in an object. */
|
|
|
|
|
register char *err; /* Error from scanning floating literal. */
|
|
|
|
|
char temp[MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT];
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* The following awkward logic is to parse ZERO or more strings,
|
|
|
|
|
* comma seperated. Recall an expression includes its leading &
|
|
|
|
|
* trailing blanks. We fake a leading ',' if there is (supposed to
|
|
|
|
|
* be) a 1st expression, and keep demanding 1 expression for each ','.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_it_end_of_statement ())
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
|
|
|
|
c = 0; /* Skip loop. */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
++input_line_pointer; /*->past termintor. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
c = ','; /* Do loop. */
|
|
|
|
|
}
|
|
|
|
|
while (c == ',')
|
|
|
|
|
{
|
|
|
|
|
/* input_line_pointer->1st char of a flonum (we hope!). */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
SKIP_WHITESPACE ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* Skip any 0{letter} that may be present. Don't even check if the
|
|
|
|
|
* letter is legal. Someone may invent a "z" format and this routine
|
|
|
|
|
* has no use for such information. Lusers beware: you get
|
|
|
|
|
* diagnostics if your input is ill-conditioned.
|
|
|
|
|
*/
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (input_line_pointer[0] == '0' && isalpha (input_line_pointer[1]))
|
|
|
|
|
input_line_pointer += 2;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
err = md_atof (float_type, temp, &length);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
know (length <= MAXIMUM_NUMBER_OF_CHARS_FOR_FLOAT);
|
|
|
|
|
know (length > 0);
|
1993-05-27 21:29:38 +02:00
|
|
|
|
if (err && *err)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Bad floating literal: %s", err);
|
|
|
|
|
ignore_rest_of_line ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* Input_line_pointer->just after end-of-line. */
|
|
|
|
|
c = 0; /* Break out of loop. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (!need_pass_2)
|
1992-02-13 09:33:54 +01:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
p = frag_more (length);
|
|
|
|
|
bcopy (temp, p, length);
|
1992-02-13 09:33:54 +01:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
c = *input_line_pointer++;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/* C contains 1st non-white character after number. */
|
|
|
|
|
/* input_line_pointer->just after terminator (c). */
|
1992-02-17 16:54:49 +01:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
--input_line_pointer; /*->terminator (is not ','). */
|
|
|
|
|
demand_empty_rest_of_line ();
|
1992-06-04 21:21:58 +02:00
|
|
|
|
} /* float_cons() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* stringer()
|
|
|
|
|
*
|
|
|
|
|
* We read 0 or more ',' seperated, double-quoted strings.
|
|
|
|
|
*
|
|
|
|
|
* Caller should have checked need_pass_2 is FALSE because we don't check it.
|
|
|
|
|
*/
|
1992-02-13 09:33:54 +01:00
|
|
|
|
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
stringer (append_zero) /* Worker to do .ascii etc statements. */
|
|
|
|
|
/* Checks end-of-line. */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register int append_zero; /* 0: don't append '\0', else 1 */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register unsigned int c;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
1992-06-04 21:21:58 +02:00
|
|
|
|
/*
|
|
|
|
|
* The following awkward logic is to parse ZERO or more strings,
|
|
|
|
|
* comma seperated. Recall a string expression includes spaces
|
|
|
|
|
* before the opening '\"' and spaces after the closing '\"'.
|
|
|
|
|
* We fake a leading ',' if there is (supposed to be)
|
|
|
|
|
* a 1st, expression. We keep demanding expressions for each
|
|
|
|
|
* ','.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (is_it_end_of_statement ())
|
|
|
|
|
{
|
|
|
|
|
c = 0; /* Skip loop. */
|
|
|
|
|
++input_line_pointer; /* Compensate for end of loop. */
|
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
else
|
1992-11-23 21:39:57 +01:00
|
|
|
|
{
|
|
|
|
|
c = ','; /* Do loop. */
|
|
|
|
|
}
|
|
|
|
|
while (c == ',' || c == '<' || c == '"')
|
|
|
|
|
{
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
switch (*input_line_pointer)
|
|
|
|
|
{
|
|
|
|
|
case '\"':
|
|
|
|
|
++input_line_pointer; /*->1st char of string. */
|
|
|
|
|
while (is_a_char (c = next_char_of_string ()))
|
|
|
|
|
{
|
|
|
|
|
FRAG_APPEND_1_CHAR (c);
|
|
|
|
|
}
|
|
|
|
|
if (append_zero)
|
|
|
|
|
{
|
|
|
|
|
FRAG_APPEND_1_CHAR (0);
|
|
|
|
|
}
|
|
|
|
|
know (input_line_pointer[-1] == '\"');
|
|
|
|
|
break;
|
|
|
|
|
case '<':
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
c = get_single_number ();
|
|
|
|
|
FRAG_APPEND_1_CHAR (c);
|
|
|
|
|
if (*input_line_pointer != '>')
|
|
|
|
|
{
|
|
|
|
|
as_bad ("Expected <nn>");
|
|
|
|
|
}
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
break;
|
|
|
|
|
case ',':
|
|
|
|
|
input_line_pointer++;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
c = *input_line_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
} /* stringer() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* FIXME-SOMEDAY: I had trouble here on characters with the
|
1992-06-04 21:21:58 +02:00
|
|
|
|
high bits set. We'll probably also have trouble with
|
|
|
|
|
multibyte chars, wide chars, etc. Also be careful about
|
|
|
|
|
returning values bigger than 1 byte. xoxorich. */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
unsigned int
|
|
|
|
|
next_char_of_string ()
|
|
|
|
|
{
|
|
|
|
|
register unsigned int c;
|
|
|
|
|
|
|
|
|
|
c = *input_line_pointer++ & CHAR_MASK;
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case '\"':
|
|
|
|
|
c = NOT_A_CHAR;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
|
switch (c = *input_line_pointer++)
|
|
|
|
|
{
|
|
|
|
|
case 'b':
|
|
|
|
|
c = '\b';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'f':
|
|
|
|
|
c = '\f';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'n':
|
|
|
|
|
c = '\n';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 'r':
|
|
|
|
|
c = '\r';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 't':
|
|
|
|
|
c = '\t';
|
|
|
|
|
break;
|
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef BACKSLASH_V
|
1992-11-23 21:39:57 +01:00
|
|
|
|
case 'v':
|
|
|
|
|
c = '\013';
|
|
|
|
|
break;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
|
case '"':
|
|
|
|
|
break; /* As itself. */
|
|
|
|
|
|
|
|
|
|
case '0':
|
|
|
|
|
case '1':
|
|
|
|
|
case '2':
|
|
|
|
|
case '3':
|
|
|
|
|
case '4':
|
|
|
|
|
case '5':
|
|
|
|
|
case '6':
|
|
|
|
|
case '7':
|
|
|
|
|
case '8':
|
|
|
|
|
case '9':
|
|
|
|
|
{
|
|
|
|
|
long number;
|
|
|
|
|
|
|
|
|
|
for (number = 0; isdigit (c); c = *input_line_pointer++)
|
|
|
|
|
{
|
|
|
|
|
number = number * 8 + c - '0';
|
|
|
|
|
}
|
|
|
|
|
c = number & 0xff;
|
|
|
|
|
}
|
|
|
|
|
--input_line_pointer;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\n':
|
|
|
|
|
/* To be compatible with BSD 4.2 as: give the luser a linefeed!! */
|
|
|
|
|
as_warn ("Unterminated string: Newline inserted.");
|
|
|
|
|
c = '\n';
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#ifdef ONLY_STANDARD_ESCAPES
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Bad escaped character in string, '?' assumed");
|
|
|
|
|
c = '?';
|
1991-04-04 20:19:53 +02:00
|
|
|
|
#endif /* ONLY_STANDARD_ESCAPES */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
|
|
|
|
|
break;
|
|
|
|
|
} /* switch on escaped char */
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default:
|
|
|
|
|
break;
|
|
|
|
|
} /* switch on char */
|
|
|
|
|
return (c);
|
|
|
|
|
} /* next_char_of_string() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
static segT
|
1992-06-04 21:21:58 +02:00
|
|
|
|
get_segmented_expression (expP)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register expressionS *expP;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register segT retval;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
retval = expression (expP);
|
|
|
|
|
if (retval == pass1_section
|
|
|
|
|
|| retval == absent_section
|
|
|
|
|
|| retval == big_section)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Expected address expression: absolute 0 assumed");
|
1993-03-04 14:21:19 +01:00
|
|
|
|
retval = expP->X_seg = absolute_section;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
expP->X_add_number = 0;
|
|
|
|
|
expP->X_add_symbol = expP->X_subtract_symbol = 0;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
return (retval); /* SEG_ ABSOLUTE,UNKNOWN,DATA,TEXT,BSS */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
static segT
|
|
|
|
|
get_known_segmented_expression (expP)
|
|
|
|
|
register expressionS *expP;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register segT retval;
|
1993-03-04 14:21:19 +01:00
|
|
|
|
register CONST char *name1;
|
|
|
|
|
register CONST char *name2;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if ((retval = get_segmented_expression (expP)) == undefined_section)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
name1 = expP->X_add_symbol ? S_GET_NAME (expP->X_add_symbol) : "";
|
1992-06-04 21:21:58 +02:00
|
|
|
|
name2 = expP->X_subtract_symbol ?
|
1992-11-23 21:39:57 +01:00
|
|
|
|
S_GET_NAME (expP->X_subtract_symbol) :
|
|
|
|
|
"";
|
1992-06-04 21:21:58 +02:00
|
|
|
|
if (name1 && name2)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_warn ("Symbols \"%s\" \"%s\" are undefined: absolute 0 assumed.",
|
|
|
|
|
name1, name2);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_warn ("Symbol \"%s\" undefined: absolute 0 assumed.",
|
|
|
|
|
name1 ? name1 : name2);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1993-03-04 14:21:19 +01:00
|
|
|
|
retval = expP->X_seg = absolute_section;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
expP->X_add_number = 0;
|
|
|
|
|
expP->X_add_symbol = expP->X_subtract_symbol = NULL;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1993-03-04 14:21:19 +01:00
|
|
|
|
know (retval == absolute_section
|
|
|
|
|
|| retval == diff_section
|
|
|
|
|
|| SEG_NORMAL (retval));
|
1992-06-04 21:21:58 +02:00
|
|
|
|
return (retval);
|
|
|
|
|
|
1991-04-04 20:19:53 +02:00
|
|
|
|
} /* get_known_segmented_expression() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* static */ long /* JF was static, but can't be if the MD pseudos are to use it */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
get_absolute_expression ()
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
expressionS exp;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
register segT s;
|
|
|
|
|
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if ((s = expression (&exp)) != absolute_section)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (s != absent_section)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_bad ("Bad Absolute Expression, absolute 0 assumed.");
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
exp.X_add_number = 0;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
return (exp.X_add_number);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
char /* return terminator */
|
|
|
|
|
get_absolute_expression_and_terminator (val_pointer)
|
|
|
|
|
long *val_pointer; /* return value of expression */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
*val_pointer = get_absolute_expression ();
|
|
|
|
|
return (*input_line_pointer++);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* demand_copy_C_string()
|
|
|
|
|
*
|
|
|
|
|
* Like demand_copy_string, but return NULL if the string contains any '\0's.
|
|
|
|
|
* Give a warning if that happens.
|
|
|
|
|
*/
|
|
|
|
|
char *
|
1992-06-04 21:21:58 +02:00
|
|
|
|
demand_copy_C_string (len_pointer)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
int *len_pointer;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register char *s;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if ((s = demand_copy_string (len_pointer)) != 0)
|
1992-06-04 21:21:58 +02:00
|
|
|
|
{
|
|
|
|
|
register int len;
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
for (len = *len_pointer;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
len > 0;
|
|
|
|
|
len--)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (*s == 0)
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
s = 0;
|
|
|
|
|
len = 1;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
*len_pointer = 0;
|
|
|
|
|
as_bad ("This string may not contain \'\\0\'");
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return (s);
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* demand_copy_string()
|
|
|
|
|
*
|
|
|
|
|
* Demand string, but return a safe (=private) copy of the string.
|
|
|
|
|
* Return NULL if we can't read a string here.
|
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
static char *
|
|
|
|
|
demand_copy_string (lenP)
|
|
|
|
|
int *lenP;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register unsigned int c;
|
|
|
|
|
register int len;
|
|
|
|
|
char *retval;
|
|
|
|
|
|
|
|
|
|
len = 0;
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
if (*input_line_pointer == '\"')
|
|
|
|
|
{
|
|
|
|
|
input_line_pointer++; /* Skip opening quote. */
|
|
|
|
|
|
|
|
|
|
while (is_a_char (c = next_char_of_string ()))
|
|
|
|
|
{
|
|
|
|
|
obstack_1grow (¬es, c);
|
|
|
|
|
len++;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
}
|
1992-11-23 21:39:57 +01:00
|
|
|
|
/* JF this next line is so demand_copy_C_string will return a null
|
|
|
|
|
termanated string. */
|
|
|
|
|
obstack_1grow (¬es, '\0');
|
|
|
|
|
retval = obstack_finish (¬es);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
as_warn ("Missing string");
|
|
|
|
|
retval = NULL;
|
|
|
|
|
ignore_rest_of_line ();
|
|
|
|
|
}
|
|
|
|
|
*lenP = len;
|
|
|
|
|
return (retval);
|
|
|
|
|
} /* demand_copy_string() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* is_it_end_of_statement()
|
|
|
|
|
*
|
|
|
|
|
* In: Input_line_pointer->next character.
|
|
|
|
|
*
|
|
|
|
|
* Do: Skip input_line_pointer over all whitespace.
|
|
|
|
|
*
|
|
|
|
|
* Out: 1 if input_line_pointer->end-of-line.
|
1992-06-04 21:21:58 +02:00
|
|
|
|
*/
|
1992-11-23 21:39:57 +01:00
|
|
|
|
int
|
|
|
|
|
is_it_end_of_statement ()
|
|
|
|
|
{
|
|
|
|
|
SKIP_WHITESPACE ();
|
|
|
|
|
return (is_end_of_line[*input_line_pointer]);
|
|
|
|
|
} /* is_it_end_of_statement() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
equals (sym_name)
|
|
|
|
|
char *sym_name;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
register symbolS *symbolP; /* symbol we are working with */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
|
|
|
|
input_line_pointer++;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (*input_line_pointer == '=')
|
1992-06-04 21:21:58 +02:00
|
|
|
|
input_line_pointer++;
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
while (*input_line_pointer == ' ' || *input_line_pointer == '\t')
|
1992-06-04 21:21:58 +02:00
|
|
|
|
input_line_pointer++;
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
if (sym_name[0] == '.' && sym_name[1] == '\0')
|
|
|
|
|
{
|
|
|
|
|
/* Turn '. = mumble' into a .org mumble */
|
|
|
|
|
register segT segment;
|
|
|
|
|
expressionS exp;
|
|
|
|
|
register char *p;
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
segment = get_known_segmented_expression (&exp);
|
|
|
|
|
if (!need_pass_2)
|
|
|
|
|
{
|
1993-03-04 14:21:19 +01:00
|
|
|
|
if (segment != now_seg && segment != absolute_section)
|
1992-11-23 21:39:57 +01:00
|
|
|
|
as_warn ("Illegal segment \"%s\". Segment \"%s\" assumed.",
|
|
|
|
|
segment_name (segment),
|
|
|
|
|
segment_name (now_seg));
|
|
|
|
|
p = frag_var (rs_org, 1, 1, (relax_substateT) 0, exp.X_add_symbol,
|
|
|
|
|
exp.X_add_number, (char *) 0);
|
|
|
|
|
*p = 0;
|
|
|
|
|
} /* if (ok to make frag) */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
symbolP = symbol_find_or_make (sym_name);
|
|
|
|
|
pseudo_set (symbolP);
|
|
|
|
|
}
|
|
|
|
|
} /* equals() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/* .include -- include a file at this point. */
|
|
|
|
|
|
|
|
|
|
/* ARGSUSED */
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_include (arg)
|
|
|
|
|
int arg;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
char *newbuf;
|
|
|
|
|
char *filename;
|
|
|
|
|
int i;
|
|
|
|
|
FILE *try;
|
|
|
|
|
char *path;
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
filename = demand_copy_string (&i);
|
|
|
|
|
demand_empty_rest_of_line ();
|
|
|
|
|
path = xmalloc (i + include_dir_maxlen + 5 /* slop */ );
|
|
|
|
|
for (i = 0; i < include_dir_count; i++)
|
|
|
|
|
{
|
|
|
|
|
strcpy (path, include_dirs[i]);
|
|
|
|
|
strcat (path, "/");
|
|
|
|
|
strcat (path, filename);
|
|
|
|
|
if (0 != (try = fopen (path, "r")))
|
|
|
|
|
{
|
|
|
|
|
fclose (try);
|
|
|
|
|
goto gotit;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
free (path);
|
1992-06-04 21:21:58 +02:00
|
|
|
|
path = filename;
|
|
|
|
|
gotit:
|
|
|
|
|
/* malloc Storage leak when file is found on path. FIXME-SOMEDAY. */
|
|
|
|
|
newbuf = input_scrub_include_file (path, input_line_pointer);
|
|
|
|
|
buffer_limit = input_scrub_next_buffer (&input_line_pointer);
|
1992-11-23 21:39:57 +01:00
|
|
|
|
} /* s_include() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
add_include_dir (path)
|
|
|
|
|
char *path;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-06-04 21:21:58 +02:00
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
if (include_dir_count == 0)
|
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
include_dirs = (char **) xmalloc (2 * sizeof (*include_dirs));
|
1992-06-04 21:21:58 +02:00
|
|
|
|
include_dirs[0] = "."; /* Current dir */
|
|
|
|
|
include_dir_count = 2;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
include_dir_count++;
|
1992-11-23 21:39:57 +01:00
|
|
|
|
include_dirs = (char **) realloc (include_dirs,
|
|
|
|
|
include_dir_count * sizeof (*include_dirs));
|
1992-06-04 21:21:58 +02:00
|
|
|
|
}
|
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
include_dirs[include_dir_count - 1] = path; /* New one */
|
1992-06-04 21:21:58 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
i = strlen (path);
|
|
|
|
|
if (i > include_dir_maxlen)
|
|
|
|
|
include_dir_maxlen = i;
|
|
|
|
|
} /* add_include_dir() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
void
|
|
|
|
|
s_ignore (arg)
|
|
|
|
|
int arg;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
{
|
1992-11-23 21:39:57 +01:00
|
|
|
|
while (!is_end_of_line[*input_line_pointer])
|
|
|
|
|
{
|
|
|
|
|
++input_line_pointer;
|
|
|
|
|
}
|
|
|
|
|
++input_line_pointer;
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
1992-11-23 21:39:57 +01:00
|
|
|
|
return;
|
|
|
|
|
} /* s_ignore() */
|
1991-04-04 20:19:53 +02:00
|
|
|
|
|
|
|
|
|
/* end of read.c */
|