[patch][commit] String Handling in sid-model.scm

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[patch][commit] String Handling in sid-model.scm

Dave Brolley-2
Hi,

Guile 1.6.4 was choking because of a missing symbol->string call. I've
committed the attached patch.

Dave


2006-11-07  Dave Brolley  <[hidden email]>

        * sid-model.scm (gen-model-unit-fn-decl): Use symbol->string where
        necessary.


Index: cgen/sid-model.scm
===================================================================
RCS file: /cvs/src/src/cgen/sid-model.scm,v
retrieving revision 1.9
diff -c -p -r1.9 sid-model.scm
*** cgen/sid-model.scm 9 May 2006 18:33:04 -0000 1.9
--- cgen/sid-model.scm 7 Nov 2006 21:10:05 -0000
*************** static const MACH_IMP_PROPERTIES @cpu@_i
*** 85,91 ****
     (gen-c-args (map (lambda (arg)
        (string-append
  (mode:c-type (mode:lookup (cadr arg)))
! " /*" (car arg) "*/"))
      (find (lambda (arg)
      ; Indices of scalars not passed.
      (not (null? (cdr arg))))
--- 85,91 ----
     (gen-c-args (map (lambda (arg)
        (string-append
  (mode:c-type (mode:lookup (cadr arg)))
! " /*" (symbol->string (car arg)) "*/"))
      (find (lambda (arg)
      ; Indices of scalars not passed.
      (not (null? (cdr arg))))