fix

2018-07-03 10:45:22 +01:00
parent 48540ccc78
commit 21a7a3ef44
10 changed files with 13 additions and 14 deletions
--- a/os/readterm.c
+++ b/os/readterm.c
@@ -1396,7 +1396,7 @@ static Int start_mega(USES_REGS1) {
      Term rval;
      int sno;
      encoding_t l = ENC_ISO_UTF8;
-      sno = Yap_open_buf_read_stream((char *)s, strlen((const char *)s+1), &l,
+      sno = Yap_open_buf_read_stream((char *)s, strlen(s)+1, &l,
 				     MEM_BUF_USER, Yap_LookupAtom(Yap_StrPrefix(s,16)), TermNone );

      GLOBAL_Stream[sno].status |= CloseOnException_Stream_f;