openfirmware

openfirmware@openfirmware.info

3007 discussions

r1263 - dev/mmc/sdhci
by svn＠openfirmware.info 31 Jul '09

31 Jul '09

Author: wmb Date: 2009-07-31 20:45:34 +0200 (Fri, 31 Jul 2009) New Revision: 1263 Modified: dev/mmc/sdhci/sdhci.fth dev/mmc/sdhci/sdmmc.fth Log: SDHCI/SDMMC driver - reordered closing sequence so deferred writes get flushed before turning things off, thus avoiding command timeouts on close. Modified: dev/mmc/sdhci/sdhci.fth =================================================================== --- dev/mmc/sdhci/sdhci.fth 2009-07-31 18:44:18 UTC (rev 1262) +++ dev/mmc/sdhci/sdhci.fth 2009-07-31 18:45:34 UTC (rev 1263) @@ -756,8 +756,12 @@ ; : detach-card ( -- ) + intstat-on + wait-write-done + intstat-off card-clock-off card-power-off + unmap-regs ; : attach-sdio-card ( -- okay? ) @@ -841,11 +845,8 @@ : close ( -- ) open-count 1 = if - intstat-on - wait-write-done scratch-buf d# 64 " dma-free" $call-parent then - unmap-regs open-count 1- 0 max to open-count ; Modified: dev/mmc/sdhci/sdmmc.fth =================================================================== --- dev/mmc/sdhci/sdmmc.fth 2009-07-31 18:44:18 UTC (rev 1262) +++ dev/mmc/sdhci/sdmmc.fth 2009-07-31 18:45:34 UTC (rev 1263) @@ -57,9 +57,10 @@ ; : close ( -- ) - " detach-card" $call-parent label-package close-package deblocker close-package + \ Close packages first in case of delayed write flush + " detach-card" $call-parent ; : block-size ( -- n ) h# 200 ;

1 0

r1262 - forth/kernel
by svn＠openfirmware.info 31 Jul '09

31 Jul '09

Author: wmb Date: 2009-07-31 20:44:18 +0200 (Fri, 31 Jul 2009) New Revision: 1262 Modified: forth/kernel/kernel.fth Log: Kernel - fixed problem in file buffering that caused failures with "fputs" when the size of the input array was larger than the distance from the file buffer to the end of address space. Modified: forth/kernel/kernel.fth =================================================================== --- forth/kernel/kernel.fth 2009-07-31 09:27:04 UTC (rev 1261) +++ forth/kernel/kernel.fth 2009-07-31 18:44:18 UTC (rev 1262) @@ -2120,7 +2120,7 @@ \ Advance the file pointer to the new buffer starting position bufaddr> fstart 2! ( end curr aln-len ) - bfbase @ + bflimit @ umin bfend ! ( end curr ) \ Room for new bytes + bfbase @ + bflimit @ min bfend ! ( end curr ) \ Room for new bytes bfbase @ dup bftop ! bfcurrent ! ( end curr ) \ No valid bytes yet false ;

1 0

r1261 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 31 Jul '09

31 Jul '09

Author: wmb Date: 2009-07-31 11:27:04 +0200 (Fri, 31 Jul 2009) New Revision: 1261 Added: cpu/x86/pc/olpc/via/cmos.fth Modified: cpu/x86/pc/olpc/via/devices.fth Log: Via - fixed CMOS RAM high ban access (see trac 9431). Added: cpu/x86/pc/olpc/via/cmos.fth =================================================================== --- cpu/x86/pc/olpc/via/cmos.fth (rev 0) +++ cpu/x86/pc/olpc/via/cmos.fth 2009-07-31 09:27:04 UTC (rev 1261) @@ -0,0 +1,50 @@ +\ See license at end of file +purpose: Access to CMOS RAM on Via VX855 + +: cmos-setup ( index -- data-reg ) + dup h# 80 and if + h# 74 pc! h# 75 + else + h# 70 pc! h# 71 + then +; + +: cmos@ ( index -- b ) lock[ cmos-setup pc@ ]unlock ; + +: cmos! ( b index -- ) lock[ cmos-setup pc! ]unlock ; + +: bios-checksum-bad? ( -- flag ) + 0 h# 2d h# 10 do i cmos@ + loop ( sum ) + h# 2f cmos@ h# 2e cmos@ bwjoin <> +; + +\ Zero is the right checksum for zero data +: init-bios-cmos ( -- ) h# 30 h# 10 do 0 i cmos! loop ; + +stand-init: CMOS + bios-checksum-bad? if init-bios-cmos then +; + +\ LICENSE_BEGIN +\ Copyright (c) 2006 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END Modified: cpu/x86/pc/olpc/via/devices.fth =================================================================== --- cpu/x86/pc/olpc/via/devices.fth 2009-07-29 21:45:59 UTC (rev 1260) +++ cpu/x86/pc/olpc/via/devices.fth 2009-07-31 09:27:04 UTC (rev 1261) @@ -160,7 +160,7 @@ \ XXX remove the OS file commands from tools.dic fload ${BP}/ofw/core/filecmds.fth \ File commands: dir, del, ren, etc. -fload ${BP}/cpu/x86/pc/olpc/cmos.fth \ CMOS RAM indices are 1f..ff , above RTC +fload ${BP}/cpu/x86/pc/olpc/via/cmos.fth \ CMOS RAM indices are 1f..ff , above RTC .( XXX Not clearing CMOS) cr patch noop init-bios-cmos stand-init

1 0

r1260 - cpu/x86/pc/olpc
by svn＠openfirmware.info 29 Jul '09

29 Jul '09

Author: wmb Date: 2009-07-29 23:45:59 +0200 (Wed, 29 Jul 2009) New Revision: 1260 Modified: cpu/x86/pc/olpc/fw.bth Log: OLPC trac 9362 - setup-smbios for Linux boots for XO-1. Modified: cpu/x86/pc/olpc/fw.bth =================================================================== --- cpu/x86/pc/olpc/fw.bth 2009-07-29 01:11:44 UTC (rev 1259) +++ cpu/x86/pc/olpc/fw.bth 2009-07-29 21:45:59 UTC (rev 1260) @@ -631,6 +631,8 @@ probe-usb " probe+" do-drop-in + setup-smbios \ Must be done after build-date is defined via do-drop-in + interpreter-init ?scan-nand ?diags

1 0

r1259 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 29 Jul '09

29 Jul '09

Author: wmb Date: 2009-07-29 03:11:44 +0200 (Wed, 29 Jul 2009) New Revision: 1259 Modified: cpu/x86/pc/olpc/via/smbios.fth Log: Via - The SMBIOS system-info table said OLPC 1 instead of OLPC 1.5 . Modified: cpu/x86/pc/olpc/via/smbios.fth =================================================================== --- cpu/x86/pc/olpc/via/smbios.fth 2009-07-29 01:10:30 UTC (rev 1258) +++ cpu/x86/pc/olpc/via/smbios.fth 2009-07-29 01:11:44 UTC (rev 1259) @@ -415,7 +415,7 @@ get-uuid r> 8 + swap move ( adr ) +OLPC " XO" +smbios$ - " 1" +smbios$ \ Version + " 1.5" +smbios$ \ Version " SN" get-tag$ +smbios$ end-smbios-table

1 0

r1258 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 29 Jul '09

29 Jul '09

Author: wmb Date: 2009-07-29 03:10:30 +0200 (Wed, 29 Jul 2009) New Revision: 1258 Modified: cpu/x86/pc/olpc/via/probemem.fth Log: OLPC trac #9401 - Via - Fixed test-all crash by removing redundant mmu-map from memory node selftest method in probemem.fth Modified: cpu/x86/pc/olpc/via/probemem.fth =================================================================== --- cpu/x86/pc/olpc/via/probemem.fth 2009-07-29 01:08:57 UTC (rev 1257) +++ cpu/x86/pc/olpc/via/probemem.fth 2009-07-29 01:10:30 UTC (rev 1258) @@ -93,9 +93,7 @@ begin ?dup while 2 decode-ints swap ( rem$ chunk$ ) 2dup .chunk ( rem$ chunk$ ) -[ifdef] virtual-mode - 2dup over swap 3 mmu-map ( rem$ chunk$ ) -[then] + \ We maintain a 1-1 convenience mapping so explicit mapping is unnecessary memory-test-suite if 2drop true exit then ( rem$ ) repeat drop false

1 0

r1257 - cpu/x86/pc/olpc/via dev/hdaudio
by svn＠openfirmware.info 29 Jul '09

29 Jul '09

Author: wmb Date: 2009-07-29 03:08:57 +0200 (Wed, 29 Jul 2009) New Revision: 1257 Modified: cpu/x86/pc/olpc/via/addrs.fth dev/hdaudio/core.fth Log: Via - Fixed test /audio Modified: cpu/x86/pc/olpc/via/addrs.fth =================================================================== --- cpu/x86/pc/olpc/via/addrs.fth 2009-07-28 04:19:31 UTC (rev 1256) +++ cpu/x86/pc/olpc/via/addrs.fth 2009-07-29 01:08:57 UTC (rev 1257) @@ -36,7 +36,7 @@ h# 18.0000 constant heap-size -h# 20.0000 constant /dma-extra \ In case the firmware region isn't enough +h# 40.0000 constant /dma-extra \ In case the firmware region isn't enough /fw-ram /dma-extra + constant dma-size \ We let the DMA area overlap the FW area fw-pa /dma-extra - constant dma-base Modified: dev/hdaudio/core.fth =================================================================== --- dev/hdaudio/core.fth 2009-07-28 04:19:31 UTC (rev 1256) +++ dev/hdaudio/core.fth 2009-07-29 01:08:57 UTC (rev 1257) @@ -78,12 +78,11 @@ \ \\ Stream Descriptors \ Default: 48kHz 16bit stereo -1 value scale-factor -0 value sample-base -0 value sample-mul -0 value sample-div -1 value sample-format -2 value #channels +0 instance value sample-base +0 instance value sample-mul +0 instance value sample-div +1 instance value sample-format +2 instance value #channels : stream-format ( -- u ) sample-base d# 14 lshift ( acc ) @@ -221,9 +220,17 @@ ; defer playback-alarm +0 value alarmed? -: install-playback-alarm ( -- ) ['] playback-alarm d# 20 alarm ; -: uninstall-playback-alarm ( -- ) ['] playback-alarm d# 0 alarm ; +: install-playback-alarm ( -- ) + true to alarmed? ['] playback-alarm d# 20 alarm +; +: uninstall-playback-alarm ( -- ) + alarmed? if + ['] playback-alarm d# 0 alarm + false to alarmed? + then +; \ \ Device open and close @@ -232,11 +239,9 @@ : init-codec ( -- ) detect-codec open-codec ; : close-controller ( -- ) reset unmap-regs ; -: open ( -- flag ) init-controller init-codec true ; -: close ( -- ) uninstall-playback-alarm close-codec close-controller ; +d# 48.000 instance value sample-rate +1 instance value scale-factor -d# 48.000 value sample-rate - : low-rate? ( Hz ) dup d# 48.000 < swap d# 44.100 <> and ; : set-sample-rate ( Hz -- ) @@ -255,6 +260,20 @@ then ; +0 value open-count +: open ( -- flag ) + open-count 0= if init-controller then + init-codec + open-count 1+ to open-count + true +; +: close ( -- ) + open-count 1 = if + uninstall-playback-alarm close-codec close-controller + then + open-count 1- 0 max to open-count +; + \ \ Streams \ \\ Sound buffer @@ -400,7 +419,7 @@ : steps/dB ( -- #steps ) step-size 4 * ; : dB>steps ( dB -- #steps ) -4 * step-size / ; -: step# ( dB -- step ) dB>steps 0dB-step + ; +: dB>step# ( dB -- step ) dB>steps 0dB-step + ; \ \\ Playback @@ -409,16 +428,17 @@ : open-out ( -- ) 4 to sd# 48kHz - upsampling? if scale-factor upsample then ( adr len ) ; : audio-out ( adr len -- actual ) + dup >r + upsampling? if scale-factor upsample then ( adr len ) install-sound-buffer ( ) setup-bdl setup-stream enable-codec-playback start-stream - /sound-buffer ( actual ) + r> ( actual ) ; : release-sound-buffer ( -- ) @@ -449,7 +469,7 @@ : wait-sound ( -- ) ; \ sound stops with asynchronous alarm handler -: set-volume ( dB -- ) dac to node step# output-gain ; +: set-volume ( dB -- ) dac to node dB>step# output-gain ; \ \\ Recording

1 0

r1256 - ofw/inet
by svn＠openfirmware.info 28 Jul '09

28 Jul '09

Author: wmb Date: 2009-07-28 06:19:31 +0200 (Tue, 28 Jul 2009) New Revision: 1256 Modified: ofw/inet/ip.fth Log: IP stack - fixed bug in broadcast-ip-addr? introduced by a recent checkin. Modified: ofw/inet/ip.fth =================================================================== --- ofw/inet/ip.fth 2009-07-28 01:17:16 UTC (rev 1255) +++ ofw/inet/ip.fth 2009-07-28 04:19:31 UTC (rev 1256) @@ -78,9 +78,9 @@ \ Matches either h# ffffffff or h# 0 or subnet-specific broadcast addr : broadcast-ip-addr? ( adr-buf -- flag ) - dup broadcast-ip-addr ip= - swap def-broadcast-ip ip= or - over unknown-ip-addr? or + dup broadcast-ip-addr ip= ( adr-buf flag ) + over def-broadcast-ip ip= or ( adr-buf flag ) + swap unknown-ip-addr? or ( flag ) ; : netmask ( -- 'ip )

1 0

r1255 - cpu/x86/pc/olpc
by svn＠openfirmware.info 28 Jul '09

28 Jul '09

Author: wmb Date: 2009-07-28 03:17:16 +0200 (Tue, 28 Jul 2009) New Revision: 1255 Modified: cpu/x86/pc/olpc/fw.bth Log: Fixed load order in XO-1 fw.bth. Modified: cpu/x86/pc/olpc/fw.bth =================================================================== --- cpu/x86/pc/olpc/fw.bth 2009-07-28 01:16:15 UTC (rev 1254) +++ cpu/x86/pc/olpc/fw.bth 2009-07-28 01:17:16 UTC (rev 1255) @@ -348,10 +348,10 @@ fload ${BP}/cpu/x86/pc/olpc/biosresume.fth fload ${BP}/cpu/x86/pc/olpc/setwp.fth +fload ${BP}/cpu/x86/pc/olpc/sound.fth fload ${BP}/cpu/x86/pc/olpc/security.fth fload ${BP}/ofw/gui/ofpong.fth fload ${BP}/cpu/x86/pc/olpc/life.fth -fload ${BP}/cpu/x86/pc/olpc/sound.fth [ifdef] wlan-wackup fload ${BP}/cpu/x86/pc/olpc/wlantest.fth [then]

1 0

r1254 - cpu/x86/pc/olpc
by svn＠openfirmware.info 28 Jul '09

28 Jul '09

Author: wmb Date: 2009-07-28 03:16:15 +0200 (Tue, 28 Jul 2009) New Revision: 1254 Modified: cpu/x86/pc/olpc/HOWTO-keyjector cpu/x86/pc/olpc/security.fth Log: Fixed commentary typos. Tip o' the hat to James Cameron. Modified: cpu/x86/pc/olpc/HOWTO-keyjector =================================================================== --- cpu/x86/pc/olpc/HOWTO-keyjector 2009-07-24 19:41:31 UTC (rev 1253) +++ cpu/x86/pc/olpc/HOWTO-keyjector 2009-07-28 01:16:15 UTC (rev 1254) @@ -1,6 +1,6 @@ A keyjector is an intermediate firmware release that installs additional customer-specific security keys in manufacturing data. -OLPC signs is so it can be auto-reflashed. When it starts, it inserts +OLPC signs it so it can be auto-reflashed. When it starts, it inserts the new keys, then replaces itself with a higher-rev firmware version so it doesn't run again. Modified: cpu/x86/pc/olpc/security.fth =================================================================== --- cpu/x86/pc/olpc/security.fth 2009-07-24 19:41:31 UTC (rev 1253) +++ cpu/x86/pc/olpc/security.fth 2009-07-28 01:16:15 UTC (rev 1254) @@ -282,7 +282,7 @@ then ; -\ break$ splits a string into an initial substring of length n +\ cut$ splits a string into an initial substring of length n \ (head$) and the residual substring (tail$). If the input \ string is shorter than n, head$ is the input string and tail$ is \ the null string.

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware