[OpenBIOS] [commit] r1219 - trunk/openbios-devel/forth/device

[repository service]

Author: mcayland
Date: Mon Aug 19 14:58:00 2013
New Revision: 1219
URL: http://tracker.coreboot.org/trac/openbios/changeset/1219

Log:
Add peek/poke hooks

Add hooks for hardware specific fault handlers for the peek and poke commands.

Signed-off-by: Bob Breuer <breuerr at mc.net>
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at ilande.co.uk>

Modified:
   trunk/openbios-devel/forth/device/other.fs

Modified: trunk/openbios-devel/forth/device/other.fs
==============================================================================
--- trunk/openbios-devel/forth/device/other.fs	Mon Aug 19 14:57:56 2013	(r1218)
+++ trunk/openbios-devel/forth/device/other.fs	Mon Aug 19 14:58:00 2013	(r1219)
@@ -20,28 +20,38 @@
 
 \ 5.3.7.1 Peek/poke 
 
+defer (peek)
+:noname
+  execute true
+; to (peek)
+
 : cpeek    ( addr -- false | byte true )
-  c@ true
+  ['] c@ (peek)
   ;
 
 : wpeek    ( waddr -- false | w true )
-  w@ true
+  ['] w@ (peek)
   ;
 
 : lpeek    ( qaddr -- false | quad true )
-  l@ true
+  ['] l@ (peek)
   ;
   
+defer (poke)
+:noname
+  execute true
+; to (poke)
+
 : cpoke    ( byte addr -- okay? )
-  c! true
+  ['] c! (poke)
   ;
   
 : wpoke    ( w waddr -- okay? )
-  w! true
+  ['] w! (poke)
   ;
   
 : lpoke    ( quad qaddr -- okay? )
-  l! true
+  ['] l! (poke)
   ;