Changeset 3194


Ignore:
Timestamp:
Aug 17, 2012, 7:27:24 PM (20 months ago)
Author:
wmb
Message:

OLPC - made a new word $call-dcon to break the assumption that the DCON driver is part of the screen node. It is implemented differently on different platforms, depending on the actual location of the DCON driver. For old platforms, it's equivalent to $call-screen .

Location:
cpu
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/mmp2/dramrecal.fth

    r3049 r3194  
    768768      dcon-freeze 
    769769   else 
    770       " dcon-suspend" $call-screen 
     770      " dcon-suspend" $call-dcon 
    771771   then 
    772772   " sleep" $call-screen 
     
    794794      dcon-unfreeze 
    795795   else 
    796       " dcon-resume" $call-screen 
     796      " dcon-resume" $call-dcon 
    797797   then 
    798798; 
  • cpu/arm/olpc/build-fw.fth

    r3181 r3194  
    4242: install-abort  ( -- )  ['] poll-tty d# 100 alarm  ; 
    4343 
     440 value dcon-ih 
     45: $call-dcon  ( ... -- ... )   dcon-ih $call-method  ; 
     46 
    44470 value keyboard-ih 
    4548 
     
    172175 
    173176: olpc-reset-all  ( -- ) 
    174    " screen" " dcon-off" ['] execute-device-method catch if 
    175       2drop 2drop 
    176    then 
     177   " dcon-off" $call-dcon 
    177178   ec-power-cycle 
    178179   begin  wfi  again 
     
    511512 
    512513: console-start  ( -- ) 
     514   " /dcon" open-dev to dcon-ih 
    513515   install-mux-io 
    514516   cursor-off 
  • cpu/x86/pc/olpc/fw.bth

    r3021 r3194  
    305305   time&date .date space .time  ."  UTC" cr 
    306306; 
     307 
     308\ The DCON methods are in the screen node on this system 
     309: $call-dcon  ( ... -- ... )   screen-ih $call-method  ; 
    307310 
    308311fload ${BP}/cpu/x86/pc/olpc/banner.fth 
  • cpu/x86/pc/olpc/gui.fth

    r2752 r3194  
    356356; 
    357357 
    358 : frozen?  ( -- flag )  " vga?" $call-screen 0=  ; 
    359 : dcon-freeze    ( -- )  0 " set-source" $call-screen d# 30 ms  ; 
    360 : dcon-unfreeze  ( -- )  1 " set-source" $call-screen d# 30 ms  ; 
     358: frozen?  ( -- flag )  " vga?" $call-dcon 0=  ; 
     359: dcon-freeze    ( -- )  0 " set-source" $call-dcon d# 30 ms  ; 
     360: dcon-unfreeze  ( -- )  1 " set-source" $call-dcon d# 30 ms  ; 
    361361 
    362362\ === Stuff moved from security.fth === 
     
    381381   background-rgb  rgb>565  progress-xy ?adjust d# 500 d# 100  " fill-rectangle" $call-screen 
    382382   d# 588 d# 638 set-icon-xy  " bigdot" show-icon 
    383    " vga?" $call-screen  0=  if  dcon-unfreeze dcon-freeze  then 
     383   frozen?  if  dcon-unfreeze dcon-freeze  then 
    384384; 
    385385 
  • cpu/x86/pc/olpc/via/fw.bth

    r3052 r3194  
    359359 
    360360fload ${BP}/cpu/x86/pc/olpc/setwp.fth 
     361 
     362\ The DCON methods are in the screen node on this system 
     363: $call-dcon  ( ... -- ... )   screen-ih $call-method  ; 
    361364 
    362365fload ${BP}/cpu/x86/pc/olpc/via/help.fth     \ Help for common user tasks 
Note: See TracChangeset for help on using the changeset viewer.