Changeset 3194


Ignore:
Timestamp:
Aug 17, 2012, 5:27:24 PM (3 years 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.