[COMMITTED] ras: support IOS_ENDIAN_* as `v' operands to instructions

[Jose E. Marchesi]

2021-12-27  Jose E. Marchesi  <jemarch@gnu.org>

        * libpoke/ras: Support IOS_ENDIAN_LSB and IOS_ENDIAN_MSB as
        instruction values (v).
---
 ChangeLog   | 5 +++++
 libpoke/ras | 6 +++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e00fa631..d067a924 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2021-12-27  Jose E. Marchesi  <jemarch@gnu.org>
+
+       * libpoke/ras: Support IOS_ENDIAN_LSB and IOS_ENDIAN_MSB as
+       instruction values (v).
+
 2021-12-27  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
 
        * libpoke/pvm.jitter (state-struct-backing-c): Remove `canary` field.
diff --git a/libpoke/ras b/libpoke/ras
index 58c5a95d..5c755d71 100755
--- a/libpoke/ras
+++ b/libpoke/ras
@@ -224,6 +224,9 @@
 # Exception Arguments are written like PVM_E_*.  See the file pvm.h
 # for the set of valid exceptions.
 #
+# Endianness specifiers are written like IOS_ENDIAN_LSB, meaning
+# little-endian, and IOS_ENDIAN_MSB, meaning big-endian.
+#
 # PVM values passed as arguments to the current entity are written
 # like #this.
 #
@@ -505,6 +508,7 @@ BEGIN {
     string_re="(\"([^\"]|\")*\")"
     var_re="(\\$[a-zA-Z][0-9a-zA-Z_]*)"
     expt_re="(PVM_E_[A-Z_]+)"
+    endian_re="(IOS_ENDIAN_LSB|IOS_ENDIAN_MSB)"
     anode_re="@([a-zA-Z_][0-9a-zA-Z_]*)"
     aval_re="#([a-zA-Z_][0-9a-zA-Z_]*)"
     marg_re= "(@|#)([a-zA-Z_][0-9a-zA-Z_]*)"
@@ -560,7 +564,7 @@ BEGIN {
                         break
                     case "v":
                         re="(" null_re "|" int_re "|" long_re \
-                           "|" string_re "|" expt_re "|" aval_re ")"
+                           "|" string_re "|" expt_re "|" endian_re "|" aval_re 
")"
                         break
                     case "r":
                         break
-- 
2.11.0