r427 - dev/olpc/cafecamera

Author: wmb
Date: 2007-05-30 08:11:53 +0200 (Wed, 30 May 2007)
New Revision: 427

Modified:
   dev/olpc/cafecamera/cafecamera.fth
Log:
OLPC cafecamera.fth - Trac #1580 - Must reinit camera on every open,
now that we power it off on close.

Modified: dev/olpc/cafecamera/cafecamera.fth
===================================================================
--- dev/olpc/cafecamera/cafecamera.fth	2007-05-30 06:10:31 UTC (rev 426)
+++ dev/olpc/cafecamera/cafecamera.fth	2007-05-30 06:11:53 UTC (rev 427)
@@ -22,7 +22,6 @@
 : my-w@  ( offset -- w )  my-space +  " config-w@" $call-parent  ;
 : my-w!  ( w offset -- )  my-space +  " config-w!" $call-parent  ;

-true value first-open?
 0 instance value chip

: cl!  ( l adr -- )  chip + rl!  ;
@@ -467,9 +466,8 @@

: open  ( -- flag )
    map-regs
-   first-open?  if  init  then
+   init
    ov7670-detected? 0=  if  unmap-regs false exit  then
-   false to first-open? 
    alloc-dma-bufs
    read-setup
    true