Initial revision

1987-11-20 10:41:03 +00:00
parent bffdad9cdc
commit 9947059dcc
123 changed files with 3451 additions and 0 deletions
--- a/util/ceg/ce_back/obj_back/relocation.c
+++ b/util/ceg/ce_back/obj_back/relocation.c
@@ -0,0 +1,91 @@
+#include <system.h>
+#include <out.h>
+#include "back.h"
+
+#define seg_index( s)	( nname - SEGBSS - 1 + s)
+
+long 		get4(); 
+long 		base_adres();
+extern short    get2();
+extern char 	get1();
+
+
+do_local_relocation()
+{
+	register struct outrelo *ptr;
+	register int s;
+	
+	for ( ptr = reloc_info; ptr < relo; ptr++) {
+		s = ptr->or_nami;
+		if ( symbol_table[ s].on_valu  != -1) 
+			do_relo(&symbol_table[ s], ptr);
+	}
+}
+
+
+do_relo(np,rp)
+struct outname *np;
+struct outrelo *rp;
+{
+	long oldval,newval;
+	char *sect;
+
+	switch( rp->or_sect - S_MIN) {
+		case SEGTXT:
+			sect = text_area;
+			break;
+		case SEGCON:
+			sect = data_area;
+			break;
+		default:
+			fprint( STDERR, 
+				"do_local_relo(): bad section %d\n",
+				 rp->or_sect - S_MIN);
+			break;
+	}
+
+	/* nu reloceren tov het segment waar het symbool in voorkomt! */
+	if  ( rp->or_type & RELO4) {
+		oldval = get4( sect, rp->or_addr);
+		newval = oldval + np->on_valu;
+		put4( sect, rp->or_addr, newval);
+
+		rp->or_nami = seg_index(
+			 ( symbol_table[ rp->or_nami].on_type & S_TYP) - S_MIN);
+	}
+	else if  ( rp->or_type & RELO2) {
+		oldval = (long) get2( sect, rp->or_addr);
+		newval = oldval + np->on_valu;
+		put2( sect, rp->or_addr, (int) newval);
+
+		rp->or_nami = seg_index(
+			 ( symbol_table[ rp->or_nami].on_type & S_TYP) - S_MIN);
+	}
+	else if  ( rp->or_type & RELO1) {
+		oldval = (long) get1( sect, rp->or_addr);
+		newval = oldval + np->on_valu;
+		put1( sect, rp->or_addr, (char) newval);
+
+		rp->or_nami = seg_index(
+			 ( symbol_table[ rp->or_nami].on_type & S_TYP) - S_MIN);
+	}
+	else
+		print( STDERR, "do_relo() : bad relocation size\n");
+	 /* print( 
+		"reloc %s adrr=%ld sect=%ld oldval=%ld newval=%ld def = %ld\n",
+		np->on_foff+string_area, rp->or_addr, rp->or_sect-S_MIN, oldval, 		newval, np->on_valu);
+	  */
+	 
+}
+
+
+long base_adres( seg)
+int seg;
+{
+	switch ( seg) {
+		case SEGTXT : return( 0);
+		case SEGCON  : return( text-text_area);
+		case SEGBSS  : return( text-text_area + data-data_area);
+		default : fprint( STDERR, "base_adres() wrong seg %d\n", seg);
+	}
+}