Avoid complaining from strlen

`
2015-09-21 17:05:36 -05:00
parent 880a9989c3
commit 4336b2ba88
469 changed files with 207364 additions and 9193 deletions
--- a/C/computils.c
+++ b/C/computils.c
@@ -605,7 +605,6 @@ ShowOp (compiler_vm_op ic, const char *f, struct PSEUDO *cpc)

 	  case 'a':
 	  case 'n':
-	  case 'S':
 	    Yap_DebugPlWrite ((Term) arg);
 	    break;
 	  case 'b':
@@ -674,6 +673,10 @@ ShowOp (compiler_vm_op ic, const char *f, struct PSEUDO *cpc)
 	    Yap_DebugErrorPutc ('A');
 	    Yap_DebugPlWrite (MkIntTerm (rn));
 	    break;
+	  case 'S':
+	    Yap_DebugErrorPutc ('S');
+	    Yap_DebugPlWrite (MkIntTerm (rn));
+	    break;
 	  case 'h':
 	    {
 	      CELL my_arg = *cptr++;