openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r1808 - cpu/x86/pc/olpc/via
by repository service 12 May '10

12 May '10

Author: wmb Date: Wed May 12 10:51:43 2010 New Revision: 1808 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1808 Log: OLPC trac 10128 - added internal SD storage size and check for reasonable OS image size to banner. Added: cpu/x86/pc/olpc/via/banner.fth Modified: cpu/x86/pc/olpc/via/fw.bth Added: cpu/x86/pc/olpc/via/banner.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/banner.fth Wed May 12 10:51:43 2010 (r1808) @@ -0,0 +1,157 @@ +\ See license at end of file +purpose: Banner customization for this system + +headerless + + +: partition-end ( name$ -- false | d.end true ) + open-dev ?dup if ( ihandle ) + >r ( r: ihandle ) + " offset-low" r@ $call-method ( offset.low r: ihandle ) + " offset-high" r@ $call-method ( d.offset r: ihandle ) + " size" r@ $call-method ( d.offset d.size r: ihandle ) + d+ ( d.end r: ihandle ) + r> close-dev ( d.end ) + true ( d.end true ) + else ( ) + false ( false ) + then ( false | d.end true ) +; + +: .storage ( -- ) + " int:0" partition-end if ( d.size ) + d# 200,000,000. d+ ( d.size' ) \ Round up + d# 1,000,000,000 um/mod ( rem Gb ) + nip .d ." GB " ( ) + else ( ) + ." No " ( ) + then ( ) + ." internal storage" ( ) +; + +h# 40 buffer: partition-map +: partition-end ( offset -- sector# ) + partition-map + dup le-l@ ( adr start ) + swap la1+ le-l@ + ( sector# ) +; + +0 value internal-disk-present? +0. 2value internal-disk-size +0. 2value internal-partition-end + +: get-internal-disk-info ( -- ) + " int:0" open-dev ?dup if ( ihandle ) + true to internal-disk-present? ( ihandle ) + >r ( r: ihandle ) + " size" r@ $call-method to internal-disk-size ( r: ihandle ) + + h# 1be. " seek" r@ $call-method drop ( r: ihandle ) + partition-map h# 40 " read" r@ $call-method drop ( r: ihandle ) + r> close-dev ( ) + + 0 ( max-sector ) + h# 40 h# 8 do ( max-sector ) + i partition-end max ( max-sector' ) + h# 10 +loop ( max-sector' ) + dup 0< if ( max-sector' ) + 2drop ( ) + else + d# 512 um* to internal-partition-end + then + else ( ) + false to internal-disk-present? + then +; + +: .storage ( -- ) + get-internal-disk-info ( ) + internal-disk-present? if ( ) + internal-disk-size ( d.size ) + d# 200,000,000. d+ ( d.size' ) \ Round up + d# 1,000,000,000 um/mod ( rem Gb ) + nip .d ." GB " ( ) + else ( ) + ." No " ( ) + then ( ) + ." internal storage" ( ) +; + +: check-internal-partitions ( -- ) + internal-disk-present? 0= if exit then ( ) + internal-partition-end d0= if exit then ( ) + + internal-disk-size internal-partition-end d< if ( ) + red-letters + ." WARNING! OS image larger than internal storage device!" cr + black-letters + exit + then + + internal-partition-end d# 1,000,000,000. d+ internal-disk-size d< if + red-letters + ." WARNING! OS image much smaller than internal storage device" cr + black-letters + then +; + +: .rom ( -- ) + ." OpenFirmware " + \ push-decimal + \ major-release (.) type ." ." minor-release (.) type sub-release type + \ pop-base + \ This is the manufacturing signature +[ifdef] rom-loaded + h# ffff.ffc0 h# 10 type +[then] +; + +: .ec + " ec-name" ['] root-node get-package-property 0= if ( adr len ) + get-encoded-string ." EC Firmware " type + then +; + +: (xbanner-basics) ( -- ) + ?spaces cpu-model type ." , " .memory + ." , " .storage + ." , S/N " " SN" find-tag if type else ." Unknown" then cr + ?spaces .rom ." " .ec cr + check-internal-partitions +; +' (xbanner-basics) to banner-basics + +' (banner-warnings) to banner-warnings + +: stop-auto? ( -- flag ) idprom-valid? 0= auto-boot? and ; + +defer gui-banner ' true to gui-banner +: ?gui-banner ( -- ) + stop-auto? if suppress-auto-boot then + + gui-banner drop +; + +headers +\ 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/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Wed May 12 09:17:16 2010 (r1807) +++ cpu/x86/pc/olpc/via/fw.bth Wed May 12 10:51:43 2010 (r1808) @@ -305,7 +305,7 @@ : user-ok "ok" ; \ This is supposed to check for authorization true value user-mode? -fload ${BP}/cpu/x86/pc/olpc/banner.fth +fload ${BP}/cpu/x86/pc/olpc/via/banner.fth fload ${BP}/ofw/gui/loadmenu.fth patch merge-rect-565 merge-rect merge-cursor \ Hack since we do all our user-level graphics in 565

1 0

[commit] r1807 - cpu/x86
by repository service 12 May '10

12 May '10

Author: wmb Date: Wed May 12 09:17:16 2010 New Revision: 1807 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1807 Log: x86 memory test - Fixed reporting bug - memory bits test failures reported the wrong address and wrong data, and then page faulted. Modified: cpu/x86/memtest.fth Modified: cpu/x86/memtest.fth ============================================================================== --- cpu/x86/memtest.fth Sat May 8 12:06:55 2010 (r1806) +++ cpu/x86/memtest.fth Wed May 12 09:17:16 2010 (r1807) @@ -4,7 +4,7 @@ 3dup lskip ( adr len pattern residue ) dup if ( adr len pattern residue ) ." FAILED - got " ( adr len pattern residue ) - nip >r - + ( adr' ) + nip - + ( adr' ) dup l@ .x ." at " .x cr ( ) true else ( adr len pattern residue )

1 0

[commit] r1806 - cpu/x86/pc/olpc/via
by repository service 08 May '10

08 May '10

Author: rsmith Date: Sat May 8 12:06:55 2010 New Revision: 1806 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1806 Log: Ver q3a39 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Sat May 8 12:06:53 2010 (r1805) +++ cpu/x86/pc/olpc/via/fw-version.fth Sat May 8 12:06:55 2010 (r1806) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 38 +macro: FW_MINOR 39

1 0

[commit] r1805 - cpu/x86/pc/olpc/via
by repository service 08 May '10

08 May '10

Author: rsmith Date: Sat May 8 12:06:53 2010 New Revision: 1805 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1805 Log: Pickup EC Ver 1.9.28 Modified: cpu/x86/pc/olpc/via/ec-version.fth Modified: cpu/x86/pc/olpc/via/ec-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/ec-version.fth Tue May 4 20:17:32 2010 (r1804) +++ cpu/x86/pc/olpc/via/ec-version.fth Sat May 8 12:06:53 2010 (r1805) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 1_9_27 +macro: EC_VERSION 1_9_28 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r1804 - cpu/x86/pc/olpc/via
by repository service 04 May '10

04 May '10

Author: wmb Date: Tue May 4 20:17:32 2010 New Revision: 1804 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1804 Log: OLPC XO-1.5 - checked in some commented-out code to restore additional display register state in resume-from-S3. That new code is unnecessary because the Linux driver does it now. Modified: cpu/x86/pc/olpc/via/startgfxrestore.fth cpu/x86/pc/olpc/via/startmacros.fth Modified: cpu/x86/pc/olpc/via/startgfxrestore.fth ============================================================================== --- cpu/x86/pc/olpc/via/startgfxrestore.fth Tue May 4 18:58:33 2010 (r1803) +++ cpu/x86/pc/olpc/via/startgfxrestore.fth Tue May 4 20:17:32 2010 (r1804) @@ -196,6 +196,96 @@ \ end of lower-power +[ifdef] extra-gfx-restore +\ VT-fixups +seq-table + ae 15 ireg \ 8 bit LUT, enable wrap, 32bpp, extended display enable + 08 16 ireg \ FIFO threshold + 08 1a ireg \ Extended mode memory access enable + 30 1c ireg \ Horizontal display fetch count + 01 1d ireg \ Horizontal display fetch count + 08 22 ireg \ Display queue request expire number +++ + 0f 2a ireg \ LVDS Channel 1 and DVI I/O pad control +++ + 9d 44 ireg \ VCK PLL + 8c 45 ireg \ VCK PLL + 85 46 ireg \ VCK PLL + 9d 4a ireg \ 2nd PLL + 8c 4b ireg \ 2nd PLL + 85 4c ireg \ 2nd PLL + 00 58 ireg \ Display FIFO low threshold select + 00 59 ireg \ clock gating XXX the driver really should gate the clocks +end-table + +\ VT-fixups +crtc-table + 99 00 ireg \ VGA timing stuff + 95 01 ireg \ + 95 02 ireg \ + 1D 03 ireg \ + 97 04 ireg \ + 1B 05 ireg \ + 8E 06 ireg \ + FF 07 ireg \ + 00 08 ireg \ + 60 09 ireg \ + 1E 0a ireg \ + 84 10 ireg \ VGA stuff + 8E 11 ireg \ + 83 12 ireg \ + 58 13 ireg \ + 00 14 ireg \ + 83 15 ireg \ + 8F 16 ireg \ + E3 17 ireg \ + FF 18 ireg \ + 06 33 ireg \ HSYNC adj + 00 34 ireg + 50 35 ireg \ extended overflow + 31 36 ireg \ 01 - monitor control - 30 is DPMS standby state + B8 56 ireg \ Hsync low + C0 57 ireg \ Hsyncend low + 89 5e ireg \ Vsync low + 6C 5f ireg \ Vsyncend all and Vsync overflow + 88 68 ireg \ Display queue depth f, Display queue read threshold 8 + E8 6a ireg \ Enable secondary display - 20 bit set is 8 (not 6) bits for second display LUT + 40 88 ireg \ LVDS sequential + 88 8a ireg \ LCD adjust LP + 00 8b ireg \ LCD power sequence control - ca is default + 00 8c ireg \ LCD power sequence control - ca is default + 00 8d ireg \ LCD power sequence control - ca is default + 00 8e ireg \ LCD power sequence control - ca is default + 00 8f ireg \ LCD power sequence control - 11 is default + 00 90 ireg \ LCD power sequence control - 11 is default + 08 92 ireg \ Read threshold 2 - 00 is default + D0 94 ireg \ 80 is Display Queue depth bit [4], rest is display 2 Expire number bits [6:0] + 22 95 ireg \ Read threshold 1 (bits 6:4) and read threshold 2 (bit 2:0) + 10 99 ireg \ ? LVDS channel 1 function select + 00 9b ireg \ O Digital video Port 1 Function Select 0 !!! setting this to 00 messes up the display +end-table + +grf-table + 40 05 ireg \ graphics mode + 05 06 ireg \ graphics misc + 0F 07 ireg \ color don't care +end-table + +\ Attribute registers +3da port-rb \ reset-attr-addr +10 3c0 port-wb 41 3c0 port-wb \ mode control +11 3c0 port-wb ff 3c0 port-wb \ overscan color +12 3c0 port-wb 0f 3c0 port-wb \ color plane enable +13 3c0 port-wb 00 3c0 port-wb \ horizontal pixel pan +3da port-rb \ reset-attr-addr +20 3c0 port-wb \ palette on + +seq-table + 04 40 ireg \ Pulse LCDCK PLL reset + 00 40 ireg \ Release LCDCK PLL reset +end-table + +cf 3c2 port-wb \ use external clock (MISC register reads at 3cc, writes at 3c2) + +[else] seq-table 9f 4a ireg \ 2nd PLL value 0 0c 4b ireg \ 2nd PLL value 1 @@ -205,6 +295,7 @@ end-table 3cc port-rb 0c bitset 3c2 # dx mov al dx out \ use external clock (MISC register reads at 3cc, writes at 3c2) +[then] 80 17 crt-set \ Release reset Modified: cpu/x86/pc/olpc/via/startmacros.fth ============================================================================== --- cpu/x86/pc/olpc/via/startmacros.fth Tue May 4 18:58:33 2010 (r1803) +++ cpu/x86/pc/olpc/via/startmacros.fth Tue May 4 20:17:32 2010 (r1804) @@ -27,6 +27,7 @@ ; : crtc-table ( -- ) h# 3d4 index-table ; : seq-table ( -- ) h# 3c4 index-table ; +: grf-table ( -- ) h# 3ce index-table ; : seq-setup ( index -- ) [ also assembler ]

1 0

[commit] r1803 - in cpu/x86/pc: . olpc
by repository service 04 May '10

04 May '10

Author: wmb Date: Tue May 4 18:58:33 2010 New Revision: 1803 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1803 Log: Windows support - checked in some experimental code for declaring two different "disk" devices as BIOS HDD device numbers - 0x80 and 0x81 instead of just 0x80. The new code is guarded by "[ifdef] two-bios-disks", which is not defined, so the new code is not active. The experiment was a failed attempt to solve a Windows installation problem that ultimately turned out to be a registry issue rather than a BIOS issue. The code might be useful some day if we ever tried to boot DOS. Modified: cpu/x86/pc/biosints.fth cpu/x86/pc/olpc/xpsecure.fth Modified: cpu/x86/pc/biosints.fth ============================================================================== --- cpu/x86/pc/biosints.fth Mon May 3 06:45:45 2010 (r1802) +++ cpu/x86/pc/biosints.fth Tue May 4 18:58:33 2010 (r1803) @@ -464,7 +464,12 @@ 0 value bios-ih 0 value bios-cdrom-ih +[ifdef] two-bios-disks +0 value bios-disk-ih0 +0 value bios-disk-ih1 +[else] 0 value bios-disk-ih +[then] false value show-reads? -1 value read-match @@ -509,12 +514,26 @@ ; : select-bios-disk ( drive# -- ) +[ifdef] two-bios-disks + case + h# 80 of bios-disk-ih0 endof + h# 81 of bios-disk-ih1 endof + h# 82 of bios-cdrom-ih endof + ( default ) bios-ih swap + endcase + to bios-ih +[else] h# 82 = if bios-cdrom-ih else bios-disk-ih then to bios-ih +[then] ; : check-drive ( -- error? ) show-reads? if ." Drive " rm-dl@ .x then rm-dl@ h# 80 h# 81 between 0= if rm-set-cf 7 rm-ah! true exit then +[ifdef] two-bios-disks + rm-dl@ select-bios-disk +[else] bios-disk-ih to bios-ih +[then] bios-ih 0= dup if rm-set-cf h# aa rm-ah! then ; : lba-check-drive ( -- error? ) @@ -1063,7 +1082,14 @@ populate-memory-map rm-platform-fixup ; -: close-bios-disk ( -- ) bios-disk-ih ?dup if close-dev 0 to bios-disk-ih then ; +: close-bios-disk ( -- ) +[ifdef] two-bios-disks + bios-disk-ih0 ?dup if close-dev 0 to bios-disk-ih0 then + bios-disk-ih0 ?dup if close-dev 0 to bios-disk-ih1 then +[else] + bios-disk-ih ?dup if close-dev 0 to bios-disk-ih then +[then] +; : close-bios-cdrom ( -- ) bios-cdrom-ih ?dup if close-dev 0 to bios-cdrom-ih then ; : close-bios-devices ( -- ) close-bios-disk close-bios-cdrom ; ' close-bios-devices to quiesce-devices @@ -1136,10 +1162,18 @@ true ; : set-hd-boot ( dev$ -- ) +[ifdef] two-bios-disks + open-dev to bios-disk-ih0 +[else] open-dev to bios-disk-ih +[then] 0 to boot-sector# 1 to boot-#sectors h# 80 to bios-boot-dev# +[ifdef] two-bios-disks + bios-disk-ih0 to bios-ih +[else] bios-disk-ih to bios-ih +[then] ; : get-one-sector ( dev$ -- error? ) open-dev to bios-ih @@ -1148,9 +1182,12 @@ close-bios-ih ( #read ) 1 <> ( error? ) ; +: first-partition-bootable? ( -- flag ) + load-base h# 1be + c@ h# 80 = +; : mbr-bootable? ( dev$ -- flag ) get-one-sector if false exit then - load-base h# 1be + c@ h# 80 = + first-partition-bootable? ; : ntfs? ( dev$ -- flag ) @@ -1188,11 +1225,21 @@ to bios-ih bootable-cdrom? if bios-ih to bios-cdrom-ih +[ifdef] two-bios-disks + " ext:0" open-dev ?dup if + to bios-disk-ih1 +[else] " int:0" open-dev ?dup if to bios-disk-ih +[then] else +[ifdef] two-bios-disks + " int:0" open-dev ?dup if + to bios-disk-ih1 +[else] " ext:0" open-dev ?dup if to bios-disk-ih +[then] else ." Can't open SD device. Install from CD-ROM probably won't work." cr then @@ -1200,6 +1247,25 @@ h# 82 to bios-boot-dev# true exit then +[ifdef] two-bios-disks + \ Check for bootable USB FLASH drive and set the SD drive number if possible + load-base 0 1 (bios-read-sectors) 1 = if + first-partition-bootable? if + bios-ih to bios-disk-ih0 + " ext:0" open-dev ?dup if + to bios-disk-ih1 + else + " int:0" open-dev ?dup if + to bios-disk-ih1 + else + ." Can't open SD device. Install from UFD probably won't work." cr + then + then + h# 80 to bios-boot-dev# + true exit + then + then +[then] close-bios-ih then Modified: cpu/x86/pc/olpc/xpsecure.fth ============================================================================== --- cpu/x86/pc/olpc/xpsecure.fth Mon May 3 06:45:45 2010 (r1802) +++ cpu/x86/pc/olpc/xpsecure.fth Tue May 4 18:58:33 2010 (r1803) @@ -21,7 +21,11 @@ ramdisk-base swap move ( ) \ Tell the BIOS INT 13 emulator code to use the ramdisk instead of the SD +[ifdef] two-bios-disks + ramdisk-ih to bios-disk-ih0 +[else] ramdisk-ih to bios-disk-ih +[then] h# 80 to bios-boot-dev# ;

1 0

[commit] r1802 - cpu/x86/pc/olpc/via
by repository service 03 May '10

03 May '10

Author: rsmith Date: Mon May 3 06:45:45 2010 New Revision: 1802 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1802 Log: Add temptest.fth to the firmware build so its active Modified: cpu/x86/pc/olpc/via/fw.bth Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Mon May 3 06:26:39 2010 (r1801) +++ cpu/x86/pc/olpc/via/fw.bth Mon May 3 06:45:45 2010 (r1802) @@ -359,6 +359,7 @@ fload ${BP}/cpu/x86/pc/olpc/via/switches.fth \ Lid and ebook switches fload ${BP}/cpu/x86/pc/olpc/via/leds.fth \ LEDs fload ${BP}/cpu/x86/pc/olpc/via/factory.fth \ Manufacturing tools +fload ${BP}/cpu/x86/pc/olpc/via/temptest.fth \ Add heatspreader test to switches dev \ Pseudo device that appears in the boot order before net booting 0 0 " " " /" begin-package

1 0

[commit] r1801 - cpu/x86/pc/olpc/via
by repository service 03 May '10

03 May '10

Author: rsmith Date: Mon May 3 06:26:39 2010 New Revision: 1801 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1801 Log: q3a38 Release for quanta that contains heatspreader test Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Fri Apr 30 23:00:05 2010 (r1800) +++ cpu/x86/pc/olpc/via/fw-version.fth Mon May 3 06:26:39 2010 (r1801) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 37 +macro: FW_MINOR 38

1 0

[commit] r1800 - cpu/x86/pc/olpc/via
by repository service 30 Apr '10

30 Apr '10

Author: wmb Date: Fri Apr 30 23:00:05 2010 New Revision: 1800 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1800 Log: OLPC XO-1.5 - added heat-spreader temperature test to /switches selftest, suppressed in SMT and FINAL test phases, and added reg properties to /switches and /leds nodes so test-all will run those tests. Modified: cpu/x86/pc/olpc/via/leds.fth cpu/x86/pc/olpc/via/switches.fth cpu/x86/pc/olpc/via/temptest.fth Modified: cpu/x86/pc/olpc/via/leds.fth ============================================================================== --- cpu/x86/pc/olpc/via/leds.fth Fri Apr 30 08:27:41 2010 (r1799) +++ cpu/x86/pc/olpc/via/leds.fth Fri Apr 30 23:00:05 2010 (r1800) @@ -2,6 +2,7 @@ purpose: Driver/selftest for OLPC XO-1.5 LEDs 0 0 " 0" " /" begin-package +0 0 reg \ So test-all will run the test " leds" device-name : open ( -- okay? ) true ; : close ( -- ) ; Modified: cpu/x86/pc/olpc/via/switches.fth ============================================================================== --- cpu/x86/pc/olpc/via/switches.fth Fri Apr 30 08:27:41 2010 (r1799) +++ cpu/x86/pc/olpc/via/switches.fth Fri Apr 30 23:00:05 2010 (r1800) @@ -3,6 +3,7 @@ 0 0 " 0" " /" begin-package " switches" device-name +0 0 reg \ So test-all will run the test : open ( -- okay? ) true ; : close ( -- ) ; : lid? ( -- flag ) h# 48 acpi-l@ h# 80 and 0= ; Modified: cpu/x86/pc/olpc/via/temptest.fth ============================================================================== --- cpu/x86/pc/olpc/via/temptest.fth Fri Apr 30 08:27:41 2010 (r1799) +++ cpu/x86/pc/olpc/via/temptest.fth Fri Apr 30 23:00:05 2010 (r1800) @@ -1,6 +1,7 @@ purpose: Test for heat spreader on OLPC XO-1.5 \ See license at end of file +dev /switches : cold-secs ( n -- ) d# 100 * 0 do safe-idle loop ; : hot-secs ( n -- ) d# 1000 * 0 do ms-factor spins loop ; : temp-rise ( -- delta-degrees ) @@ -21,6 +22,15 @@ then ( fail? ) black-letters ; +: selftest ( -- error? ) + selftest if true exit then + + \ The heat spreader is not attached in SMT test. + \ Final test need to be very fast, and anyway the preceding + \ runin test has already tested the heat spreader + smt-test? final-test? or if false else .temp-rise then +; +dend \ LICENSE_BEGIN \ Copyright (c) 2010 FirmWorks

1 0

[commit] r1799 - dev/via/unichrome
by repository service 30 Apr '10

30 Apr '10

Author: wmb Date: Fri Apr 30 08:27:41 2010 New Revision: 1799 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1799 Log: OLPC trac 10138 - fixed unnecessary screen-clearing when reopening the display device for the purpose of doing a selftest of either the screen or the camera. The fix works by avoiding the installation of the terminal emulator package on nested opens. Modified: dev/via/unichrome/accel2d.fth dev/via/unichrome/unichrome.fth Modified: dev/via/unichrome/accel2d.fth ============================================================================== --- dev/via/unichrome/accel2d.fth Fri Apr 30 08:25:30 2010 (r1798) +++ dev/via/unichrome/accel2d.fth Fri Apr 30 08:27:41 2010 (r1799) @@ -45,8 +45,9 @@ : copy16>32 ( src-base src-pitch src-x,y dst-x,y w,h -- ) wh! dst! src! ( src-base src-pitch ) - h# 30 mmio@ >r 8 mmio@ >r h# 1c mmio@ >r ( src-base src-pitch ) - 3 rshift bytes/line 3 rshift wljoin 8 mmio! ( src-base ) + h# 30 mmio@ >r 8 mmio@ >r ( src-base src-pitch r: reg30 reg8 ) + 3 rshift r@ lwsplit nip wljoin 8 mmio! ( src-base r: reg30 reg8 ) + h# 1c mmio@ >r ( src-base ) fb-va - 3 rshift h# 1c mmio! ( ) h# 8000.0041 h# 30 mmio! ( ) \ Expand RGB565 to ARGB8888 h# cc.00.00.01 0 mmio! ( ) \ Perform BLT Output = source Modified: dev/via/unichrome/unichrome.fth ============================================================================== --- dev/via/unichrome/unichrome.fth Fri Apr 30 08:25:30 2010 (r1798) +++ dev/via/unichrome/unichrome.fth Fri Apr 30 08:27:41 2010 (r1799) @@ -1237,9 +1237,6 @@ 0 value open-count : display-remove ( -- ) - open-count 1 = if - then - open-count 1- 0 max to open-count ; : display-install ( -- ) @@ -1252,7 +1249,6 @@ default-font set-font set-terminal fb-va to frame-buffer-adr - open-count 1+ to open-count ; : display-selftest ( -- failed? ) false ; @@ -1261,6 +1257,18 @@ ' display-remove is-remove ' display-selftest is-selftest +\ The previous value of "open" is created automatically by the execution +\ of "is-install". We need this override to prevent auto-clearing the +\ screen when the display node is re-opened during the camera selftest. +: open ( -- okay? ) + open-count 0= if open else true then + dup if open-count 1+ to open-count then +; +: close ( -- ) + open-count 1 = if close then + open-count 1- 0 max to open-count +; + " display" device-type " ISO8859-1" encode-string " character-set" property 0 0 encode-bytes " iso6429-1983-colors" property

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware