[bug-mes] Compilation error with mescc - unhandled exception:not-a-number:(#\h)

[Danny Milosavljevic]

Hi,

I've been trying to fix some test failures on wip-arm, and one that I can't fix 
says:

$ cat mescc-lib/lib/tests/scaffold/55-char-array.log
less_punhandled exception:not-a-number:(#\h)
Backtrace:
  #<#<<record-type> <frame> (procedure)> <frame> (lambda (source-files) 
((lambda (infos) ((lambda () (if (if (#<variable pair?> s-files) (#<variable 
pair?> infos) #f) (#<variable error> mixing source and object not supported: 
source-files s-files)) (if (#<variable pair?> s-files) ((lambda () (M1->hex2 
options s-files)))) (if (#<variable pair?> infos) ((lambda () (infos->hex2 
options hex2-file-name infos)))) hex2-file-name))) (#<variable map> (lambda 
(g190) (#<variable file->info> options g190)) source-files)))>
  #<#<<record-type> <frame> (procedure)> <frame> #<closure map (f h . t)>>
  #<#<<record-type> <frame> (procedure)> <frame> (lambda (foo) ((lambda (r) 
((lambda () (#<variable set-current-input-port> save) r))) (thunk)))>
  #<#<<record-type> <frame> (procedure)> <frame> (lambda () (if verbose? 
((lambda () (#<variable stderr> compiling: input
) (set! mescc:trace mescc:trace-verbose)))) ((lambda (info) (clean-info info)) 
(ast->info o info)))>
  #<#<<record-type> <frame> (procedure)> <frame> #<closure *closure* (lst1 
result)>>
  #<#<<record-type> <frame> (procedure)> <frame> (lambda (info) ((lambda (info) 
((lambda (locals) ((lambda (local) ((lambda (count) ((lambda (reg-size) 
((lambda (stack) ((lambda () (if (if stack (#<variable getenv> MESC_DEBUG) #f) 
(#<variable stderr>         stack: ~a
 stack)) (#<variable clone> info #:function #f #:globals (#<variable append> 
(#<variable .statics> info) (#<variable .globals> info)) #:statics (quote ()) 
#:functions (#<variable append> (#<variable .functions> info) (#<variable list> 
(#<variable cons> name (#<variable make-function> name type (assert-return 
(#<variable .text> info)))))))))) (if count (#<variable *> count reg-size) 
#f))) (#<variable ->size> * info))) (#<variable and=>> local (#<variable 
compose> #<variable local:id> #<variable cdr>)))) (if (#<variable pair?> 
locals) (#<variable car> locals) #f))) (#<variable .locals> info))) (#<variable 
ast->info> statement info)))>
  #<#<<record-type> <frame> (procedure)> <frame> (lambda (locals) ((lambda 
(info) ((lambda () (#<variable clone> info #:locals locals)))) (ast-list->info 
_ info)))>
  #<#<<record-type> <frame> (procedure)> <frame> #<closure *closure* (lst1 
result)>>
  #<#<<record-type> <frame> (procedure)> <frame> #<closure *closure* (lst1 
result)>>
  #<#<<record-type> <frame> (procedure)> <frame> #<closure *closure* (lst1 lst2 
result)>>
[...]
  #<#<<record-type> <frame> (procedure)> <frame> (lambda (info) (#<variable 
append-text> info (wrap-as (#<variable as> info (quote value->r) char))))>
  #<#<<record-type> <frame> (procedure)> <frame> core:apply>
  #<#<<record-type> <frame> (procedure)> <frame> (lambda (r) (if (#<variable <> 
v 0) (#<variable list> (#<variable list> (#<variable list> (quote #:immediate1) 
(#<variable -> -1 v)) (#<variable string-append> mvn____% r ,$i8))) (#<variable 
list> (#<variable list> (#<variable list> (quote #:immediate1) v) (#<variable 
string-append> mov____$i8,% r)))))>
  #<#<<record-type> <frame> (procedure)> <frame> #<#<<record-type> <builtin> 
(name arity address)> <builtin> < -1 84076>>
FAIL lib/tests/scaffold/55-char-array.c (exit status: 1)

(Commit 8b957584c25f2aba2d8e59f8e9b6871b888338e4)

Hmm?

pgpucFc2xHxlR.pgp
Description: OpenPGP digital signature