X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=parmode.h;h=8aed03ca35e9cf6566a2efe691096fcfa06d6f27;hb=refs%2Ftags%2Fv2.1.9;hp=a0cc8de0ec6b19f8a02247437678d7a32fe17001;hpb=cbc8347d4ffea164ca05b03e4e3be39945be8777;p=rmac

diff --git a/parmode.h b/parmode.h
index a0cc8de..8aed03c 100644
--- a/parmode.h
+++ b/parmode.h
@@ -1162,16 +1162,15 @@ CHK_FOR_DISPn:
 			// expr[.L]
 			AMn = ABSL;
 
-			// When PC relative is enforced, check for any symbols that aren't
-			// EQU'd, in this case it's an illegal mode
-			if ((CHECK_OPTS(OPT_PC_RELATIVE)) && (AnEXATTR & REFERENCED) && (AnEXATTR & DEFINED) && (!(AnEXATTR & EQUATED)))
-				return error("relocation not allowed");
-
 			// .L is forced here
 			if (*tok == DOTL)
 			{
+				// When PC relative is enforced, check for any symbols that aren't
+				// EQU'd, in this case it's an illegal mode
+				if ((CHECK_OPTS(OPT_PC_RELATIVE)) && (AnEXATTR & (DEFINED | REFERENCED | EQUATED) == (DEFINED | REFERENCED)))
+					return error("relocation not allowed when o10 is enabled9");
+
 				tok++;
-				AMn = ABSL;
 			}
 			else
 			{