Changeset 2981

Timestamp:

May 18, 2012 3:54:44 AM (12 months ago)

Author:

quozl

Message:

OLPC XO-1 - tidy "test /memory" display by copying from XO-1.75 implementation

File:

• cpu/x86/pc/olpc/probemem.fth (modified) (2 diffs)

cpu/x86/pc/olpc/probemem.fth

@@ -75 +75 @@
 ;
 
+: show-line  ( adr len -- )  (cr type  3 spaces  kill-line  ;
+' show-line to show-status
+
 [ifndef] 8u.h
 : 8u.h  ( n -- )  push-hex (.8) type pop-base  ;
@@ -88 +91 @@
       2dup over swap 3 mmu-map           ( rem$ chunk$ )
 [then]
-      memory-test-suite  if  2drop true exit  then       ( rem$ )
+      memory-test-suite                  ( rem$ status )
+      0<>  if
+         "     !!Failed!!" show-status  cr ( rem$ )
+         2drop true exit
+      else
+         "     Succeeded" show-status  cr  ( rem$ )
+      then
    repeat  drop
    false