Nyacc bad escape sequence compiling tcc.h: is_space

[Jan Nieuwenhuizen <janneke@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1795 bytes --]

Matt Wette writes:

Hi Matt!

The second tcc.c problem looks like a silly little bug?

Backtrace:
          19 (apply-smob/1 #<catch-closure db0080>)
In ice-9/boot-9.scm:
    713:2 18 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)
In ice-9/eval.scm:
    619:8 17 (_ #(#(#<directory (guile-user) e61140>)))
    619:8 16 (_ #(#(#(#(#(#(#(#(#(#(#(#(#(#(#(#<directory (mescc) e…>) …) …) …) …) …) …) …) …) …) …) …) …) …) …))
In ice-9/ports.scm:
   462:17 15 (call-with-output-file _ _ #:binary _ #:encoding _)
    473:4 14 (with-output-to-port _ _)
In ice-9/eval.scm:
   293:34 13 (_ #(#(#<directory (mescc) e87aa0> () () ("bugs/is-space.c") #f #f () ())))
In srfi/srfi-1.scm:
   592:17 12 (map1 ("bugs/is-space.c"))
In ice-9/ports.scm:
   444:17 11 (call-with-input-file _ _ #:binary _ #:encoding _ #:guess-encoding _)
    469:4 10 (with-input-from-port _ _)
In /tmp/guix-build-mes-git.drv-0/source/module/language/c99/compiler.mes:
  2194:16  9 (_)
    99:21  8 (c99-input->ast #:defines _ #:includes _)
In ice-9/boot-9.scm:
    837:9  7 (catch c99-error #<procedure 101b500 at nyacc/lang/c99/parser.scm:78:3 ()> #<procedure 7f1929b30…> …)
In nyacc/lang/c99/parser.scm:
    85:13  6 (_)
In ice-9/boot-9.scm:
    837:9  5 (catch nyacc-error #<procedure 1043f60 at nyacc/lang/c99/parser.scm:42:7 ()> #<procedure 7f1929b…> …)
In nyacc/parse.scm:
   104:35  4 (_ #<procedure 1017c00 at nyacc/lang/c99/body.scm:304:8 ()> #:debug _)
In nyacc/lang/c99/body.scm:
   537:21  3 (_)
   519:16  2 (read-token)
In nyacc/lex.scm:
   274:28  1 (read-c-chlit _)
In unknown file:
           0 (scm-error misc-error #f "~A" ("bad escape sequence") #f)

ERROR: In procedure scm-error:
ERROR: bad escape sequence


[-- Attachment #2: is-space.c --]
[-- Type: application/octet-stream, Size: 237 bytes --]

static inline int is_space(int ch) {
#if !__MESC__
  // cannot enable this...
  return ch == ' ' || ch == '\t' || ch == '\v' || ch == '\f' || ch == '\r';
  return ch == ' ' || ch == '\t';
#else
  return ch == ' ' || ch == '\t';
#endif
}

[-- Attachment #3: Type: text/plain, Size: 152 bytes --]


-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com