1987-11-20 10:41:03 +00:00
|
|
|
#include <em.h>
|
|
|
|
|
#include <out.h>
|
|
|
|
|
#include <system.h>
|
|
|
|
|
#include "mach.h"
|
|
|
|
|
#include "back.h"
|
|
|
|
|
#include "header.h"
|
|
|
|
|
|
1987-11-25 13:54:01 +00:00
|
|
|
/* There are two forms of relocation program counter relative or
|
|
|
|
|
* absolute.
|
|
|
|
|
*/
|
|
|
|
|
|
1987-11-20 10:41:03 +00:00
|
|
|
reloc4( sym, off, pcrel)
|
|
|
|
|
char *sym;
|
|
|
|
|
arith off;
|
|
|
|
|
int pcrel;
|
|
|
|
|
{
|
|
|
|
|
if ( relo - reloc_info >= size_reloc)
|
|
|
|
|
mem_relo();
|
|
|
|
|
|
|
|
|
|
relo->or_type = RELO4;
|
1987-11-25 13:54:01 +00:00
|
|
|
#ifdef BYTES_REVERSED
|
1987-11-20 10:41:03 +00:00
|
|
|
relo->or_type |= RELBR;
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef WORDS_REVERSED
|
|
|
|
|
relo->or_type |= RELWR;
|
|
|
|
|
#endif
|
|
|
|
|
relo->or_type |= ( pcrel) ? RELPC : S_UND;
|
|
|
|
|
relo->or_sect = S_MIN + conv_seg( cur_seg);
|
|
|
|
|
relo->or_nami = find_sym(sym, REFERENCE);
|
|
|
|
|
relo->or_addr = cur_value();
|
|
|
|
|
gen4( (pcrel) ? off - ( cur_value() + 4) : off);
|
|
|
|
|
|
|
|
|
|
/* print( "r %s r %ld s %d in %d adrr %ld off %ld\n",
|
|
|
|
|
sym, pcrel, cur_seg, relo->or_nami, relo->or_addr,
|
|
|
|
|
(pcrel) ? off-cur_value() : off);
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
relo++;
|
|
|
|
|
}
|
