gdb/fortran: Add test for module variables in 'info variables' output

[deliverable/binutils-gdb.git] / opcodes / s12z-opc.c

diff --git a/opcodes/s12z-opc.c b/opcodes/s12z-opc.c
index e40f90e43ff6da0a6ced6b3e215d71906159978b..eef097dfd48667d1add51d9a0137a294d3d2bfe4 100644 (file)
--- a/opcodes/s12z-opc.c
+++ b/opcodes/s12z-opc.c
@@ -2292,7 +2292,7 @@ shift_discrim (struct mem_read_abstraction_base *mra,  enum optr hint ATTRIBUTE_
   uint8_t sb;
   int status = mra->read (mra, 0, 1, &sb);
   if (status < 0)
-    return status;
+    return OP_INVALID;
 
   enum SB_DIR  dir = (sb & 0x40) ? SB_LEFT : SB_RIGHT;
   enum SB_TYPE type = (sb & 0x80) ? SB_ARITHMETIC : SB_LOGICAL;