[openfirmware] [commit] r2291 - forth/lib
repository service
svn at openfirmware.info
Thu Jun 16 20:04:30 CEST 2011
Author: wmb
Date: Thu Jun 16 20:04:29 2011
New Revision: 2291
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2291
Log:
Changed "0 [if]" to "[ifdef] notdef" because the FCode tokenizer doesn't like the former.
Modified:
forth/lib/isin.fth
Modified: forth/lib/isin.fth
==============================================================================
--- forth/lib/isin.fth Thu Jun 16 09:52:44 2011 (r2290)
+++ forth/lib/isin.fth Thu Jun 16 20:04:29 2011 (r2291)
@@ -42,7 +42,7 @@
\ Computes (1 - (theta^2 / divisor) * last)
: sin-step ( last divisor -- next ) thetasq swap / times one min one swap - ;
-0 [if]
+[ifdef] notdef
\ Cos
\ 1 - t^2/(2) + t^4/(2..4) - t^6/2..6) + t^8/(2..8)
\ 1 - (t^2/(1*2)) * (1 - (t^2/(3*4)) * (1 - (t^2/(5*6)) * (1 - (t^2/(7*8))))
@@ -77,7 +77,7 @@
;
-0 [if]
+[ifdef] notdef
: reduce-to-quarter-cycle ( -- )
\ Move a cycle/4 to the left until negative, then fix
#cycle/4 - dup 0<= if #cycle/4 + (sin) exit then ( theta' ) \ Quadrant 1
More information about the openfirmware
mailing list