2008-06-17 Dave Brolley <brolley@redhat.com>

        * cpu/xstormy16.cpu (h-pc): Add a set handler.
        (h-gr): Likewise.

diff --git a/ChangeLog b/ChangeLog
index e632f0e72901dd3e3041689a631a14bf740a8459..aec6131325870717353bc1ced5dad242f1c0b84a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-17  Dave Brolley  <brolley@redhat.com>
+
+       * cpu/xstormy16.cpu (h-pc): Add a set handler.
+       (h-gr): Likewise.
+
 2007-11-13  Dave Brolley  <brolley@redhat.com>
 
        * cgen-intrinsics.scm (load-files): Remove reference to fixup.scm.

diff --git a/cpu/xstormy16.cpu b/cpu/xstormy16.cpu
index e87effe84d31867e8e816a06d0e1c02893dd2338..d2c78174a0b52e0d5b7f7d06f5c76911cd20c400 100644 (file)
--- a/cpu/xstormy16.cpu
+++ b/cpu/xstormy16.cpu
@@ -1,5 +1,5 @@
 ; xstormy16 CPU core description. -*- Scheme -*-
-; Copyright (C) 2001, 2002, 2003 Red Hat, Inc.
+; Copyright (C) 2001, 2002, 2003, 2006 Red Hat, Inc.
 ; This file is part of CGEN.
 ; See file COPYING.CGEN for details.
 
@@ -68,7 +68,13 @@
 \f
 ; Hardware elements.
 
-(dsh h-pc "program counter" (PC) (pc))
+(define-hardware
+  (name h-pc)
+  (comment "program counter")
+  (attrs PC)
+  (type pc)
+  (set (newval) (c-call "h_pc_set_handler" newval))
+)
 
 (define-keyword
   (name gr-names)
@@ -92,7 +98,7 @@
   (type register WI (16))
   (indices extern-keyword gr-names)
   (get (index) (and #xFFFF (raw-reg h-gr index)))
-  (set (index newval) (set (raw-reg h-gr index) (and #xFFFF newval)))
+  (set (index newval) (c-call "h_gr_set_handler" index newval))
 )
 
 (define-hardware