[commit] r1778 - cpu/x86/pc/olpc

[repository service]

Author: rsmith
Date: Mon Apr  5 22:21:48 2010
New Revision: 1778
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1778

Log:
Revert charge-log

- This does not seem to have been tested enough.  Its broken. Remove
it for now to get the pre-release out and fix it later.

Modified:
   cpu/x86/pc/olpc/charge.fth

Modified: cpu/x86/pc/olpc/charge.fth
==============================================================================
--- cpu/x86/pc/olpc/charge.fth	Mon Apr  5 21:44:04 2010	(r1777)
+++ cpu/x86/pc/olpc/charge.fth	Mon Apr  5 22:21:48 2010	(r1778)
@@ -39,20 +39,21 @@
 h# 100 buffer: fname-buf 
  
 :  charge-log-append ( adr len -- )
-      fname-buf $append-open
+      fname-buf count $append-open
       ftype
       fcr
       ofd @ fclose
 ;
 
+[ifdef] notdef
 : charge-log ( "filename" -- ) \ filename is optional
    ['] safe-parse-word catch if 
-      fname-buf place 
+      " sd:\charge.log" fname-buf place
    else 
-   " sd:\charge.log" fname-buf place
+      fname-buf place 
    then  
    ." Logging to: " fname-buf count type cr
-   fname-buf $new-file  
+   fname-buf count $new-file  
    ofd @ fclose
 
    " chg_log Ver: 1.0" charge-log-append
@@ -79,6 +80,7 @@
       key?
    until key drop
 ;
+[then]
 
 : watch-charge ( -- )
    \ 5 seconds is the default unless the user sets wake-delay