1 /* tc-sh.c -- Assemble code for the Hitachi Super-H
3 Copyright (C) 1993 Free Software Foundation.
5 This file is part of GAS, the GNU Assembler.
7 GAS is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GAS is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GAS; see the file COPYING. If not, write to
19 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
22 Written By Steve Chamberlain
31 #include "../opcodes/sh-opc.h"
34 const char comment_chars
[] = "!";
35 const char line_separator_chars
[] = ";";
36 const char line_comment_chars
[] = "!";
38 /* This table describes all the machine specific pseudo-ops the assembler
39 has to support. The fields are:
40 pseudo-op name without dot
41 function to call to execute this pseudo-op
42 Integer arg to pass to the function
46 void s_align_bytes ();
48 const pseudo_typeS md_pseudo_table
[] =
52 {"form", listing_psize
, 0},
53 {"heading", listing_title
, 0},
54 {"import", s_ignore
, 0},
55 {"page", listing_eject
, 0},
56 {"program", s_ignore
, 0},
60 /*int md_reloc_size; */
62 static int relax
; /* set if -relax seen */
64 const char EXP_CHARS
[] = "eE";
66 /* Chars that mean this number is a floating point constant */
69 const char FLT_CHARS
[] = "rRsSfFdDxXpP";
71 #define C(a,b) ENCODE_RELAX(a,b)
73 #define JREG 14 /* Register used as a temp when relaxing */
74 #define ENCODE_RELAX(what,length) (((what) << 4) + (length))
75 #define GET_WHAT(x) ((x>>4))
77 /* These are the two types of relaxable instrction */
87 #define UNDEF_WORD_DISP 4
95 #define COND8_LENGTH 2
96 #define COND12_F (4094 - 4) /* -4 since there are two extra */
97 /* instructions needed */
98 #define COND12_M -4096
99 #define COND12_LENGTH 6
100 #define COND32_F (1<<30)
101 #define COND32_M -(1<<30)
102 #define COND32_LENGTH 14
104 #define COND8_RANGE(x) ((x) > COND8_M && (x) < COND8_F)
105 #define COND12_RANGE(x) ((x) > COND12_M && (x) < COND12_F)
107 #define UNCOND12_F 4094
108 #define UNCOND12_M -4096
109 #define UNCOND12_LENGTH 2
111 #define UNCOND32_F (1<<30)
112 #define UNCOND32_M -(1<<30)
113 #define UNCOND32_LENGTH 14
116 const relax_typeS md_relax_table
[C (END
, 0)];
118 static struct hash_control
*opcode_hash_control
; /* Opcode mnemonics */
121 This function is called once, at assembler startup time. This should
122 set up all the tables, etc that the MD part of the assembler needs
128 sh_opcode_info
*opcode
;
129 char *prev_name
= "";
131 opcode_hash_control
= hash_new ();
133 /* Insert unique names into hash table */
134 for (opcode
= sh_table
; opcode
->name
; opcode
++)
136 if (strcmp (prev_name
, opcode
->name
))
138 prev_name
= opcode
->name
;
139 hash_insert (opcode_hash_control
, opcode
->name
, (char *) opcode
);
143 /* Make all the opcodes with the same name point to the same
145 opcode
->name
= prev_name
;
149 /* Initialize the relax table */
150 md_relax_table
[C (COND_JUMP
, COND8
)].rlx_forward
= COND8_F
;
151 md_relax_table
[C (COND_JUMP
, COND8
)].rlx_backward
= COND8_M
;
152 md_relax_table
[C (COND_JUMP
, COND8
)].rlx_length
= COND8_LENGTH
;
153 md_relax_table
[C (COND_JUMP
, COND8
)].rlx_more
= C (COND_JUMP
, COND12
);
155 md_relax_table
[C (COND_JUMP
, COND12
)].rlx_forward
= COND12_F
;
156 md_relax_table
[C (COND_JUMP
, COND12
)].rlx_backward
= COND12_M
;
157 md_relax_table
[C (COND_JUMP
, COND12
)].rlx_length
= COND12_LENGTH
;
158 md_relax_table
[C (COND_JUMP
, COND12
)].rlx_more
= C (COND_JUMP
, COND32
);
160 md_relax_table
[C (COND_JUMP
, COND32
)].rlx_forward
= COND32_F
;
161 md_relax_table
[C (COND_JUMP
, COND32
)].rlx_backward
= COND32_M
;
162 md_relax_table
[C (COND_JUMP
, COND32
)].rlx_length
= COND32_LENGTH
;
163 md_relax_table
[C (COND_JUMP
, COND32
)].rlx_more
= 0;
166 md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_forward
= UNCOND12_F
;
167 md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_backward
= UNCOND12_M
;
168 md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_length
= UNCOND12_LENGTH
;
169 md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_more
= C (UNCOND_JUMP
, UNCOND32
);
171 md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_forward
= UNCOND32_F
;
172 md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_backward
= UNCOND32_M
;
173 md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_length
= UNCOND32_LENGTH
;
174 md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_more
= 0;
181 static expressionS immediate
; /* absolute expression */
191 /* try and parse a reg name, returns number of chars consumed */
193 parse_reg (src
, mode
, reg
)
202 if (src
[2] >= '0' && src
[2] <= '5')
205 *reg
= 10 + src
[2] - '0';
209 if (src
[1] >= '0' && src
[1] <= '9')
212 *reg
= (src
[1] - '0');
217 if (src
[0] == 's' && src
[1] == 'r')
223 if (src
[0] == 's' && src
[1] == 'p')
230 if (src
[0] == 'p' && src
[1] == 'r')
235 if (src
[0] == 'p' && src
[1] == 'c')
240 if (src
[0] == 'g' && src
[1] == 'b' && src
[2] == 'r')
245 if (src
[0] == 'v' && src
[1] == 'b' && src
[2] == 'r')
251 if (src
[0] == 'm' && src
[1] == 'a' && src
[2] == 'c')
268 static symbolS
*dot()
272 /* JF: '.' is pseudo symbol with value of current location
273 in current segment. */
274 fake
= FAKE_LABEL_NAME
;
275 return symbol_new (fake
,
277 (valueT
) frag_now_fix (),
291 save
= input_line_pointer
;
292 input_line_pointer
= s
;
293 expression (&immediate
);
294 if (immediate
.X_op
== O_absent
)
295 as_bad ("missing operand");
296 new = input_line_pointer
;
297 input_line_pointer
= save
;
302 /* The many forms of operand:
305 @Rn Register indirect
318 pr, gbr, vbr, macl, mach
333 /* Must be predecrement */
336 len
= parse_reg (src
, &mode
, &(op
->reg
));
338 as_bad ("illegal register after @-");
343 else if (src
[0] == '(')
345 /* Could be @(disp, rn), @(disp, gbr), @(disp, pc), @(r0, gbr) or
348 len
= parse_reg (src
, &mode
, &(op
->reg
));
349 if (len
&& mode
== A_REG_N
)
354 as_bad ("must be @(r0,...)");
358 /* Now can be rn or gbr */
359 len
= parse_reg (src
, &mode
, &(op
->reg
));
364 else if (mode
== A_REG_N
)
366 op
->type
= A_IND_R0_REG_N
;
370 as_bad ("syntax error in @(r0,...)");
375 /* Must be an @(disp,.. thing) */
376 src
= parse_exp (src
);
379 /* Now can be rn, gbr or pc */
380 len
= parse_reg (src
, &mode
, &op
->reg
);
385 op
->type
= A_DISP_REG_N
;
387 else if (mode
== A_GBR
)
389 op
->type
= A_DISP_GBR
;
391 else if (mode
== A_DISP_PC
)
393 /* Turn a plain @(4,pc) into @(.+4,pc) */
394 if (immediate
.X_op
== O_constant
) {
395 immediate
.X_add_symbol
= dot();
396 immediate
.X_op
= O_symbol
;
398 op
->type
= A_DISP_PC
;
402 as_bad ("syntax error in @(disp,[Rn, gbr, pc])");
407 as_bad ("syntax error in @(disp,[Rn, gbr, pc])");
412 as_bad ("expecting )");
418 src
+= parse_reg (src
, &mode
, &(op
->reg
));
421 as_bad ("illegal register after @");
437 get_operand (ptr
, op
)
448 *ptr
= parse_exp (src
);
453 else if (src
[0] == '@')
455 *ptr
= parse_at (src
, op
);
458 len
= parse_reg (src
, &mode
, &(op
->reg
));
467 /* Not a reg, the only thing left is a displacement */
468 *ptr
= parse_exp (src
);
469 op
->type
= A_DISP_PC
;
476 get_operands (info
, args
, operand
)
477 sh_opcode_info
*info
;
479 sh_operand_info
*operand
;
487 get_operand (&ptr
, operand
+ 0);
494 get_operand (&ptr
, operand
+ 1);
509 /* Passed a pointer to a list of opcodes which use different
510 addressing modes, return the opcode which matches the opcodes
516 get_specific (opcode
, operands
)
517 sh_opcode_info
*opcode
;
518 sh_operand_info
*operands
;
520 sh_opcode_info
*this_try
= opcode
;
521 char *name
= opcode
->name
;
527 if (this_try
->name
!= name
)
529 /* We've looked so far down the table that we've run out of
530 opcodes with the same name */
533 /* look at both operands needed by the opcodes and provided by
534 the user - since an arg test will often fail on the same arg
535 again and again, we'll try and test the last failing arg the
536 first on each opcode try */
538 for (n
= 0; this_try
->arg
[n
]; n
++)
540 sh_operand_info
*user
= operands
+ arg_to_test
;
541 sh_arg_type arg
= this_try
->arg
[arg_to_test
];
552 if (user
->type
!= arg
)
556 /* opcode needs r0 */
557 if (user
->type
!= A_REG_N
|| user
->reg
!= 0)
561 if (user
->type
!= A_R0_GBR
|| user
->reg
!= 0)
571 /* Opcode needs rn */
572 if (user
->type
!= arg
)
579 if (user
->type
!= arg
)
589 /* Opcode needs rn */
590 if (user
->type
!= arg
- A_REG_M
+ A_REG_N
)
595 printf ("unhandled %d\n", arg
);
598 /* If we did 0, test 1 next, else 0 */
599 arg_to_test
= 1 - arg_to_test
;
609 check (operand
, low
, high
)
610 expressionS
*operand
;
614 if (operand
->X_op
!= O_constant
615 || operand
->X_add_number
< low
616 || operand
->X_add_number
> high
)
618 as_bad ("operand must be absolute in range %d..%d", low
, high
);
620 return operand
->X_add_number
;
625 insert (where
, how
, pcrel
)
630 fix_new_exp (frag_now
,
631 where
- frag_now
->fr_literal
,
641 sh_opcode_info
*opcode
;
645 if (opcode
->arg
[0] == A_BDISP8
)
647 p
= frag_var (rs_machine_dependent
,
648 md_relax_table
[C (COND_JUMP
, COND32
)].rlx_length
,
649 len
= md_relax_table
[C (COND_JUMP
, COND8
)].rlx_length
,
651 immediate
.X_add_symbol
,
652 immediate
.X_add_number
,
654 p
[0] = (opcode
->nibbles
[0] << 4) | (opcode
->nibbles
[1]);
656 else if (opcode
->arg
[0] == A_BDISP12
)
658 p
= frag_var (rs_machine_dependent
,
659 md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_length
,
660 len
= md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_length
,
662 immediate
.X_add_symbol
,
663 immediate
.X_add_number
,
665 p
[0] = (opcode
->nibbles
[0] << 4);
670 /* Now we know what sort of opcodes it is, lets build the bytes -
673 build_Mytes (opcode
, operand
)
674 sh_opcode_info
*opcode
;
675 sh_operand_info
*operand
;
680 char *output
= frag_more (2);
687 for (index
= 0; index
< 4; index
++)
689 sh_nibble_type i
= opcode
->nibbles
[index
];
705 insert (output
+ 1, R_SH_IMM4
, 0);
708 insert (output
+ 1, R_SH_IMM4BY4
, 0);
711 insert (output
+ 1, R_SH_IMM4BY2
, 0);
714 insert (output
+ 1, R_SH_IMM4
, 0);
717 insert (output
+ 1, R_SH_IMM8BY4
, 0);
720 insert (output
+ 1, R_SH_IMM8BY2
, 0);
723 insert (output
+ 1, R_SH_IMM8
, 0);
726 insert (output
+ 1, R_SH_PCRELIMM8BY4
, 1);
729 insert (output
+ 1, R_SH_PCRELIMM8BY2
, 1);
732 printf ("failed for %d\n", i
);
736 output
[0] = (nbuf
[0] << 4) | (nbuf
[1]);
737 output
[1] = (nbuf
[2] << 4) | (nbuf
[3]);
740 /* This is the guts of the machine-dependent assembler. STR points to a
741 machine dependent instruction. This function is supposed to emit
742 the frags/bytes it assembles to.
749 unsigned char *op_start
;
750 unsigned char *op_end
;
751 sh_operand_info operand
[2];
752 sh_opcode_info
*opcode
;
756 /* Drop leading whitespace */
760 /* find the op code end */
761 for (op_start
= op_end
= (unsigned char *) (str
);
764 && !is_end_of_line
[*op_end
] && *op_end
!= ' ';
767 name
[nlen
] = op_start
[nlen
];
774 as_bad ("can't find opcode ");
777 opcode
= (sh_opcode_info
*) hash_find (opcode_hash_control
, name
);
781 as_bad ("unknown opcode");
785 if (opcode
->arg
[0] == A_BDISP12
786 || opcode
->arg
[0] == A_BDISP8
)
788 parse_exp (op_end
+ 1);
789 build_relax (opcode
);
793 if (opcode
->arg
[0] != A_END
)
795 get_operands (opcode
, op_end
, operand
);
797 opcode
= get_specific (opcode
, operand
);
801 /* Couldn't find an opcode which matched the operands */
802 char *where
= frag_more (2);
806 as_bad ("invalid operands for opcode");
810 build_Mytes (opcode
, operand
);
816 DEFUN (tc_crawl_symbol_chain
, (headers
),
817 object_headers
* headers
)
819 printf ("call to tc_crawl_symbol_chain \n");
823 DEFUN (md_undefined_symbol
, (name
),
830 DEFUN (tc_headers_hook
, (headers
),
831 object_headers
* headers
)
833 printf ("call to tc_headers_hook \n");
836 /* Various routines to kill one day */
837 /* Equal to MAX_PRECISION in atof-ieee.c */
838 #define MAX_LITTLENUMS 6
840 /* Turn a string in input_line_pointer into a floating point constant of type
841 type, and store the appropriate bytes in *litP. The number of LITTLENUMS
842 emitted is stored in *sizeP . An error message is returned, or NULL on OK.
845 md_atof (type
, litP
, sizeP
)
851 LITTLENUM_TYPE words
[MAX_LITTLENUMS
];
852 LITTLENUM_TYPE
*wordP
;
884 return "Bad call to MD_NTOF()";
886 t
= atof_ieee (input_line_pointer
, type
, words
);
888 input_line_pointer
= t
;
890 *sizeP
= prec
* sizeof (LITTLENUM_TYPE
);
891 for (wordP
= words
; prec
--;)
893 md_number_to_chars (litP
, (long) (*wordP
++), sizeof (LITTLENUM_TYPE
));
894 litP
+= sizeof (LITTLENUM_TYPE
);
899 CONST
char *md_shortopts
= "";
900 struct option md_longopts
[] = {
901 #define OPTION_RELAX (OPTION_MD_BASE)
902 {"relax", no_argument
, NULL
, OPTION_RELAX
},
903 {NULL
, no_argument
, NULL
, 0}
905 size_t md_longopts_size
= sizeof(md_longopts
);
908 md_parse_option (c
, arg
)
926 md_show_usage (stream
)
931 -relax alter jump instructions for long displacements\n");
934 int md_short_jump_size
;
937 tc_Nout_fix_to_chars ()
939 printf ("call to tc_Nout_fix_to_chars \n");
944 md_create_short_jump (ptr
, from_Nddr
, to_Nddr
, frag
, to_symbol
)
951 as_fatal ("failed sanity check.");
955 md_create_long_jump (ptr
, from_Nddr
, to_Nddr
, frag
, to_symbol
)
957 addressT from_Nddr
, to_Nddr
;
961 as_fatal ("failed sanity check.");
965 called after relaxing, change the frags so they know how big they are
968 md_convert_frag (headers
, fragP
)
969 object_headers
*headers
;
973 unsigned char *buffer
= (unsigned char *) (fragP
->fr_fix
+ fragP
->fr_literal
);
975 int targ_addr
= ((fragP
->fr_symbol
? S_GET_VALUE (fragP
->fr_symbol
) : 0) + fragP
->fr_offset
);
976 switch (fragP
->fr_subtype
)
978 case C (COND_JUMP
, COND8
):
980 /* Get the address of the end of the instruction */
981 int next_inst
= fragP
->fr_fix
+ fragP
->fr_address
+ 2;
983 int disp
= targ_addr
- next_inst
- 2;
986 md_number_to_chars (buffer
+ 1, disp
& 0xff, 1);
992 case C (UNCOND_JUMP
, UNCOND12
):
994 /* Get the address of the end of the instruction */
995 int next_inst
= fragP
->fr_fix
+ fragP
->fr_address
+ 2;
998 int disp
= targ_addr
- next_inst
- 2;
1001 t
= buffer
[0] & 0xf0;
1002 md_number_to_chars (buffer
, disp
& 0xfff, 2);
1003 buffer
[0] = (buffer
[0] & 0xf) | t
;
1009 case C (UNCOND_JUMP
, UNCOND32
):
1010 case C (UNCOND_JUMP
, UNDEF_WORD_DISP
):
1012 /* A jump wont fit in 12 bits, make code which looks like
1020 fragP
->fr_fix
+ fragP
->fr_address
+ UNCOND32_LENGTH
;
1022 int disp
= targ_addr
- next_inst
;
1023 int t
= buffer
[0] & 0x10;
1027 buffer
[0] = 0xa0; /* branch over move and disp */
1029 buffer
[2] = 0xd0 | JREG
; /* Build mov insn */
1032 buffer
[4] = 0; /* space for 32 bit jump disp */
1037 buffer
[10] = 0x40 | JREG
; /* Build jmp @JREG */
1038 buffer
[11] = t
? 0xb : 0x2b;
1040 buffer
[12] = 0x20; /* build nop */
1043 /* Make reloc for the long disp */
1051 fragP
->fr_fix
+= UNCOND32_LENGTH
;
1058 case C (COND_JUMP
, COND12
):
1060 /* A bcond won't fit, so turn it into a b!cond; bra disp; nop */
1062 fragP
->fr_fix
+ fragP
->fr_address
+ 6;
1064 int disp
= targ_addr
- next_inst
;
1066 md_number_to_chars (buffer
+ 2, disp
& 0xfff, 2);
1067 buffer
[0] ^= 0x2; /* Toggle T/F bit */
1068 buffer
[1] = 1; /* branch over jump and nop */
1069 buffer
[2] = (buffer
[2] & 0xf) | 0xa0; /* Build jump insn */
1070 buffer
[4] = 0x20; /* Build nop */
1078 case C (COND_JUMP
, COND32
):
1079 case C (COND_JUMP
, UNDEF_WORD_DISP
):
1081 /* A bcond won't fit and it won't go into a 12 bit
1082 displacement either, the code sequence looks like:
1092 fragP
->fr_fix
+ fragP
->fr_address
+ COND32_LENGTH
;
1094 int disp
= targ_addr
- next_inst
;
1097 buffer
[0] ^= 0x2; /* Toggle T/F bit */
1099 buffer
[1] = 5; /* branch over mov, jump, nop and ptr */
1100 buffer
[2] = 0xd0 | JREG
; /* Build mov insn */
1102 buffer
[4] = 0x40 | JREG
; /* Build jmp @JREG */
1104 buffer
[6] = 0x20; /* build nop */
1106 buffer
[8] = 0; /* space for 32 bit jump disp */
1112 /* Make reloc for the long disp */
1120 fragP
->fr_fix
+= COND32_LENGTH
;
1130 if (donerelax
&& !relax
)
1132 as_warn ("Offset doesn't fit at 0x%x, trying to get to %s+0x%x",
1134 fragP
->fr_symbol
? S_GET_NAME(fragP
->fr_symbol
): "",
1141 DEFUN (md_section_align
, (seg
, size
),
1145 return ((size
+ (1 << section_alignment
[(int) seg
]) - 1)
1146 & (-1 << section_alignment
[(int) seg
]));
1151 md_apply_fix (fixP
, val
)
1155 char *buf
= fixP
->fx_where
+ fixP
->fx_frag
->fr_literal
;
1156 int addr
= fixP
->fx_frag
->fr_address
+ fixP
->fx_where
;
1157 if (fixP
->fx_r_type
== 0)
1159 if (fixP
->fx_size
== 2)
1160 fixP
->fx_r_type
= R_SH_IMM16
;
1162 fixP
->fx_r_type
= R_SH_IMM32
;
1165 switch (fixP
->fx_r_type
)
1169 *buf
= (*buf
& 0xf0) | (val
& 0xf);
1173 *buf
= (*buf
& 0xf0) | ((val
>> 1) & 0xf);
1177 *buf
= (*buf
& 0xf0) | ((val
>> 2) & 0xf);
1192 case R_SH_PCRELIMM8BY4
:
1196 as_warn ("non aligned displacement at %x\n", addr
);
1198 /* val -= (addr + 4); */
1202 as_warn ("pcrel too far at %x\n", addr
);
1207 case R_SH_PCRELIMM8BY2
:
1210 as_bad ("odd displacement at %x\n", addr
);
1211 /* val -= (addr + 4); */
1215 as_warn ("pcrel too far at %x\n", addr
);
1237 DEFUN (md_operand
, (expressionP
), expressionS
* expressionP
)
1241 int md_long_jump_size
;
1244 called just before address relaxation, return the length
1245 by which a fragment must grow to reach it's destination
1248 md_estimate_size_before_relax (fragP
, segment_type
)
1249 register fragS
*fragP
;
1250 register segT segment_type
;
1252 switch (fragP
->fr_subtype
)
1254 case C (UNCOND_JUMP
, UNDEF_DISP
):
1255 /* used to be a branch to somewhere which was unknown */
1256 if (!fragP
->fr_symbol
)
1258 fragP
->fr_subtype
= C (UNCOND_JUMP
, UNCOND12
);
1259 fragP
->fr_var
= md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_length
;
1261 else if (S_GET_SEGMENT (fragP
->fr_symbol
) == segment_type
)
1263 fragP
->fr_subtype
= C (UNCOND_JUMP
, UNCOND12
);
1264 fragP
->fr_var
= md_relax_table
[C (UNCOND_JUMP
, UNCOND12
)].rlx_length
;
1268 fragP
->fr_subtype
= C (UNCOND_JUMP
, UNDEF_WORD_DISP
);
1269 fragP
->fr_var
= md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_length
;
1270 return md_relax_table
[C (UNCOND_JUMP
, UNCOND32
)].rlx_length
;
1276 case C (COND_JUMP
, UNDEF_DISP
):
1277 /* used to be a branch to somewhere which was unknown */
1278 if (fragP
->fr_symbol
1279 && S_GET_SEGMENT (fragP
->fr_symbol
) == segment_type
)
1281 /* Got a symbol and it's defined in this segment, become byte
1282 sized - maybe it will fix up */
1283 fragP
->fr_subtype
= C (COND_JUMP
, COND8
);
1284 fragP
->fr_var
= md_relax_table
[C (COND_JUMP
, COND8
)].rlx_length
;
1286 else if (fragP
->fr_symbol
)
1288 /* Its got a segment, but its not ours, so it will always be long */
1289 fragP
->fr_subtype
= C (COND_JUMP
, UNDEF_WORD_DISP
);
1290 fragP
->fr_var
= md_relax_table
[C (COND_JUMP
, COND32
)].rlx_length
;
1291 return md_relax_table
[C (COND_JUMP
, COND32
)].rlx_length
;
1295 /* We know the abs value */
1296 fragP
->fr_subtype
= C (COND_JUMP
, COND8
);
1297 fragP
->fr_var
= md_relax_table
[C (COND_JUMP
, COND8
)].rlx_length
;
1302 return fragP
->fr_var
;
1305 /* Put number into target byte order */
1308 md_number_to_chars (ptr
, use
, nbytes
)
1313 number_to_chars_bigendian (ptr
, use
, nbytes
);
1317 md_pcrel_from (fixP
)
1320 int gap
= fixP
->fx_size
+ fixP
->fx_where
+ fixP
->fx_frag
->fr_address
- 1 ;
1325 tc_coff_fix2rtype (fix_ptr
)
1328 return fix_ptr
->fx_r_type
;
1332 tc_reloc_mangle (fix_ptr
, intr
, base
)
1334 struct internal_reloc
*intr
;
1338 symbolS
*symbol_ptr
;
1340 symbol_ptr
= fix_ptr
->fx_addsy
;
1342 /* If this relocation is attached to a symbol then it's ok
1344 if (fix_ptr
->fx_r_type
== RELOC_32
)
1346 /* cons likes to create reloc32's whatever the size of the reloc..
1348 switch (fix_ptr
->fx_size
)
1351 intr
->r_type
= R_IMM16
;
1354 intr
->r_type
= R_IMM8
;
1362 intr
->r_type
= fix_ptr
->fx_r_type
;
1365 intr
->r_vaddr
= fix_ptr
->fx_frag
->fr_address
+ fix_ptr
->fx_where
+ base
;
1366 intr
->r_offset
= fix_ptr
->fx_offset
;
1368 /* Turn the segment of the symbol into an offset. */
1373 dot
= segment_info
[S_GET_SEGMENT (symbol_ptr
)].dot
;
1376 intr
->r_offset
+= S_GET_VALUE (symbol_ptr
);
1377 intr
->r_symndx
= dot
->sy_number
;
1381 intr
->r_symndx
= symbol_ptr
->sy_number
;
1386 intr
->r_symndx
= -1;
1391 tc_coff_sizemachdep (frag
)
1394 return md_relax_table
[frag
->fr_subtype
].rlx_length
;