Changeset 3362

Timestamp:

Oct 12, 2012 12:53:24 AM (7 months ago)

Author:

wmb

Message:

SDHCI - fixed ok copy int:\foo int:\bar which was hanging

File:

• dev/mmc/sdhci/slot.fth (modified) (1 diff)

dev/mmc/sdhci/slot.fth

@@ -3 +3 @@
 0 " #address-cells" integer-property
 0 " #size-cells" integer-property
+[ifdef] my-clock-on
+0 value open-count
+[then]
+
 : open  
-   [ifdef] my-clock-on  my-clock-on  [then]
+[ifdef] my-clock-on
+   open-count 0=  if  my-clock-on  then
+   open-count 1+ to open-count
+[then]
    true
 ;
 : close
-   [ifdef] my-clock-off  my-clock-off  [then]
+[ifdef] my-clock-off
+   open-count 1 =  if  my-clock-off  then
+   open-count 1- 0 max  to open-count
+[then]
 ;