Changeset 2981


Ignore:
Timestamp:
May 18, 2012, 3:54:44 AM (3 years ago)
Author:
quozl
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/probemem.fth

    r1422 r2981  
    7575; 
    7676 
     77: show-line  ( adr len -- )  (cr type  3 spaces  kill-line  ; 
     78' show-line to show-status 
     79 
    7780[ifndef] 8u.h 
    7881: 8u.h  ( n -- )  push-hex (.8) type pop-base  ; 
     
    8891      2dup over swap 3 mmu-map           ( rem$ chunk$ ) 
    8992[then] 
    90       memory-test-suite  if  2drop true exit  then       ( rem$ ) 
     93      memory-test-suite                  ( rem$ status ) 
     94      0<>  if 
     95         "     !!Failed!!" show-status  cr ( rem$ ) 
     96         2drop true exit 
     97      else 
     98         "     Succeeded" show-status  cr  ( rem$ ) 
     99      then 
    91100   repeat  drop 
    92101   false 
Note: See TracChangeset for help on using the changeset viewer.