#include <em.h>
#include <out.h>
#include <system.h>
#include "mach.h"
#include "back.h"
#include "header.h"

/* There are two forms of relocation program counter relative or
 * absolute.
 */

reloc4( sym, off, pcrel)
char *sym;
arith off;
int pcrel;
{
	if ( relo - reloc_info >= size_reloc)
 		mem_relo();

	relo->or_type = RELO4;
#ifdef BYTES_REVERSED			
	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++;
}