openfirmware June 2011

openfirmware@openfirmware.info

3 participants
87 discussions

[commit] r2253 - cpu/arm/olpc/1.75
by repository service 07 Jun '11

07 Jun '11

Author: quozl Date: Wed Jun 8 01:39:13 2011 New Revision: 2253 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2253 Log: OLPC XO-1.75 - enable telnetd Modified: cpu/arm/olpc/1.75/olpc.bth Modified: cpu/arm/olpc/1.75/olpc.bth ============================================================================== --- cpu/arm/olpc/1.75/olpc.bth Tue Jun 7 22:41:07 2011 (r2252) +++ cpu/arm/olpc/1.75/olpc.bth Wed Jun 8 01:39:13 2011 (r2253) @@ -102,9 +102,9 @@ 0 [if] " ${BP}/dev/hdaudio/build/hdaudio.fc" " class040300" $add-deflated-dropin +[then] " ${BP}/ofw/inet/telnetd.fth" " telnetd" $add-deflated-dropin -[then] \ " ${BP}/cpu/x86/pc/olpc/images/warnings.565" " warnings.565" $add-deflated-dropin " ${BP}/cpu/x86/pc/olpc/images/lightdot.565" " lightdot.565" $add-deflated-dropin

1 0

[commit] r2252 - cpu/arm/olpc/1.75
by repository service 07 Jun '11

07 Jun '11

Author: wmb Date: Tue Jun 7 22:41:07 2011 New Revision: 2252 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2252 Log: OLPC XO-1.75 trac #10973 - Fixed RTC register scrambling. Modified: cpu/arm/olpc/1.75/rtc.fth Modified: cpu/arm/olpc/1.75/rtc.fth ============================================================================== --- cpu/arm/olpc/1.75/rtc.fth Tue Jun 7 09:39:17 2011 (r2251) +++ cpu/arm/olpc/1.75/rtc.fth Tue Jun 7 22:41:07 2011 (r2252) @@ -33,12 +33,12 @@ : bcd-time&date ( -- s m h d m y century ) set-address [ifdef] cl2-a1 - 7 0 smb-read-n ( s m h dow d m y ) + 9 0 smb-read-n ( s m h dow d m y control c ) [else] - 0 1 7 twsi-get ( s m h dow d m y ) + 0 1 9 twsi-get ( s m h dow d m y control c ) [then] - 3 roll drop ( s m h dow d m y ) - d# 20 + nip ( s m h dow d m y c ) + 4 roll drop ( s m h d m y c ) ; : bcd! ( n offset -- ) swap >bcd swap rtc! ; @@ -50,7 +50,7 @@ d# 100 * + \ Merge century with year ; : set-time ( s m h d m y -- ) - d# 100 /mod h# 1a bcd! 9 bcd! 8 bcd! 7 bcd! 4 bcd! 2 bcd! 0 bcd! + d# 100 /mod h# 8 bcd! 6 bcd! 5 bcd! 4 bcd! 2 bcd! 1 bcd! 0 bcd! ; : selftest ( -- flag )

1 0

[commit] r2251 - cpu/arm/olpc/1.75
by repository service 07 Jun '11

07 Jun '11

Author: quozl Date: Tue Jun 7 09:39:17 2011 New Revision: 2251 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2251 Log: OLPC XO-1.75 A2 A3 - Remove delay on access to external SD now that discharge switches are in place. " t( dir ext:\ )t " shows 562ms before this patch, and 94ms after this patch. Even more time is saved when a directory is accessed. Has no effect on internal SD. #10512. Breaks A1 external SD for some cards, but we are no longer building for A1 and a workaround can be used prior to access: " dev /sd d# 250 to power-off-time " Modified: cpu/arm/olpc/1.75/sdhci.fth Modified: cpu/arm/olpc/1.75/sdhci.fth ============================================================================== --- cpu/arm/olpc/1.75/sdhci.fth Mon Jun 6 18:49:08 2011 (r2250) +++ cpu/arm/olpc/1.75/sdhci.fth Tue Jun 7 09:39:17 2011 (r2251) @@ -5,6 +5,7 @@ fload ${BP}/cpu/arm/olpc/1.75/sdregs.fth fload ${BP}/dev/mmc/sdhci/sdhci.fth + d# 1 to power-off-time \ A2 and A3 have turn-off clamps \ true to avoid-high-speed? hex

1 0

[commit] r2250 - forth/wrapper
by repository service 06 Jun '11

06 Jun '11

Author: wmb Date: Mon Jun 6 18:49:08 2011 New Revision: 2250 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2250 Log: Wrapper - fixed alignment and endianness issue introduced by svn 2182. It worked fine when building on an x86 host, which is little-endian and alignment-agnostic. It failed on a little-endian, alignment-required ARM host, and would have failed on a big-endian host. Modified: forth/wrapper/wrapper.c Modified: forth/wrapper/wrapper.c ============================================================================== --- forth/wrapper/wrapper.c Mon Jun 6 03:46:57 2011 (r2249) +++ forth/wrapper/wrapper.c Mon Jun 6 18:49:08 2011 (r2250) @@ -2390,9 +2390,16 @@ crc = lbflip(crc); inlen = lbflip(inlen); #endif - *(unsigned long *)&outbuf[10 + datalen + 0] = crc; - *(unsigned long *)&outbuf[10 + datalen + 4] = inlen; - return (10 + datalen + 8); + /* The CRC and input length are little-endian, not necessarily aligned */ + outbuf[10 + datalen] = crc & 0xff; + outbuf[11 + datalen] = (crc>>8) & 0xff; + outbuf[12 + datalen] = (crc>>16) & 0xff; + outbuf[13 + datalen] = (crc>>24) & 0xff; + outbuf[14 + datalen] = inlen & 0xff; + outbuf[15 + datalen] = (inlen>>8) & 0xff; + outbuf[16 + datalen] = (inlen>>16) & 0xff; + outbuf[17 + datalen] = (inlen>>24) & 0xff; + return (18 + datalen); } INTERNAL long

1 0

[commit] r2249 - cpu/arm
by repository service 06 Jun '11

06 Jun '11

Author: wmb Date: Mon Jun 6 03:46:57 2011 New Revision: 2249 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2249 Log: OLPC XO-1.75 - Now that the vector table is not in the available property - thus preventing memory test from zapping it - the code that looks for the available memory size must accept a memory node starting at 0x1000 instead of at 0. Modified: cpu/arm/linux.fth Modified: cpu/arm/linux.fth ============================================================================== --- cpu/arm/linux.fth Mon Jun 6 03:45:12 2011 (r2248) +++ cpu/arm/linux.fth Mon Jun 6 03:46:57 2011 (r2249) @@ -18,7 +18,7 @@ " available" rot get-package-property abort" No memory node available property" ( $ ) \ Find the memory piece that starts at 0 begin dup 8 >= while ( $ ) - decode-int 0= if ( $ ) \ Found the one we want + decode-int h# 1000 u<= if ( $ ) \ Found the one we want decode-int ( $ limit ) nip nip exit then ( $ )

1 0

[commit] r2248 - cpu/arm
by repository service 06 Jun '11

06 Jun '11

Author: wmb Date: Mon Jun 6 03:45:12 2011 New Revision: 2248 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2248 Log: OLPC XO-1.75 - fixed build problem (checked in mmuparams.fth). Added: cpu/arm/mmuparams.fth Added: cpu/arm/mmuparams.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmuparams.fth Mon Jun 6 03:45:12 2011 (r2248) @@ -0,0 +1,11 @@ +\ Defined by CPU core +[ifdef] pagesize +h# 1000 to pagesize +d# 12 to pageshift +[else] +h# 1000 constant pagesize +d# 12 constant pageshift +[then] + +h# 10.0000 constant /section +h# 4000 constant /page-table

1 0

[commit] r2247 - cpu/arm/olpc/1.75
by repository service 05 Jun '11

05 Jun '11

Author: wmb Date: Sun Jun 5 10:01:59 2011 New Revision: 2247 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2247 Log: OLPC XO-1.75 trac #10919 - Accelerometer test - type "roller". Added: cpu/arm/olpc/1.75/roller.fth Modified: cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Sat Jun 4 22:40:52 2011 (r2246) +++ cpu/arm/olpc/1.75/fw.bth Sun Jun 5 10:01:59 2011 (r2247) @@ -209,6 +209,7 @@ fload ${BP}/cpu/x86/pc/olpc/gridmap.fth \ Gridded display tools fload ${BP}/cpu/x86/pc/olpc/via/copynand.fth fload ${BP}/cpu/arm/olpc/1.75/exc7200-touchscreen.fth \ Touchscreen driver and diagnostic +fload ${BP}/cpu/arm/olpc/1.75/roller.fth \ Accelerometer test fload ${BP}/cpu/arm/olpc/1.75/pinch.fth \ Touchscreen gestures : pinch " pinch" screen-ih $call-method ; Added: cpu/arm/olpc/1.75/roller.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/olpc/1.75/roller.fth Sun Jun 5 10:01:59 2011 (r2247) @@ -0,0 +1,276 @@ +\ See license at end of file +purpose: Accelerometer test + +: 3! ( n1 n2 n3 adr -- ) tuck 2 na+ ! 2! ; +: 3@ ( adr -- n1 n2 n3 ) dup 2@ rot 2 na+ @ ; +3 actions +action: >user 3@ ; +action: >user 3! ; +action: >user ; +: 3value-cf create-cf use-actions ; +: 3value ( n1 n2 n3 "name" -- ) header 3value-cf 3 /n* user#, 3! ; + +0 0 0 3value pos-b \ Ball position +0 0 0 3value vel-b \ Ball velocity + +[ifdef] notdef +0 0 0 3value acc-0 \ Accelerometer calibration +[then] + +d# 8 value #fraction-bits +: fraction* ( -- ) * #fraction-bits >>a ; +: 1/2 ( -- n ) 1 #fraction-bits 1- lshift ; +: >fraction ( n -- fraction ) #fraction-bits lshift ; +: a/b>fraction ( num denom -- fraction ) swap #fraction-bits lshift swap / ; + +: xyz* ( x,y,z factor -- x',y',z' ) + >r + rot r@ fraction* + rot r@ fraction* + rot r> fraction* +; +: xyz+ ( x1 y1 z1 x2 y2 z2 -- x3 y3 z3 ) + 3 roll + >r ( x1 y1 x2 y2 r: z3 ) + rot + >r ( x1 x2 r: z3 y3 ) + + r> r> ( x3 y3 z3 ) +; +: xyz- ( x1 y1 z1 x2 y2 z2 -- x3 y3 z3 ) + 3 roll swap - >r ( x1 y1 x2 y2 r: z3 ) + rot swap - >r ( x1 x2 r: z3 y3 ) + - r> r> ( x3 y3 z3 ) +; + +: xyz>fraction ( x y z -- x' y' z' ) + rot #fraction-bits lshift + rot #fraction-bits lshift + rot #fraction-bits lshift +; +: xyz>integer ( x y z -- x' y' z' ) + 1/2 dup dup xyz+ \ Round up + rot #fraction-bits >>a + rot #fraction-bits >>a + rot #fraction-bits >>a +; + +0 value accel-ih +: get-acceleration ( -- x y z ) + " acceleration@" accel-ih $call-method xyz>fraction +; +: init-accelerometer ( -- ) + accel-ih if exit then + " /accelerometer" open-dev to accel-ih + accel-ih 0= abort" Can't open accelerometer" + +[ifdef] notdef + \ Calibrate the accelerometer by averaging 4 samples + get-acceleration ( x y z ) + get-acceleration xyz+ ( x' y' z' ) + get-acceleration xyz+ ( x' y' z' ) + get-acceleration xyz+ ( x' y' z' ) + 1 4 a/b>fraction xyz* to acc-0 +[then] +; + +\ This is a damping factor for the velocity - essentially a frictional force + +d# 19 d# 20 a/b>fraction value damping + +d# 1 d# 10 a/b>fraction value acc-scale + +d# 20 constant ball-radius +d# 40 constant ball-diameter + +d# 1200 ball-diameter - >fraction constant maxx +d# 900 ball-diameter - >fraction constant maxy +d# 400 >fraction constant maxz + +: 3swap ( x1 y1 z1 x2 y2 z2 -- x2 y2 z2 x1 y1 z1 ) 5 roll 5 roll 5 roll ; +: 3over ( x1 y1 z1 x2 y2 z2 -- x2 y2 z2 x1 y1 z1 ) 5 pick 5 pick 5 pick ; + +[ifdef] notdef +0 0 0 3value pos-b' \ New ball position +0 0 0 3value vel-l \ Laptop velocity + +\ The original idea was to model a ball floating in a vat of fluid. +\ Shaking the vat would make the ball move. That didn't work very well. +: update-laptop ( -- ) + get-acceleration acc-0 xyz- ( accl-x,y,z ) + acc-scale xyz* + + \ Compute new position of laptop based on acceleration and current + \ laptop velocity, and change the coordinate system origin to the + \ new position. + 3dup 1/2 xyz* vel-l xyz+ ( accl-x,y,z posl-x,y,z ) + pos-b 3swap xyz- to pos-b' ( accl-x,y,z ) + + \ Compute new laptop velocity + vel-l damping xyz* xyz+ to vel-l ( ) +; + +\ This is a simple approximation for the magnitude of a 3-vector +\ - largest component plus 1/3 the sum of the two smaller components. +\ It works surprisingly well, especially since we use it to estimate +\ drag, which is a complicated phenomenon for which the formula is +\ only an approximation anyway. + +: xyz-magnitude ( x y z -- magnitude ) + rot abs rot abs rot abs + 2dup > if swap then ( x min-y,z max-y,z ) + rot 2dup > if swap then ( a b max ) + -rot + 3 / + ( magnitude ) +; + +\ This is a coupling coefficient between the net velocity (laptop - ball) +\ and the ball acceleration. It encapsulates various constant factors +\ such as the drag coefficient and unit conversions. Its value is adjusted +\ empirically to make the simulation work nicely. +d# 1 d# 5 a/b>fraction value drag + +\ Compute the acceleration on the ball resulting from the drag of +\ the differential velocity between the laptop and the ball. +\ The formula for drag force is a "constant" times the magnitude of +\ the velocity squared, in a direction opposite to the velocity. +\ That can be represented as v^2 times a unit vector. But that +\ unit vector is velocity-vector/velocity-magnitude. The magnitude +\ in the denominator cancels one of the numerator ones, leaving +\ velocity-magnitude * velocity-vector. + +: compute-drag ( -- acc-x,y,z ) + vel-l vel-b xyz- ( vel-x,y,z ) + 3dup xyz-magnitude ( vel-x,y,z velocity-magnitude ) + drag fraction* ( vel-x,y,z drag-force ) + xyz* ( acc-x,y,z ) +; +[then] + +: inelastic ( vel -- vel' ) 5 * 3 >>a ; +: -velx ( -- ) vel-b rot negate inelastic -rot to vel-b ; \ Invert the X component of ball velocity +: -vely ( -- ) vel-b swap negate inelastic swap to vel-b ; \ Invert the Y component of ball velocity +: -velz ( -- ) vel-b negate inelastic to vel-b ; \ Invert the Z component of ball velocity + +: live-walls ( x,y,z -- x',y',z' ) + rot dup 0< if negate -velx then ( y z x' ) + dup maxx >= if maxx 2* swap - -velx then ( y z x' ) + + rot dup 0< if negate -vely then ( z x y' ) + dup maxy >= if maxy 2* swap - -vely then ( z x y' ) + + rot dup 0< if negate -velz then ( x y z' ) + dup maxz >= if maxz 2* swap - -velz then ( x y z' ) +; +: walls ( x,y,z -- x',y',z' ) + rot dup 0< if drop 0 -velx then ( y z x' ) + dup maxx >= if drop maxx -velx then ( y z x' ) + + rot dup 0< if drop 0 -vely then ( z x y' ) + dup maxy >= if drop maxy -vely then ( z x y' ) + + rot dup 0< if drop 0 -velz then ( x y z' ) + dup maxz >= if drop maxz -velz then ( x y z' ) +; + +: z>ball-radius ( z -- radius ) d# 20 / 1+ ; +: xyz>screen ( x y z -- x' y' radius ) +\ maxy 1- rot - swap ( x y' z ) \ Invert Y axis + maxz 1- swap - ( x y z' ) \ Invert Z axis + xyz>integer ( x' y' z' ) + ball-radius 1+ dup 0 xyz+ ( x' y' z' ) + z>ball-radius ( x y radius ) +; +: redraw ( new-xyz old-xyz -- ) + 3swap xyz>screen 3swap xyz>screen ( new-xyr old-xyr ) + 3over 3over xyz- or or if ( new-xyr old-xyr ) + h# ffff set-fg circleat ( new-xyr ) + 0 set-fg circleat ( ) + else ( new-xyr old-xyr ) + 3drop 3drop ( ) + then ( ) +; + + +[ifdef] notdef +d# 20 >fraction constant small +\ An unsuccessful attempt to eliminate ball jitter by reducing +\ acceleration near the edges of the window. +: clip-accel ( acc pos limit -- acc' ) + over small <= if ( acc pos limit ) + debug-me drop 0 max exit ( acc' ) + then ( acc pos limit ) + small - >= if ( acc ) + 0 min ( acc' ) + then ( acc ) +; +[then] + +: net-acceleration ( -- acc-x,y,z ) + get-acceleration ( acc-x,y,z ) + acc-scale xyz* ( acc'-x,y,z ) + +[ifdef] notdef + rot pos-b 2drop maxx clip-accel -rot ( acc-x',y,z ) + swap pos-b drop nip maxy clip-accel swap ( acc-x,y',z ) + pos-b nip nip maxz clip-accel ( acc-x,y',z' ) +[then] +; + +[ifdef] notdef +\ An unsuccessful attempt to eliminate ball jitter by forcing +\ small numbers to 0. +: clamp ( x,y,z -- x',y',z' ) + rot dup abs small < if drop 0 then -rot + swap dup abs small < if drop 0 then swap + dup abs small < if drop 0 then +; +[then] + +: update-ball ( -- ) +[ifdef] notdef + compute-drag ( acc-x,y,z ) + 3dup 1/2 xyz* vel-b xyz+ pos-b' xyz+ ( acc-x,y,z pos-x,y,z ) +[then] + + net-acceleration ( acc-x,y,z ) + 3dup 1/2 xyz* vel-b xyz+ pos-b xyz+ ( acc-x,y,z pos'-x,y,z ) + + 3swap vel-b damping xyz* xyz+ to vel-b ( acc-x,y,z ) + walls ( pos'-x,y,z ) + 3dup pos-b redraw ( pos'-x,y,z ) + to pos-b ( ) +; + +: init-ball ( -- ) + maxx maxy maxz 1/2 xyz* to pos-b + 0 0 0 to vel-b ( 0 0 0 to vel-l ) +; +: roller ( -- ) + init-accelerometer + init-ball + text-off + clear-drawing + begin ( update-laptop ) update-ball d# 50 ms key? until + text-on +; + +\ LICENSE_BEGIN +\ Copyright (c) 2011 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

1 0

[commit] r2246 - cpu/arm cpu/arm/olpc/1.75 dev/hdaudio
by repository service 04 Jun '11

04 Jun '11

Author: wmb Date: Sat Jun 4 22:40:52 2011 New Revision: 2246 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2246 Log: OLPC XO-1.75 - checkin audio changes in support of trac #10886. Autocorrelation has not been tested yet, but the changes are in place and compile cleanly. Modified: cpu/arm/muldiv.fth cpu/arm/olpc/1.75/alc5631.fth cpu/arm/olpc/1.75/fw.bth cpu/arm/olpc/1.75/sound.fth dev/hdaudio/noiseburst.fth dev/hdaudio/test.fth Modified: cpu/arm/muldiv.fth ============================================================================== --- cpu/arm/muldiv.fth Sat Jun 4 22:25:49 2011 (r2245) +++ cpu/arm/muldiv.fth Sat Jun 4 22:40:52 2011 (r2246) @@ -336,6 +336,15 @@ mov tos,r5 c; +: m/mod (s d# n1 -- rem quot ) + dup >r 2dup xor >r >r dabs r@ abs um/mod + swap r> 0< if negate then + swap r> 0< if + negate over if 1- r@ rot - swap then + then + r> drop +; + : / ( dividend divisor -- quotient ) /mod nip ; : mod ( dividend divisor -- modulus ) /mod drop ; : */mod ( n1 n2 n3 -- n.mod n.quot ) >r m* r> fm/mod ; Modified: cpu/arm/olpc/1.75/alc5631.fth ============================================================================== --- cpu/arm/olpc/1.75/alc5631.fth Sat Jun 4 22:25:49 2011 (r2245) +++ cpu/arm/olpc/1.75/alc5631.fth Sat Jun 4 22:40:52 2011 (r2246) @@ -92,8 +92,10 @@ : set-headphone-volume ( n -- ) \ DONE gain>lr if h# 8080 then h# 9f9f 4 codec-field ; + +false value force-speakers? : set-volume ( n -- ) - headphones-inserted? if + headphones-inserted? force-speakers? 0= and if set-headphone-volume else set-speaker-volume @@ -105,6 +107,11 @@ d# 0 constant default-speaker-volume \ 0 dB - range is -46.5 to +12 d# -10 constant default-headphone-volume \ -10 dB - range is -46.5 to 0 +: speakers-on ( -- ) default-speaker-volume set-speaker-volume ; +: speakers-off ( -- ) d# -100 set-speaker-volume ; +: headphones-on ( -- ) default-headphone-volume set-headphone-volume ; +: headphones-off ( -- ) d# -100 set-headphone-volume ; + : adc-mute-all ( -- ) h# f0f0 h# 14 codec! ; : adc-mute-mic ( -- ) h# 4040 h# 14 codec-set ; : adc-unmute-mic ( -- ) h# 4040 h# 14 codec-clr ; @@ -172,12 +179,12 @@ : mic+20db ( -- ) d# 20 set-mic-gain ; : set-default-gains ( -- ) output-config - headphones-inserted? if - default-headphone-volume set-headphone-volume - mute-speakers + headphones-inserted? force-speakers? 0= and if + headphones-on + speakers-off else - default-speaker-volume set-speaker-volume - mute-headphones + speakers-on + headphones-off then default-dac-gain set-dac-gain default-mic-gain set-mic-gain Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Sat Jun 4 22:25:49 2011 (r2245) +++ cpu/arm/olpc/1.75/fw.bth Sat Jun 4 22:40:52 2011 (r2246) @@ -81,8 +81,7 @@ standalone? if disable-interrupts - d# 1000 -\ i-key-wait if +\ d# 1000 i-key-wait if rotate-button? if protect-fw ." Interacting" cr hex interact @@ -300,7 +299,7 @@ fload ${BP}/ofw/core/countdwn.fth \ Startup countdown -\ fload ${BP}/dev/hdaudio/noiseburst.fth \ audio-test support package +fload ${BP}/dev/hdaudio/noiseburst.fth \ audio-test support package : console-start ( -- ) install-mux-io Modified: cpu/arm/olpc/1.75/sound.fth ============================================================================== --- cpu/arm/olpc/1.75/sound.fth Sat Jun 4 22:25:49 2011 (r2245) +++ cpu/arm/olpc/1.75/sound.fth Sat Jun 4 22:40:52 2011 (r2246) @@ -206,8 +206,11 @@ [ifdef] cl2-a1 fload ${BP}/cpu/arm/olpc/1.75/alc5624.fth \ Realtek ALC5624 CODEC [else] -: headphones-inserted? ( -- flag ) d# 97 gpio-pin@ ; -: microphone-inserted? ( -- flag ) d# 96 gpio-pin@ ; +d# 97 constant headphone-jack +d# 96 constant external-mic +: pin-sense? ( gpio# -- flag ) gpio-pin@ ; +: headphones-inserted? ( -- flag ) headphone-jack pin-sense? ; +: microphone-inserted? ( -- flag ) external-mic pin-sense? ; fload ${BP}/cpu/arm/olpc/1.75/alc5631.fth \ Realtek ALC5631Q CODEC [then] @@ -480,6 +483,10 @@ fload ${BP}/forth/lib/tones.fth fload ${BP}/dev/geode/ac97/selftest.fth +false value force-internal-mic? \ Can't be implemented on XO-1.75 +2 value #channels +fload ${BP}/dev/hdaudio/test.fth + end-package \ LICENSE_BEGIN Modified: dev/hdaudio/noiseburst.fth ============================================================================== --- dev/hdaudio/noiseburst.fth Sat Jun 4 22:25:49 2011 (r2245) +++ dev/hdaudio/noiseburst.fth Sat Jun 4 22:40:52 2011 (r2246) @@ -3,6 +3,122 @@ support-package: audio-test +[ifdef] arm-assembler +code mono-covar ( adr1 adr2 #samples -- d.sum ) + ldmia sp!,{r1,r2} \ tos: #samples, r1: adr2, r2: adr1 + + adds tos,tos,tos \ #bytes + + psheq tos,sp \ Return 0. if #samples is 0 + nxteq + + mov r3,#0 \ Zero accumulator + mov r4,#0 + + dec tos,#2 + begin + ldrsh r5,[r1,tos] + ldrsh r6,[r2,tos] + smlal r3,r4,r5,r6 + decs tos,#2 + 0< until + + psh r3,sp + mov tos,r4 +c; +code stereo-mono-covar ( stereo-adr1 mono-adr2 #samples -- d.sum ) + ldmia sp!,{r1,r2} \ tos: #samples, r1: adr2, r2: adr1 + + adds tos,tos,tos \ #bytes for mono samples + add r8,tos,tos \ Index for stereo samples + + psheq tos,sp \ Return 0. if #samples is 0 + nxteq + + mov r3,#0 \ Zero accumulator + mov r4,#0 + + dec tos,#2 + dec r8,#4 + begin + ldrsh r5,[r1,tos] \ Mono + ldrsh r6,[r2,r8] \ Stereo sample + dec r8,#4 + smlal r3,r4,r5,r6 + decs tos,#2 + 0< until + + psh r3,sp + mov tos,r4 +c; +code stereo-covar ( stereo-adr1 stereo-adr2 #samples -- d.sum ) + ldmia sp!,{r1,r2} \ tos: #samples, r1: adr2, r2: adr1 + + movs tos,tos,lsl #2 \ #bytes + + psheq tos,sp \ Return 0. if #samples is 0 + nxteq + + mov r3,#0 \ Zero accumulator + mov r4,#0 + + dec tos,#4 + begin + ldrsh r5,[r1,tos] + ldrsh r6,[r2,tos] + smlal r3,r4,r5,r6 + decs tos,#4 \ Stride is 4 + 0< until + + psh r3,sp + mov tos,r4 +c; +code mono-wsum ( adr #samples -- d.sum ) + pop r1,sp \ tos: len, r1: adr + movs tos,tos,lsl #1 + + psheq tos,sp \ Return 0. if #samples is 0 + nxteq + + mov r3,#0 \ Zero accumulator + mov r4,#0 + + dec tos,#2 + begin + ldrsh r5,[r1,tos] + mov r6,r5,asr #31 \ Sign extend long word to 64 bits + adds r3,r3,r5 + adc r4,r4,r6 + decs tos,#2 + 0< until + + psh r3,sp + mov tos,r4 +c; +code stereo-wsum ( adr #samples -- d.sum ) + pop r1,sp \ tos: len, r1: adr + movs tos,tos,lsl #2 + + psheq tos,sp \ Return 0. if #samples is 0 + nxteq + + mov r3,#0 \ Zero accumulator + mov r4,#0 + + dec tos,#4 + begin + ldrsh r5,[r1,tos] + mov r6,r5,asr #31 \ Sign extend long word to 64 bits + adds r3,r3,r5 + adc r4,r4,r6 + decs tos,#4 + 0< until + + psh r3,sp + mov tos,r4 +c; +[then] +[ifdef] x86-assembler code mono-covar ( adr1 adr2 #samples -- d.sum ) cx pop @@ -39,7 +155,7 @@ bx push ax push c; -code stereo-mono-covar ( stereo-adr1 stereo-adr2 #samples -- d.sum ) +code stereo-mono-covar ( stereo-adr1 mono-adr2 #samples -- d.sum ) cx pop ax pop \ adr2 in ax @@ -169,6 +285,7 @@ bx push ax push c; +[then] : mono-wmean ( adr len -- n ) 2/ tuck mono-wsum ( d.sum len ) rot m/mod nip ( mean ) @@ -419,7 +536,7 @@ defer fix-dc : prepare-signal ( -- out-adr, len in-adr,len ) - pb /pb bounds do random-byte i c! loop + pb /pb bounds do random-long i l! /l +loop pb /pb -stereo-wmean pb wa1+ /pb -stereo-wmean pb /pb lose-6db Modified: dev/hdaudio/test.fth ============================================================================== --- dev/hdaudio/test.fth Sat Jun 4 22:25:49 2011 (r2245) +++ dev/hdaudio/test.fth Sat Jun 4 22:40:52 2011 (r2246) @@ -105,12 +105,20 @@ " 0 set-fg h# ffff set-bg single-drawing clear-drawing wave" evaluate key ascii d = if debug-me then ; -: input-common-settings ( -- ) +defer input-common-settings +defer output-common-settings +[ifdef] with-adc +\ XXX this is hd-audio specific. Factore it out +: (input-common-settings) ( -- ) open-in 48kHz 16bit with-adc d# 73 input-gain ; -: output-common-settings ( -- ) +' (input-common-settings) to input-common-settings +: (output-common-settings) ( -- ) open-out 48kHz 16bit stereo ; +' (output-common-settings) to output-common-settings +[then] + : test-with-case ( -- ) " setup-case" $call-analyzer \ xxx - this needs to use the internal speakers and mic even though the loopback cable is attached

1 0

[commit] r2245 - cpu/arm cpu/arm/mmp2 cpu/arm/olpc cpu/arm/olpc/1.75 ofw/fcode
by repository service 04 Jun '11

04 Jun '11

Author: wmb Date: Sat Jun 4 22:25:49 2011 New Revision: 2245 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2245 Log: OLPC XO-1.75 trac #10883 - Integrated memory test suite into XO-1.75 build and added a random address and data memory test based on a linear feedback shift register sequence generator. To use, "test /memory", or "memtest" for a multi-pass test. Modified: cpu/arm/memtest.fth cpu/arm/mmp2/mmuon.fth cpu/arm/olpc/1.75/addrs.fth cpu/arm/olpc/1.75/devices.fth cpu/arm/olpc/1.75/probemem.fth cpu/arm/olpc/initmmu.fth cpu/arm/scc.fth ofw/fcode/memtest.fth Modified: cpu/arm/memtest.fth ============================================================================== --- cpu/arm/memtest.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/memtest.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -7,7 +7,10 @@ \ Report the progress through low-level tests 0 0 2value test-name -: show-status ( adr len -- ) to test-name ; +: (quiet-show-status) ( adr len -- ) to test-name ; + +defer show-status +' type to show-status code lfill ( adr len l -- ) \ tos: pattern @@ -86,6 +89,160 @@ 2dup afill mask @ masked-atest ; +code random-fill ( adr len data index polynomial -- ) + ldmia sp!,{r1,r2,r3,r4} \ tos:poly r1:index r2:data r3:len r4:adr + + movs r3,r3,lsr #2 \ Convert to longword count + nxteq + + sub r0,r3,#1 \ r0:remaining count + + \ r3:address-lfsr r4:data-lfsr r5:data-poly + set r5,#0x80200003 \ 32-bit polynomial + + begin + \ Compute new data value with an LFSR step + movs r2,r2,lsr #1 + eorcs r2,r2,r5 + + \ Compute new address index, discarding values >= len + begin + movs r1,r1,lsr #1 + eorcs r1,r1,tos + cmp r1,r3 + u< until + + \ Write the "random" value to the "random" address (adr[index]) + str r2,[r4,r1,lsl #2] + + decs r0,#1 + 0= until + + pop tos,sp +c; +code random-check ( adr len data index remain polynomial -- false | adr len data index remain true ) + ldmia sp!,{r0,r1,r2,r3,r4} \ tos:poly r0:remain r1:index r2:data r3:len r4:adr + + cmp r0,#0 + moveq tos,#0 \ Return false + nxteq + + mov r7,r3,lsr #2 \ Convert to longword count + + set r5,#0x80200003 \ 32-bit polynomial + + begin + \ Compute new data value with an LFSR step + movs r2,r2,lsr #1 + eorcs r2,r2,r5 + + \ Compute new address index, discarding values >= len + begin + movs r1,r1,lsr #1 + eorcs r1,r1,tos + cmp r1,r7 + u< until + + \ Read the value at the "random" address (adr[index]) + ldr r6,[r4,r1,lsl #2] + + \ Compare it to the calculated value + cmp r6,r2 + + decne r0,#1 + stmnedb sp!,{r0,r1,r2,r3,r4} \ Push results + mvnne tos,#0 \ True on top of stack + nxtne + + decs r0,#1 + 0= until + + mov tos,#0 +c; +\ Polynomials for maximal length LFSRs for different bit lengths +\ The values come from the Wikipedia article for Linear Feedback Shift Register and from +\ http://www.xilinx.com/support/documentation/application_notes/xapp052.pdf +create polynomials \ #bits period +h# 0 , \ 0 0 +h# 1 , \ 1 1 +h# 3 , \ 2 3 +h# 6 , \ 3 7 +h# c , \ 4 f +h# 14 , \ 5 1f +h# 30 , \ 6 3f +h# 60 , \ 7 7f +h# b8 , \ 8 ff +h# 110 , \ 9 1ff +h# 240 , \ 10 3ff +h# 500 , \ 11 7ff +h# e08 , \ 12 fff +h# 1c80 , \ 13 1fff +h# 3802 , \ 14 3fff +h# 6000 , \ 15 7fff +h# b400 , \ 16 ffff +h# 12000 , \ 17 1ffff +h# 20400 , \ 18 3ffff +h# 72000 , \ 19 7ffff +h# 90000 , \ 20 fffff +h# 140000 , \ 21 1fffff +h# 300000 , \ 22 3fffff +h# 420000 , \ 23 7fffff +h# e10000 , \ 24 ffffff +h# 1200000 , \ 25 1ffffff +h# 2000023 , \ 26 3ffffff +h# 4000013 , \ 27 7ffffff +h# 9000000 , \ 28 fffffff +h# 14000000 , \ 29 1fffffff +h# 20000029 , \ 30 3fffffff +h# 48000000 , \ 31 7fffffff +h# 80200003 , \ 32 ffffffff + +: round-up-log2 ( n -- log2 ) + dup log2 ( n log2 ) + tuck 1 swap lshift ( log2 n 2^log2 ) + > - ( log2' ) +; + +defer .lfsr-mem-error +: (.lfsr-mem-error) ( adr len data index remain -- adr len data index remain ) + push-hex + ." Error at address " 4 pick 2 pick la+ dup 8 u.r ( adr len data index remain err-adr ) + ." - expected " 3 pick 8 u.r ( adr len data index remain err-adr ) + ." got " l@ 8 u.r cr + pop-base +; +' (.lfsr-mem-error) to .lfsr-mem-error +: throw-lfsr-error ( adr len data index remain -- <thrown> ) + (.lfsr-mem-error) -1 throw +; + +: (random-test) ( adr len -- ) + dup /l <= if 2drop exit then ( adr len #bits ) + dup /l / round-up-log2 ( adr len #bits ) + polynomials swap la+ l@ ( adr len polynomial ) + + 3dup 1 1 rot random-fill ( adr len polynomial ) + + >r ( adr len r: polynomial ) + 1 1 2 pick /l / 1- ( adr len data index remain r: polynomial ) + begin ( adr len data index remain r: polynomial ) + r@ random-check ( false | adr len data index remain true r: polynomial ) + while ( adr len data index remain r: polynomial ) + .lfsr-mem-error ( adr len data index remain r: polynomial ) + repeat ( r: polynomial ) + r> drop +; +\ Not truly random - uses LFSR sequences +: random-test ( adr len -- error? ) + " Random address and data test" show-status + + ['] throw-lfsr-error to .lfsr-mem-error + ['] (random-test) catch if + 2drop true + else + false + then +; \ LICENSE_BEGIN \ Copyright (c) 1997 FirmWorks Modified: cpu/arm/mmp2/mmuon.fth ============================================================================== --- cpu/arm/mmp2/mmuon.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/mmp2/mmuon.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -25,7 +25,7 @@ : ofw-sections ( -- ) h# 0000.0000 h# c0e over dma-base map-sections \ Cache and write bufferable dma-base h# c02 over dma-size map-sections \ Non-cacheable DMA space - extra-mem-base h# c0e over extra-mem-size map-sections \ Cache and write bufferable + extra-mem-pa h# c0e over /extra-mem map-sections \ Cache and write bufferable fw-pa h# c0e over /fw-ram map-sections \ Cache and write bufferable fb-pa h# c06 over fb-size map-sections \ Write bufferable \ h# d100.0000 h# c0e over h# 0030.0000 map-sections \ Cache and write bufferable (SRAM) Modified: cpu/arm/olpc/1.75/addrs.fth ============================================================================== --- cpu/arm/olpc/1.75/addrs.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/olpc/1.75/addrs.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -29,8 +29,8 @@ h# 1f00.0000 constant dma-base h# 80.0000 constant dma-size -h# 1f80.0000 constant extra-mem-base -h# 20.0000 constant extra-mem-size +h# 1f80.0000 constant extra-mem-pa +h# 20.0000 constant /extra-mem [ifdef] virtual-mode h# f700.0000 constant fw-virt-base Modified: cpu/arm/olpc/1.75/devices.fth ============================================================================== --- cpu/arm/olpc/1.75/devices.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/olpc/1.75/devices.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -373,7 +373,7 @@ warning ! stand-init: More memory - extra-mem-base extra-mem-size add-memory + extra-mem-pa /extra-mem add-memory ; \ LICENSE_BEGIN Modified: cpu/arm/olpc/1.75/probemem.fth ============================================================================== --- cpu/arm/olpc/1.75/probemem.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/olpc/1.75/probemem.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -17,7 +17,6 @@ headers : probe ( -- ) 0 available-ram-size log&release -\ h# 2000.0000 h# 1000.0000 log&release 0 0 encode-bytes ( adr 0 ) physavail ['] make-phys-memlist find-node ( adr len prev 0 ) @@ -25,7 +24,95 @@ \ Claim the memory used by OFW fw-pa /fw-ram 0 claim drop -\ high h# 10.0000 - h# 10.0000 0 claim drop + extra-mem-pa /extra-mem 0 claim drop + + 0 pagesize 0 claim drop \ Vector table +; + +\ The parameters depend on CPU-specific cache parameters +: flush-entire-dcache ( -- ) + \ Flush L1 dcache + + h# 1000 0 do \ Loop over sets - h# 1000 is L1 #sets + 0 0 do \ Loop over ways + i j + clean&flush-d$-entry-way \ Operate on L1 cache + h# 2000.0000 +loop \ h# 2000.0000 depends on L1 #ways + h# 20 +loop \ h# 20 is L1 line size + + h# 10000 0 do \ Loop over sets - h# 10000 is L2 #sets + 0 0 do \ Loop over ways + i j + 2+ clean&flush-d$-entry-way \ Operate on L2 cache (2+) + h# 2000.0000 +loop \ h# 2000.0000 depends on L2 #ways + h# 20 +loop \ h# 20 is L2 line size +; +' flush-entire-dcache to memtest-flush-cache + +0 value p-adr +0 value v-adr + +false value mem-fail? + +: show-line ( adr len -- ) (cr type 3 spaces kill-line ; +' show-line to show-status + +: test-mem ( adr len -- ) \ Test a chunk 'o memory + ." Testing address 0x" over .x ." length 0x" dup .x cr + + 2>r + 2r@ 0 mem-claim to p-adr ( ) ( r: adr len ) +[ifdef] virtual-mode + 2r@ nip 1 mmu-claim to v-adr ( ) ( r: adr len ) + 2r@ v-adr swap h# c00 mmu-map ( ) ( r: adr len ) \ c00 = non-cached + v-adr ( adr ) +[else] + p-adr ( adr ) +[then] + + 2r@ nip memory-test-suite ( status ) ( r: adr len ) + 0<> if true to mem-fail? then + +[ifdef] virtual-mode + v-adr 2r@ nip mmu-unmap ( ) ( r: adr len ) + v-adr 2r@ nip mmu-release ( ) ( r: adr len ) +[then] + p-adr 2r> nip mem-release ( ) + + mem-fail? if ( ) + " !!Failed!!" show-status cr ( ) + else ( ) + " Succeeded" show-status cr ( ) + then ( ) +; + +: selftest ( -- error? ) + + false to mem-fail? + + " available" get-my-property if + ." No available property in memory node" cr + true exit + then ( adr len ) + + begin dup while ( adr len ) + decode-int >r decode-int ( adr len this-len r: this-padr ) + r> swap test-mem ( adr len ) + mem-fail? if ( adr len ) + 2drop true exit ( -- error ) + then ( adr len ) + repeat ( adr len ) + 2drop ( ) + + mem-fail? ; device-end + +: memtest ( -- ) + true to diag-switch? + 1 begin ( pass# ) + ." Pass " dup .d cr 1+ ( pass# ) + " /memory" test-dev ( pass# ) + key? until ( pass# ) + key drop ( pass# ) + drop ( ) +; Modified: cpu/arm/olpc/initmmu.fth ============================================================================== --- cpu/arm/olpc/initmmu.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/olpc/initmmu.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -215,8 +215,8 @@ set r3,#0xc02 \ No caching or write buffering bl `map-sections-v=p` - set r1,`extra-mem-base #` \ Address of additional allocatable memory - set r2,`extra-mem-size #` \ Size of additional allocatable memory + set r1,`extra-mem-pa #` \ Address of additional allocatable memory + set r2,`/extra-mem #` \ Size of additional allocatable memory set r3,#0xc0e \ Write bufferable bl `map-sections-v=p` Modified: cpu/arm/scc.fth ============================================================================== --- cpu/arm/scc.fth Sat Jun 4 08:48:27 2011 (r2244) +++ cpu/arm/scc.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -119,6 +119,13 @@ code disable-mclk ( -- ) mcr p15,0,r0,cr15,cr4,2 c; code wait-for-interrupt ( -- ) mcr p15,0,r0,cr15,cr8,2 c; +code cache-level@ ( -- level ) psh tos,sp mrc p15,2,tos,cr0,cr0,0 c; +code cache-level! ( level -- ) mcr p15,2,tos,cr0,cr0,0 pop tos,sp c; +code cache-size-id@ ( -- n ) psh tos,sp mrc p15,1,tos,cr0,cr0,0 c; +code cache-level-id@ ( -- n ) psh tos,sp mrc p15,1,tos,cr0,cr0,1 c; + +code silicon-id@ ( -- id ) psh tos,sp mrc p15,1,tos,cr0,cr0,7 c; + : ttbase ( -- n ) ttbase@ h# 3ff invert and ; : .control ( -- ) control@ " i..rsb...wcam" show-bits ; Modified: ofw/fcode/memtest.fth ============================================================================== --- ofw/fcode/memtest.fth Sat Jun 4 08:48:27 2011 (r2244) +++ ofw/fcode/memtest.fth Sat Jun 4 22:25:49 2011 (r2245) @@ -127,6 +127,8 @@ hex headers +defer memtest-flush-cache ' noop to memtest-flush-cache + defer meml! defer meml@ defer memw! @@ -203,6 +205,7 @@ \ First we write all zeroes to the top and bottom memory locations 0 add-base @ meml! 0 add-top @ meml! + memtest-flush-cache \ Now we write all ones to 2 locations: the location whose address \ differs from the bottom address only by the address line under test, \ and the location whose address differs from the top address only by @@ -212,6 +215,7 @@ add-base @ over + ffffffff swap meml! \ store ones at "base + [1 << addr#]" add-top @ over - ffffffff swap meml! \ store ones at "top - [1 << addr#]" ( addr# offset ) + memtest-flush-cache \ Now we check to see if either of the top or bottom locations got \ clobbered when we wrote the other two locations. This tests for @@ -234,6 +238,8 @@ add-base @ over + 0 swap meml! \ store 0 at location "base + [ 1 << addr#]" add-top @ over - 0 swap meml! \ store 0 at location "top - [ 1 << addr#]" + memtest-flush-cache + ffffffff add-base @ mem-test ffffffff add-top @ mem-test ( addr# offset ) @@ -290,6 +296,8 @@ temp-buf w@ over memw! temp-buf wa1+ w@ over wa1+ memw! ( membase ) + memtest-flush-cache + h# 12345678 over mem-test ( membase ) \ write data in byte size @@ -298,6 +306,7 @@ temp-buf 2 ca+ c@ over 2 ca+ memc! temp-buf 3 ca+ c@ over 3 ca+ memc! ( membase ) + memtest-flush-cache h# 12345678 over mem-test ( membase ) drop failed @ \ place failed flag on stack @@ -311,12 +320,14 @@ ( membase ) d# 32 0 do \ loop over all 32 data lines 1 i << over meml! ( membase ) + memtest-flush-cache 1 i << over mem-test ( membase ) loop ( membase ) \ Walking zeroes d# 32 0 do \ loop over all 32 data lines 1 i << invert over meml! ( membase ) + memtest-flush-cache 1 i << invert over mem-test ( membase ) /l + loop ( membase ) @@ -330,8 +341,8 @@ failed off \ set failed flag to false bounds ( memtop membase ) - 2dup ?do h# ffffffff i 2dup meml! mem-test /l +loop \ stuck at 0 test - ?do h# 00000000 i 2dup meml! mem-test /l +loop \ stuck at 1 test + 2dup ?do h# ffffffff i 2dup meml! memtest-flush-cache mem-test /l +loop \ stuck at 0 test + ?do h# 00000000 i 2dup meml! memtest-flush-cache mem-test /l +loop \ stuck at 1 test failed @ \ put failed flag onto the stack ; @@ -343,6 +354,8 @@ bounds 2dup do i i meml! /l +loop ( memtop membase ) + memtest-flush-cache + failed off do i i mem-test /l +loop failed @ \ return failed flag on stack @@ -365,6 +378,8 @@ i 2 la+ meml! /l 3 * +loop + memtest-flush-cache + failed off ( memtop membase ) do mats-pattern @ @@ -394,7 +409,10 @@ 2dup address=data-test ?suite-failed ( membase memsize ) \ Don't do the mats test, because I'm not convinced that it is useful \ 2dup h# a5a5a5a5 mats-test ?suite-failed ( membase memsize ) - then +[ifdef] random-test + 2dup random-test ?suite-failed ( membase memsize ) +[then] + then ( membase memsize ) 2drop suite-failed @

1 0

[commit] r2244 - forth/lib
by repository service 04 Jun '11

04 Jun '11

Author: wmb Date: Sat Jun 4 08:48:27 2011 New Revision: 2244 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2244 Log: Fixed decompiler problem - it was failing to display the names of some data types. The code to display them existed, but wasn't enabled due to a search order problem. Modified: forth/lib/objects.fth Modified: forth/lib/objects.fth ============================================================================== --- forth/lib/objects.fth Sat Jun 4 00:56:50 2011 (r2243) +++ forth/lib/objects.fth Sat Jun 4 08:48:27 2011 (r2244) @@ -160,6 +160,7 @@ -level \ Exit temporary compile state, perhaps run word ; +also hidden [ifdef] object-definer : (object-definer) ( action-acf -- definer ) dup /n - @ ( action-acf #actions ) @@ -172,8 +173,9 @@ ta1+ dup probably-cfa? until ; -also hidden ' (object-definer) is object-definer previous +' (object-definer) is object-definer [then] +previous \ action-compiler: to action-compiler: addr

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware June 2011