r1541 - dev ofw/core

Author: wmb
Date: 2009-12-06 14:56:04 +0100 (Sun, 06 Dec 2009)
New Revision: 1541

Modified:
   dev/ps2mouse.fth
   ofw/core/muxdev.fth
Log:
Fixed a couple of innocuous stack bugs that caused extra stack data during compilation.

Modified: dev/ps2mouse.fth
===================================================================
--- dev/ps2mouse.fth	2009-12-06 06:49:17 UTC (rev 1540)
+++ dev/ps2mouse.fth	2009-12-06 13:56:04 UTC (rev 1541)
@@ -36,7 +36,7 @@
 : put-get-data  ( cmd -- data )  " put-get-data" $call-parent  ;
 : send-cmd  ( cmd -- )  " put-data" $call-parent  ;

-0 instance variable #retries
+instance variable #retries
 : cmd?  ( cmd -- error? )
    dup put-get-data                   ( cmd response )
    begin                              ( cmd response )

Modified: ofw/core/muxdev.fth
===================================================================
--- ofw/core/muxdev.fth	2009-12-06 06:49:17 UTC (rev 1540)
+++ ofw/core/muxdev.fth	2009-12-06 13:56:04 UTC (rev 1541)
@@ -5,7 +5,8 @@
 new-device
 " mux" device-name

-0 instance variable first-device
+instance variable first-device
+0 first-device !

struct
    /n field >link