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

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

[Dave Brolley]

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

Hi,

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

Dave


[-- Attachment #2: sid-model.ChangeLog --]
[-- Type: text/plain, Size: 129 bytes --]

2006-11-07  Dave Brolley  <brolley@redhat.com>

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


[-- Attachment #3: sid-model.patch.txt --]
[-- Type: text/plain, Size: 911 bytes --]

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))))