From 780e40c1f78b7c31c0446d069819003b11c24044 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eswenson@intertrust.com>
Date: Thu, 7 Apr 2022 13:57:28 -0700
Subject: [PATCH] Updated MGPRIM as per RRS to fix CORD function.

---
 src/rrs/{mgprim.urs008 => mgprim.urs009} | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
 rename src/rrs/{mgprim.urs008 => mgprim.urs009} (99%)

diff --git a/src/rrs/mgprim.urs008 b/src/rrs/mgprim.urs009
similarity index 99%
rename from src/rrs/mgprim.urs008
rename to src/rrs/mgprim.urs009
index 8e53e414..25eda4a6 100644
--- a/src/rrs/mgprim.urs008
+++ b/src/rrs/mgprim.urs009
@@ -111,7 +111,8 @@ COMSWITCH
 	#DECL((X T1 L H) FIX
 	      (VALUE) ATOM)
 	<SET T1 <- .X <* </ .X 8192> 8192>>>
-	<COND (<L? .T1 .0><SET T1 <+ .T1 16384>>)>
+	;" fix for  parse error in MDL56 "
+	<COND (<L? .T1 0.0><SET T1 <+ .T1 16384>>)>
 	<SET H </ .T1 128>>
 	<SET L <- .T1 <* .H 128>>>
 	<MIGSSEND .H .L>