diff options
author | Kazu Hirata <kazu@codesourcery.com> | 2000-09-07 20:28:45 +0000 |
---|---|---|
committer | Kazu Hirata <kazu@codesourcery.com> | 2000-09-07 20:28:45 +0000 |
commit | e13b337af54be5cad04cc872d75550d3df4064b1 (patch) | |
tree | 9a75b1e992ab8821d77e4aae03d19142c24ed832 /gas/config | |
parent | 256d98afc98910568f1cd4349a7cf08e88b518cb (diff) | |
download | gdb-e13b337af54be5cad04cc872d75550d3df4064b1.zip gdb-e13b337af54be5cad04cc872d75550d3df4064b1.tar.gz gdb-e13b337af54be5cad04cc872d75550d3df4064b1.tar.bz2 |
2000-09-07 Kazu Hirata <kazu@hxi.com>
* config/tc-vax.c: Fix formatting.
* input-scrub.c: Likewise.
Diffstat (limited to 'gas/config')
-rw-r--r-- | gas/config/tc-vax.c | 247 |
1 files changed, 121 insertions, 126 deletions
diff --git a/gas/config/tc-vax.c b/gas/config/tc-vax.c index 2342922..8455fa9 100644 --- a/gas/config/tc-vax.c +++ b/gas/config/tc-vax.c @@ -1,5 +1,5 @@ /* tc-vax.c - vax-specific - - Copyright (C) 1987, 91, 92, 93, 94, 95, 98, 1999 + Copyright (C) 1987, 91, 92, 93, 94, 95, 98, 99, 2000 Free Software Foundation, Inc. This file is part of GAS, the GNU Assembler. @@ -28,8 +28,8 @@ another comment */ const char comment_chars[] = "#"; -/* These chars only start a comment at the beginning of a line. */ -/* Note that for the VAX the are the same as comment_chars above. */ +/* These chars only start a comment at the beginning of a line. */ +/* Note that for the VAX the are the same as comment_chars above. */ const char line_comment_chars[] = "#"; const char line_separator_chars[] = ";"; @@ -50,13 +50,13 @@ const char FLT_CHARS[] = "dDfFgGhH"; static expressionS exp_of_operand[VIT_MAX_OPERANDS]; static segT seg_of_operand[VIT_MAX_OPERANDS]; -/* A vax instruction after decoding. */ +/* A vax instruction after decoding. */ static struct vit v; -/* Hold details of big operands. */ +/* Hold details of big operands. */ LITTLENUM_TYPE big_operand_bits[VIT_MAX_OPERANDS][SIZE_OF_LARGE_NUMBER]; FLONUM_TYPE float_operand[VIT_MAX_OPERANDS]; -/* Above is made to point into big_operand_bits by md_begin(). */ +/* Above is made to point into big_operand_bits by md_begin(). */ int flag_hash_long_names; /* -+ */ int flag_one; /* -1 */ @@ -173,16 +173,15 @@ int flag_no_hash_mixed_case; /* -h NUM */ /* These displacements are relative to the start address of the displacement. The first letter is Byte, Word. 2nd letter is - Forward, Backward. */ + Forward, Backward. */ #define BF (1+ 127) #define BB (1+-128) #define WF (2+ 32767) #define WB (2+-32768) /* Dont need LF, LB because they always reach. [They are coded as 0.] */ - #define C(a,b) ENCODE_RELAX(a,b) -/* This macro has no side-effects. */ +/* This macro has no side-effects. */ #define ENCODE_RELAX(what,length) (((what) << 2) + (length)) const relax_typeS md_relax_table[] = @@ -231,7 +230,7 @@ const pseudo_typeS md_pseudo_table[] = #define STATE_PC_RELATIVE (1) #define STATE_CONDITIONAL_BRANCH (2) -#define STATE_ALWAYS_BRANCH (3) /* includes BSB... */ +#define STATE_ALWAYS_BRANCH (3) /* includes BSB... */ #define STATE_COMPLEX_BRANCH (4) #define STATE_COMPLEX_HOP (5) @@ -240,7 +239,6 @@ const pseudo_typeS md_pseudo_table[] = #define STATE_LONG (2) #define STATE_UNDF (3) /* Symbol undefined in pass1 */ - #define min(a, b) ((a) < (b) ? (a) : (b)) int flonum_gen2vax PARAMS ((char format_letter, FLONUM_TYPE * f, @@ -284,7 +282,7 @@ md_number_to_chars (con, value, nbytes) /* Fix up some data or instructions after we find out the value of a symbol that they reference. */ -void /* Knows about order of bytes in address. */ +void /* Knows about order of bytes in address. */ md_apply_fix (fixP, value) fixS *fixP; long value; @@ -295,8 +293,8 @@ md_apply_fix (fixP, value) long md_chars_to_number (con, nbytes) - unsigned char con[]; /* Low order byte 1st. */ - int nbytes; /* Number of bytes in the input. */ + unsigned char con[]; /* Low order byte 1st. */ + int nbytes; /* Number of bytes in the input. */ { long retval; for (retval = 0, con += nbytes - 1; nbytes--; con--) @@ -311,19 +309,19 @@ md_chars_to_number (con, nbytes) void md_assemble (instruction_string) - char *instruction_string; /* A string: assemble 1 instruction. */ + char *instruction_string; /* A string: assemble 1 instruction. */ { - /* Non-zero if operand expression's segment is not known yet. */ + /* Non-zero if operand expression's segment is not known yet. */ int is_undefined; int length_code; char *p; - /* An operand. Scans all operands. */ + /* An operand. Scans all operands. */ struct vop *operandP; char *save_input_line_pointer; - /* What used to live after an expression. */ + /* What used to live after an expression. */ char c_save; - /* 1: instruction_string bad for all passes. */ + /* 1: instruction_string bad for all passes. */ int goofed; /* Points to slot just after last operand. */ struct vop *end_operandP; @@ -331,28 +329,28 @@ md_assemble (instruction_string) expressionS *expP; segT *segP; - /* These refer to an instruction operand expression. */ + /* These refer to an instruction operand expression. */ /* Target segment of the address. */ segT to_seg; valueT this_add_number; - /* Positive (minuend) symbol. */ + /* Positive (minuend) symbol. */ symbolS *this_add_symbol; - /* As a number. */ + /* As a number. */ long opcode_as_number; - /* Least significant byte 1st. */ + /* Least significant byte 1st. */ char *opcode_as_chars; - /* As an array of characters. */ + /* As an array of characters. */ /* Least significant byte 1st */ char *opcode_low_byteP; - /* length (bytes) meant by vop_short. */ + /* length (bytes) meant by vop_short. */ int length; - /* 0, or 1 if '@' is in addressing mode. */ + /* 0, or 1 if '@' is in addressing mode. */ int at; /* From vop_nbytes: vax_operand_width (in bytes) */ int nbytes; FLONUM_TYPE *floatP; LITTLENUM_TYPE literal_float[8]; - /* Big enough for any floating point literal. */ + /* Big enough for any floating point literal. */ vip (&v, instruction_string); @@ -390,12 +388,12 @@ md_assemble (instruction_string) else { /* Statement has no syntax goofs: let's sniff the expression. */ - int can_be_short = 0; /* 1 if a bignum can be reduced to a short literal. */ + int can_be_short = 0; /* 1 if a bignum can be reduced to a short literal. */ input_line_pointer = operandP->vop_expr_begin; c_save = operandP->vop_expr_end[1]; operandP->vop_expr_end[1] = '\0'; - /* If to_seg == SEG_PASS1, expression() will have set need_pass_2 = 1. */ + /* If to_seg == SEG_PASS1, expression() will have set need_pass_2 = 1. */ *segP = expression (expP); switch (expP->X_op) { @@ -435,7 +433,7 @@ md_assemble (instruction_string) break; case O_big: - /* Preserve the bits. */ + /* Preserve the bits. */ if (expP->X_add_number > 0) { bignum_copy (generic_bignum, expP->X_add_number, @@ -498,20 +496,20 @@ md_assemble (instruction_string) && operandP->vop_reg == 0xF && (operandP->vop_mode & 0xE) == 0x8)) { - /* Saw a '#'. */ + /* Saw a '#'. */ if (operandP->vop_short == ' ') { - /* We must chose S^ or I^. */ + /* We must chose S^ or I^. */ if (expP->X_add_number > 0) { - /* Bignum: Short literal impossible. */ + /* Bignum: Short literal impossible. */ operandP->vop_short = 'i'; operandP->vop_mode = 8; - operandP->vop_reg = 0xF; /* VAX PC. */ + operandP->vop_reg = 0xF; /* VAX PC. */ } else { - /* Flonum: Try to do it. */ + /* Flonum: Try to do it. */ if (can_be_short) { operandP->vop_short = 's'; @@ -527,17 +525,17 @@ md_assemble (instruction_string) operandP->vop_reg = 0xF; /* VAX PC */ } } /* bignum or flonum ? */ - } /* if #, but no S^ or I^ seen. */ - /* No more ' ' case: either 's' or 'i'. */ + } /* if #, but no S^ or I^ seen. */ + /* No more ' ' case: either 's' or 'i'. */ if (operandP->vop_short == 's') { - /* Wants to be a short literal. */ + /* Wants to be a short literal. */ if (expP->X_add_number > 0) { as_warn (_("Bignum not permitted in short literal. Immediate mode assumed.")); operandP->vop_short = 'i'; operandP->vop_mode = 8; - operandP->vop_reg = 0xF; /* VAX PC. */ + operandP->vop_reg = 0xF; /* VAX PC. */ } else { @@ -546,10 +544,10 @@ md_assemble (instruction_string) as_warn (_("Can't do flonum short literal: immediate mode used.")); operandP->vop_short = 'i'; operandP->vop_mode = 8; - operandP->vop_reg = 0xF; /* VAX PC. */ + operandP->vop_reg = 0xF; /* VAX PC. */ } else - { /* Encode short literal now. */ + { /* Encode short literal now. */ int temp = 0; switch (-expP->X_add_number) @@ -579,18 +577,18 @@ md_assemble (instruction_string) } /* flonum or bignum ? */ } else - { /* I^# seen: set it up if float. */ + { /* I^# seen: set it up if float. */ if (expP->X_add_number < 0) { memcpy (floatP->low, literal_float, sizeof (literal_float)); } - } /* if S^# seen. */ + } /* if S^# seen. */ } else { as_warn (_("A bignum/flonum may not be a displacement: 0x%lx used"), (expP->X_add_number = 0x80000000L)); - /* Chosen so luser gets the most offset bits to patch later. */ + /* Chosen so luser gets the most offset bits to patch later. */ } expP->X_add_number = floatP->low[0] | ((LITTLENUM_MASK & (floatP->low[1])) << LITTLENUM_NUMBER_OF_BITS); @@ -623,9 +621,8 @@ md_assemble (instruction_string) return; } - - /* Emit op-code. */ - /* Remember where it is, in case we want to modify the op-code later. */ + /* Emit op-code. */ + /* Remember where it is, in case we want to modify the op-code later. */ opcode_low_byteP = frag_more (v.vit_opcode_nbytes); memcpy (opcode_low_byteP, v.vit_opcode, v.vit_opcode_nbytes); opcode_as_number = md_chars_to_number (opcode_as_chars = v.vit_opcode, 4); @@ -649,7 +646,7 @@ md_assemble (instruction_string) FRAG_APPEND_1_CHAR (0x40 + operandP->vop_ndx); } /* if(vop_ndx>=0) */ - /* Here to make main operand frag(s). */ + /* Here to make main operand frag(s). */ this_add_number = expP->X_add_number; this_add_symbol = expP->X_add_symbol; to_seg = *segP; @@ -664,7 +661,7 @@ md_assemble (instruction_string) { if (to_seg == now_seg || is_undefined) { - /* If is_undefined, then it might BECOME now_seg. */ + /* If is_undefined, then it might BECOME now_seg. */ if (nbytes) { p = frag_more (nbytes); @@ -728,7 +725,7 @@ md_assemble (instruction_string) { know (!(opcode_as_number & VIT_OPCODE_SYNTHETIC)); p = frag_more (nbytes); - /* Conventional relocation. */ + /* Conventional relocation. */ fix_new (frag_now, p - frag_now->fr_literal, nbytes, &abs_symbol, this_add_number, 1, NO_RELOC); @@ -744,9 +741,9 @@ md_assemble (instruction_string) *opcode_low_byteP = opcode_as_chars[0] + VAX_WIDEN_LONG; know (opcode_as_chars[1] == 0); p = frag_more (5); - p[0] = VAX_ABSOLUTE_MODE; /* @#... */ + p[0] = VAX_ABSOLUTE_MODE; /* @#... */ md_number_to_chars (p + 1, this_add_number, 4); - /* Now (eg) JMP @#foo or JSB @#foo. */ + /* Now (eg) JMP @#foo or JSB @#foo. */ } else { @@ -758,7 +755,7 @@ md_assemble (instruction_string) p[2] = VAX_BRB; p[3] = 6; p[4] = VAX_JMP; - p[5] = VAX_ABSOLUTE_MODE; /* @#... */ + p[5] = VAX_ABSOLUTE_MODE; /* @#... */ md_number_to_chars (p + 6, this_add_number, 4); /* * Now (eg) ACBx 1f @@ -775,7 +772,7 @@ md_assemble (instruction_string) p[1] = VAX_BRB; p[2] = 6; p[3] = VAX_JMP; - p[4] = VAX_ABSOLUTE_MODE; /* @#... */ + p[4] = VAX_ABSOLUTE_MODE; /* @#... */ md_number_to_chars (p + 5, this_add_number, 4); /* * Now (eg) xOBxxx 1f @@ -791,11 +788,11 @@ md_assemble (instruction_string) /* b<cond> */ *opcode_low_byteP ^= 1; /* To reverse the condition in a VAX branch, - complement the lowest order bit. */ + complement the lowest order bit. */ p = frag_more (7); p[0] = 6; p[1] = VAX_JMP; - p[2] = VAX_ABSOLUTE_MODE; /* @#... */ + p[2] = VAX_ABSOLUTE_MODE; /* @#... */ md_number_to_chars (p + 3, this_add_number, 4); /* * Now (eg) BLEQ 1f @@ -810,7 +807,7 @@ md_assemble (instruction_string) /* to_seg != now_seg && to_seg != SEG_UNKNOWN && to_Seg != SEG_ABSOLUTE */ if (nbytes > 0) { - /* Pc-relative. Conventional relocation. */ + /* Pc-relative. Conventional relocation. */ know (!(opcode_as_number & VIT_OPCODE_SYNTHETIC)); p = frag_more (nbytes); fix_new (frag_now, p - frag_now->fr_literal, @@ -833,7 +830,7 @@ md_assemble (instruction_string) p + 1 - frag_now->fr_literal, 4, this_add_symbol, this_add_number, 1, NO_RELOC); - /* Now eg JMP foo or JSB foo. */ + /* Now eg JMP foo or JSB foo. */ } else { @@ -882,7 +879,7 @@ md_assemble (instruction_string) else { know (operandP->vop_width == VAX_WIDTH_CONDITIONAL_JUMP); - *opcode_low_byteP ^= 1; /* Reverse branch condition. */ + *opcode_low_byteP ^= 1; /* Reverse branch condition. */ p = frag_more (7); p[0] = 6; p[1] = VAX_JMP; @@ -897,8 +894,8 @@ md_assemble (instruction_string) } else { - know (operandP->vop_access != 'b'); /* So it is ordinary operand. */ - know (operandP->vop_access != ' '); /* ' ' target-independent: elsewhere. */ + know (operandP->vop_access != 'b'); /* So it is ordinary operand. */ + know (operandP->vop_access != ' '); /* ' ' target-independent: elsewhere. */ know (operandP->vop_access == 'a' || operandP->vop_access == 'm' || operandP->vop_access == 'r' @@ -929,10 +926,10 @@ md_assemble (instruction_string) if (operandP->vop_reg >= 0 && (operandP->vop_mode < 8 || (operandP->vop_reg != 0xF && operandP->vop_mode < 10))) { - /* One byte operand. */ + /* One byte operand. */ know (operandP->vop_mode > 3); FRAG_APPEND_1_CHAR (operandP->vop_mode << 4 | operandP->vop_reg); - /* All 1-bytes except S^# happen here. */ + /* All 1-bytes except S^# happen here. */ } else { @@ -954,7 +951,7 @@ md_assemble (instruction_string) /* At is the only context we need to carry to other side of relax() process. Must be in the correct bit position of VAX - operand spec. byte. */ + operand spec. byte. */ } else { @@ -972,9 +969,9 @@ md_assemble (instruction_string) if (this_add_symbol == NULL) { know (to_seg == SEG_ABSOLUTE); - /* Do @#foo: simpler relocation than foo-.(pc) anyway. */ + /* Do @#foo: simpler relocation than foo-.(pc) anyway. */ p = frag_more (5); - p[0] = VAX_ABSOLUTE_MODE; /* @#... */ + p[0] = VAX_ABSOLUTE_MODE; /* @#... */ md_number_to_chars (p + 1, this_add_number, 4); if (length && length != 4) { @@ -1004,7 +1001,7 @@ md_assemble (instruction_string) if (length == 0) { know (operandP->vop_short == ' '); - length = 4; /* Longest possible. */ + length = 4; /* Longest possible. */ } p = frag_more (length + 1); p[0] = 0xF | ((at + "?\12\14?\16"[length]) << 4); @@ -1035,7 +1032,7 @@ md_assemble (instruction_string) } if (length == 0 && to_seg == SEG_ABSOLUTE && (expP->X_op != O_big) - && operandP->vop_mode == 8 /* No '@'. */ + && operandP->vop_mode == 8 /* No '@'. */ && this_add_number < 64) { operandP->vop_short = 's'; @@ -1046,7 +1043,7 @@ md_assemble (instruction_string) } else { - /* I^#... */ + /* I^#... */ know (nbytes); p = frag_more (nbytes + 1); know (operandP->vop_reg == 0xF); @@ -1059,7 +1056,7 @@ md_assemble (instruction_string) * are to be 0xFF or 0x00. BSD4.2 & RMS * say use 0x00. OK --- but this * assembler needs ANOTHER rewrite to - * cope properly with this bug. */ + * cope properly with this bug. */ md_number_to_chars (p + 1, this_add_number, min (4, nbytes)); if (nbytes > 4) { @@ -1074,7 +1071,7 @@ md_assemble (instruction_string) * Problem here is to get the bytes * in the right order. We stored * our constant as LITTLENUMs, not - * bytes. */ + * bytes. */ LITTLENUM_TYPE *lP; lP = floatP->low; @@ -1170,13 +1167,13 @@ md_estimate_size_before_relax (fragP, segment) { case ENCODE_RELAX (STATE_PC_RELATIVE, STATE_UNDF): if (S_GET_SEGMENT (fragP->fr_symbol) == segment) - { /* A relaxable case. */ + { /* A relaxable case. */ fragP->fr_subtype = ENCODE_RELAX (STATE_PC_RELATIVE, STATE_BYTE); } else { p = fragP->fr_literal + old_fr_fix; - p[0] |= VAX_PC_RELATIVE_MODE; /* Preserve @ bit. */ + p[0] |= VAX_PC_RELATIVE_MODE; /* Preserve @ bit. */ fragP->fr_fix += 1 + 4; fix_new (fragP, old_fr_fix + 1, 4, fragP->fr_symbol, fragP->fr_offset, 1, NO_RELOC); @@ -1192,7 +1189,7 @@ md_estimate_size_before_relax (fragP, segment) else { p = fragP->fr_literal + old_fr_fix; - *fragP->fr_opcode ^= 1; /* Reverse sense of branch. */ + *fragP->fr_opcode ^= 1; /* Reverse sense of branch. */ p[0] = 6; p[1] = VAX_JMP; p[2] = VAX_PC_RELATIVE_MODE; /* ...(PC) */ @@ -1284,11 +1281,11 @@ md_convert_frag (headers, seg, fragP) segT seg; fragS *fragP; { - char *addressP; /* -> _var to change. */ - char *opcodeP; /* -> opcode char(s) to change. */ + char *addressP; /* -> _var to change. */ + char *opcodeP; /* -> opcode char(s) to change. */ short int length_code; /* 2=long 1=word 0=byte */ - short int extension = 0; /* Size of relaxed address. */ - /* Added to fr_fix: incl. ALL var chars. */ + short int extension = 0; /* Size of relaxed address. */ + /* Added to fr_fix: incl. ALL var chars. */ symbolS *symbolP; long where; long address_of_var; @@ -1311,22 +1308,22 @@ md_convert_frag (headers, seg, fragP) { case ENCODE_RELAX (STATE_PC_RELATIVE, STATE_BYTE): - know (*addressP == 0 || *addressP == 0x10); /* '@' bit. */ - addressP[0] |= 0xAF; /* Byte displacement. */ + know (*addressP == 0 || *addressP == 0x10); /* '@' bit. */ + addressP[0] |= 0xAF; /* Byte displacement. */ addressP[1] = target_address - (address_of_var + 2); extension = 2; break; case ENCODE_RELAX (STATE_PC_RELATIVE, STATE_WORD): - know (*addressP == 0 || *addressP == 0x10); /* '@' bit. */ - addressP[0] |= 0xCF; /* Word displacement. */ + know (*addressP == 0 || *addressP == 0x10); /* '@' bit. */ + addressP[0] |= 0xCF; /* Word displacement. */ md_number_to_chars (addressP + 1, target_address - (address_of_var + 3), 2); extension = 3; break; case ENCODE_RELAX (STATE_PC_RELATIVE, STATE_LONG): - know (*addressP == 0 || *addressP == 0x10); /* '@' bit. */ - addressP[0] |= 0xEF; /* Long word displacement. */ + know (*addressP == 0 || *addressP == 0x10); /* '@' bit. */ + addressP[0] |= 0xEF; /* Long word displacement. */ md_number_to_chars (addressP + 1, target_address - (address_of_var + 5), 4); extension = 5; break; @@ -1337,7 +1334,7 @@ md_convert_frag (headers, seg, fragP) break; case ENCODE_RELAX (STATE_CONDITIONAL_BRANCH, STATE_WORD): - opcodeP[0] ^= 1; /* Reverse sense of test. */ + opcodeP[0] ^= 1; /* Reverse sense of test. */ addressP[0] = 3; addressP[1] = VAX_BRB + VAX_WIDEN_WORD; md_number_to_chars (addressP + 2, target_address - (address_of_var + 4), 2); @@ -1345,7 +1342,7 @@ md_convert_frag (headers, seg, fragP) break; case ENCODE_RELAX (STATE_CONDITIONAL_BRANCH, STATE_LONG): - opcodeP[0] ^= 1; /* Reverse sense of test. */ + opcodeP[0] ^= 1; /* Reverse sense of test. */ addressP[0] = 6; addressP[1] = VAX_JMP; addressP[2] = VAX_PC_RELATIVE_MODE; @@ -1423,7 +1420,7 @@ md_convert_frag (headers, seg, fragP) On vax: first 4 bytes are normal unsigned long, next three bytes are symbolnum, least sig. byte first. Last byte is broken up with the upper nibble as nuthin, bit 3 as extern, bits 2 & 1 as length, and - bit 0 as pcrel. */ + bit 0 as pcrel. */ #ifdef comment void md_ri_to_chars (the_bytes, ri) @@ -1442,7 +1439,7 @@ md_ri_to_chars (the_bytes, ri) #endif /* comment */ -void +void tc_aout_fix_to_chars (where, fixP, segment_address_in_file) char *where; fixS *fixP; @@ -1556,10 +1553,10 @@ static const short int vax_operand_width_size[256] = 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, 1, 0, 8, 0, 4, 8, 16, 0, 0, 0, 4, 0, 0,16, /* ..b.d.fgh...l..o */ - 0, 8, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, /* .q.....w........ */ - 0, 0, 1, 0, 8, 0, 4, 8, 16, 0, 0, 0, 4, 0, 0,16, /* ..b.d.fgh...l..o */ - 0, 8, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, /* .q.....w........ */ + 0, 0, 1, 0, 8, 0, 4, 8, 16, 0, 0, 0, 4, 0, 0,16, /* ..b.d.fgh...l..o */ + 0, 8, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, /* .q.....w........ */ + 0, 0, 1, 0, 8, 0, 4, 8, 16, 0, 0, 0, 4, 0, 0,16, /* ..b.d.fgh...l..o */ + 0, 8, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, /* .q.....w........ */ 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, @@ -1676,8 +1673,8 @@ static const struct vot {"jsobgeq", {"mlb:", 0xC00000f4}}, {"jsobgtr", {"mlb:", 0xC00000f5}}, -/* CASEx has no branch addresses in our conception of it. */ -/* You should use ".word ..." statements after the "case ...". */ +/* CASEx has no branch addresses in our conception of it. */ +/* You should use ".word ..." statements after the "case ...". */ {"", {"", 0}} /* empty is end sentinel */ @@ -1696,7 +1693,7 @@ static const struct vot static const char * vip_begin (synthetic_too, immediate, indirect, displen) - int synthetic_too; /* 1 means include jXXX op-codes. */ + int synthetic_too; /* 1 means include jXXX op-codes. */ const char *immediate, *indirect, *displen; { const struct vot *vP; /* scan votstrs */ @@ -1718,7 +1715,6 @@ vip_begin (synthetic_too, immediate, indirect, displen) return retval; } - /* * v i p ( ) * @@ -1745,10 +1741,10 @@ vip_begin (synthetic_too, immediate, indirect, displen) static void vip (vitP, instring) - struct vit *vitP; /* We build an exploded instruction here. */ - char *instring; /* Text of a vax instruction: we modify. */ + struct vit *vitP; /* We build an exploded instruction here. */ + char *instring; /* Text of a vax instruction: we modify. */ { - /* How to bit-encode this opcode. */ + /* How to bit-encode this opcode. */ struct vot_wot *vwP; /* 1/skip whitespace.2/scan vot_how */ char *p; @@ -1759,16 +1755,16 @@ vip (vitP, instring) struct vop *operandp; /* error over all operands */ const char *alloperr; - /* Remember char, (we clobber it with '\0' temporarily). */ + /* Remember char, (we clobber it with '\0' temporarily). */ char c; - /* Op-code of this instruction. */ + /* Op-code of this instruction. */ vax_opcodeT oc; if (*instring == ' ') - ++instring; /* Skip leading whitespace. */ - for (p = instring; *p && *p != ' '; p++);; /* MUST end in end-of-string or exactly 1 space. */ - /* Scanned up to end of operation-code. */ - /* Operation-code is ended with whitespace. */ + ++instring; /* Skip leading whitespace. */ + for (p = instring; *p && *p != ' '; p++);; /* MUST end in end-of-string or exactly 1 space. */ + /* Scanned up to end of operation-code. */ + /* Operation-code is ended with whitespace. */ if (p - instring == 0) { vitP->vit_error = _("No operator"); @@ -1785,7 +1781,7 @@ vip (vitP, instring) * We trust instring points to an op-name, with no whitespace. */ vwP = (struct vot_wot *) hash_find (op_hash, instring); - *p = c; /* Restore char after op-code. */ + *p = c; /* Restore char after op-code. */ if (vwP == 0) { vitP->vit_error = _("Unknown operator"); @@ -1808,7 +1804,7 @@ vip (vitP, instring) * we return 32 bits of opcode, including bucky bits, BUT * an opcode length is either 8 or 16 bits for vit_opcode_nbytes. */ - oc = vwP->vot_code; /* The op-code. */ + oc = vwP->vot_code; /* The op-code. */ vitP->vit_opcode_nbytes = (oc & 0xFF) >= 0xFD ? 2 : 1; md_number_to_chars (vitP->vit_opcode, oc, 4); count = 0; /* no operands seen yet */ @@ -1837,7 +1833,7 @@ vip (vitP, instring) operandp->vop_nbytes = vax_operand_width_size[(unsigned) howp[1]]; operandp->vop_access = howp[0]; vip_op (instring, operandp); - *q = c; /* Restore input text. */ + *q = c; /* Restore input text. */ if (operandp->vop_error) alloperr = _("Bad operand"); instring = q + (c ? 1 : 0); /* next operand (if any) */ @@ -1849,7 +1845,7 @@ vip (vitP, instring) if (!*alloperr) { if (*instring == ' ') - instring++; /* Skip whitespace. */ + instring++; /* Skip whitespace. */ if (*instring) alloperr = _("Too many operands"); } @@ -1870,7 +1866,7 @@ char answer[100]; /* human types a line of vax assembler here */ char *mybug; /* "" or an internal logic diagnostic */ int mycount; /* number of operands */ struct vop *myvop; /* scan operands from myvit */ -int mysynth; /* 1 means want synthetic opcodes. */ +int mysynth; /* 1 means want synthetic opcodes. */ char my_immediate[200]; char my_indirect[200]; char my_displen[200]; @@ -1949,7 +1945,7 @@ main () /* vax_reg_parse.c - convert a VAX register name to a number */ -/* Copyright (C) 1987 Free Software Foundation, Inc. A part of GNU. */ +/* Copyright (C) 1987 Free Software Foundation, Inc. A part of GNU. */ /* * v a x _ r e g _ p a r s e ( ) @@ -2135,7 +2131,6 @@ vax_reg_parse (c1, c2, c3) /* 3 chars of register name */ * if the other outputs are to be taken seriously. */ - /* * Because this module is useful for both VMS and UN*X style assemblers * and because of the variety of UN*X assemblers we must recognise @@ -2203,7 +2198,7 @@ vip_op_1 (bit, syms) } /* Can be called any time. More arguments may appear in future. */ -static void +static void vip_op_defaults (immediate, indirect, displen) const char *immediate; const char *indirect; @@ -2282,7 +2277,7 @@ vip_op (optext, vopP) /* Input fields: vop_access, vop_width. Output fields: _ndx, _reg, _mode, _short, _warn, _error _expr_begin, _expr_end, _nbytes. - vop_nbytes : number of bytes in a datum. */ + vop_nbytes : number of bytes in a datum. */ struct vop *vopP; { /* track operand text forward */ @@ -2305,7 +2300,7 @@ vip_op (optext, vopP) int ndx = 0; /* report illegal operand, ""==OK */ /* " " is a FAKE error: means we won */ - /* ANY err that begins with ' ' is a fake. */ + /* ANY err that begins with ' ' is a fake. */ /* " " is converted to "" before return */ const char *err; /* warn about weird modes pf address */ @@ -2321,8 +2316,8 @@ vip_op (optext, vopP) * get the types wrong below, we lose at compile time rather than at * lint or run time. */ - char access_mode; /* vop_access. */ - char width; /* vop_width. */ + char access_mode; /* vop_access. */ + char width; /* vop_width. */ access_mode = vopP->vop_access; width = vopP->vop_width; @@ -2332,13 +2327,13 @@ vip_op (optext, vopP) p = optext; - if (*p == ' ') /* Expect all whitespace reduced to ' '. */ + if (*p == ' ') /* Expect all whitespace reduced to ' '. */ p++; /* skip over whitespace */ if ((at = INDIRECTP (*p)) != 0) { /* 1 if *p=='@'(or '*' for Un*x) */ p++; /* at is determined */ - if (*p == ' ') /* Expect all whitespace reduced to ' '. */ + if (*p == ' ') /* Expect all whitespace reduced to ' '. */ p++; /* skip over whitespace */ } @@ -2359,7 +2354,7 @@ vip_op (optext, vopP) len = ' '; /* len is determined */ } - if (*p == ' ') /* Expect all whitespace reduced to ' '. */ + if (*p == ' ') /* Expect all whitespace reduced to ' '. */ p++; /* skip over whitespace */ if ((hash = IMMEDIATEP (*p)) != 0) /* 1 if *p=='#' ('$' for Un*x) */ @@ -2377,7 +2372,7 @@ vip_op (optext, vopP) ; q--; /* now q points at last char of text */ - if (*q == ' ' && q >= p) /* Expect all whitespace reduced to ' '. */ + if (*q == ' ' && q >= p) /* Expect all whitespace reduced to ' '. */ q--; /* reverse over whitespace, but don't */ /* run back over *p */ @@ -2430,7 +2425,7 @@ vip_op (optext, vopP) * Otherwise, ndx is index register number, and q points before "[...]". */ - if (*q == ' ' && q >= p) /* Expect all whitespace reduced to ' '. */ + if (*q == ' ' && q >= p) /* Expect all whitespace reduced to ' '. */ q--; /* reverse over whitespace, but don't */ /* run back over *p */ @@ -2527,7 +2522,7 @@ vip_op (optext, vopP) */ if (!paren) { - if (*q == ' ' && q >= p) /* Expect all whitespace reduced to ' '. */ + if (*q == ' ' && q >= p) /* Expect all whitespace reduced to ' '. */ q--; /* reverse over whitespace, but don't */ /* run back over *p */ @@ -2591,7 +2586,7 @@ vip_op (optext, vopP) err = " "; } - /* Since nobody seems to use it: comment this 'feature'(?) out for now. */ + /* Since nobody seems to use it: comment this 'feature'(?) out for now. */ #ifdef NEVER /* * Case of stand-alone operand. e.g. ".long foo" @@ -2944,7 +2939,7 @@ vip_op (optext, vopP) */ -#ifdef TEST /* #Define to use this testbed. */ +#ifdef TEST /* #Define to use this testbed. */ /* * Follows a test program for this function. @@ -3150,7 +3145,7 @@ md_parse_option (c, arg) break; #ifdef OBJ_VMS - case '+': /* For g++. Hash any name > 31 chars long. */ + case '+': /* For g++. Hash any name > 31 chars long. */ flag_hash_long_names = 1; break; |