Changeset 2990

Timestamp:

May 31, 2012 7:28:43 AM (12 months ago)

Author:

wmb

Message:

SDHCI - OLPC trac #11844 - fixed SD card detection on XO-1. The chipset's SDHCI controller requires you to turn on some enable bits before the card insertion bits become visible.

File:

• dev/mmc/sdhci/sdhci.fth (modified) (5 diffs)

dev/mmc/sdhci/sdhci.fth

@@ -89 +89 @@
 \ : led-off  ( -- )  h# 28 cb@  1 invert and  h# 28 cb!  ;
 
+\ We leave the remove and insert interrupt enables on because the
+\ hardware has a bug that blocks the card detection status bits
+\ unless the interrupt enables are on.
+0 instance value intstat-count
+: intstat-on  ( -- )
+   intstat-count 0=  if
+      h# 00cb h# 34 cw!  \ normal interrupt status en reg
+      \ Enable: Remove, Insert, DMA Interrupt, Transfer Complete, CMD Complete
+      \ Disable: Card Interrupt, Read Ready, Write Ready, Block Gap
+      h# f1ff h# 36 cw!  \ error interrupt status en reg
+   then
+   intstat-count 1+ to intstat-count
+;
+: intstat-off  ( -- )
+   intstat-count 1- 0 max to intstat-count
+   intstat-count 0=  if
+      h# c0 h# 34 cl!     \ Remove, Insert on, others off
+   then
+;
+
 \ There is no need to use the debounced version (the 3.0000 bits).
 \ We poll for the card when the SDMMC driver opens, rather than
@@ -96 +116 @@
 defer card-inserted?
 : sdhci-card-inserted?  ( -- flag )
+   intstat-on
    get-msecs d# 500 +   begin            ( time-limit )
       \ When the stable bit is set, we can believe the answer
@@ -101 +122 @@
          drop                            ( )
          present-state@ h# 10000 and 0<> ( flag )
+         intstat-off                     ( flag )
          exit                            ( -- flag )
       then                               ( time-limit )
@@ -108 +130 @@
    ." SD Card detect unstable!" cr       ( )
    false                                 ( flag )
+   intstat-off                           ( flag )
 ;
 ' sdhci-card-inserted? to card-inserted?
@@ -170 +193 @@
 
 : data-timeout!  ( n -- )  h# 2e cb!  ;
-
-\ We leave the remove and insert interrupt enables on because the
-\ hardware has a bug that blocks the card detection status bits
-\ unless the interrupt enables are on.
-: intstat-on  ( -- )
-   h# 00cb h# 34 cw!  \ normal interrupt status en reg
-            \ Enable: Remove, Insert, DMA Interrupt, Transfer Complete, CMD Complete
-            \ Disable: Card Interrupt, Read Ready, Write Ready, Block Gap
-   h# f1ff h# 36 cw!  \ error interrupt status en reg
-;
-: intstat-off  ( -- )  h# c0 h# 34 cl!  ;  \ Remove, Insert on, others off
 
 : setup-host  ( -- )