X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=eagen0.c;h=2df5eceea09d11eb470232e8796d48c950bca594;hp=1d94c077cf49b8d7424f9ba1b5447daca78f2642;hb=fbbe9b115f949735421485513154ce8abb8453eb;hpb=2e916a913fcc2650a85fa1f1b96b74abdda9ef9e

diff --git a/eagen0.c b/eagen0.c
index 1d94c07..2df5ece 100644
--- a/eagen0.c
+++ b/eagen0.c
@@ -326,6 +326,10 @@ int eaNgen(WORD siz)
 	case ABSL:
 		if (w) // Defined
 		{
+			if (optim_pc)
+				if (aNexattr&(DEFINED | REFERENCED | EQUATED) == DEFINED | REFERENCED)
+					return error("relocation not allowed");
+
 			if (tdb)
 				MarkRelocatable(cursect, sloc, tdb, MLONG, NULL);