Changeset 2981


Ignore:
Timestamp:
May 18, 2012, 1: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.