[openfirmware] [commit] r2994 - forth/lib

[repository service]

Author: quozl
Date: Fri Jun  1 14:21:35 2012
New Revision: 2994
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2994

Log:
OLPC XO-1 XO-1.5 - restore normal sweep audio test volume, #11846.  A multiply overflowed 32-bits in set-period.  Regression introduced in svn 2260.

Modified:
   forth/lib/isin.fth

Modified: forth/lib/isin.fth
==============================================================================
--- forth/lib/isin.fth	Thu May 31 22:07:15 2012	(r2993)
+++ forth/lib/isin.fth	Fri Jun  1 14:21:35 2012	(r2994)
@@ -32,7 +32,7 @@
    2* dup to #cycle/2       ( cycle/2 )
    2* dup to #cycle            ( cycle )
    fs over / to freq           ( period )
-   pi fs rot */  to fstep      ( )
+   pi swap /  fs *  to fstep   ( )
 ;
 
 \ Multiply two fractional numbers where the scale factor is 2^15