From 58b529d5f266ad61cc874a48de2afff455867afe Mon Sep 17 00:00:00 2001 From: brolley Date: Tue, 7 Nov 2006 21:12:08 +0000 Subject: [PATCH] 2006-11-07 Dave Brolley * sid-model.scm (gen-model-unit-fn-decl): Use symbol->string where necessary. --- cgen/ChangeLog | 5 +++++ cgen/sid-model.scm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/cgen/ChangeLog b/cgen/ChangeLog index acba9e5532..5f4b8dab3f 100644 --- a/cgen/ChangeLog +++ b/cgen/ChangeLog @@ -1,3 +1,8 @@ +2006-11-07 Dave Brolley + + * sid-model.scm (gen-model-unit-fn-decl): Use symbol->string where + necessary. + 2006-10-18 Dave Brolley * Contribute the following changes: diff --git a/cgen/sid-model.scm b/cgen/sid-model.scm index 850c28eaf7..a3829961ac 100644 --- a/cgen/sid-model.scm +++ b/cgen/sid-model.scm @@ -85,7 +85,7 @@ static const MACH_IMP_PROPERTIES @cpu@_imp_properties = (gen-c-args (map (lambda (arg) (string-append (mode:c-type (mode:lookup (cadr arg))) - " /*" (car arg) "*/")) + " /*" (symbol->string (car arg)) "*/")) (find (lambda (arg) ; Indices of scalars not passed. (not (null? (cdr arg)))) -- 2.11.0