Menu
▾
▴
[Win32forth-cvs] win32forth/src/Compat Evolve.f,1.10,1.11
|
From: George H. <geo...@us...> - 2009-11-16 23:14:40
|
Update of /cvsroot/win32forth/win32forth/src/Compat In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28918 Modified Files: Evolve.f Log Message: Improved documentation Index: Evolve.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Evolve.f 16 Aug 2009 18:50:37 -0000 1.10 --- Evolve.f 16 Nov 2009 23:14:30 -0000 1.11 *************** *** 21,25 **** \ \ \ When you get such a message, you are strongly encouraged to make any needed \ ! \ conversion in your sources because they will no longer be present in the \ \ next win32Forth release. \ \ \ --- 21,25 ---- \ \ \ When you get such a message, you are strongly encouraged to make any needed \ ! \ conversion to your sources because they will no longer be present in the \ \ next win32Forth release. \ \ \ *************** *** 57,61 **** deprecated \ june 27 2008 - was in-system ! : -- \ replace by \ postpone \ ; immediate deprecated \ june 27 2008 - was in-system --- 57,62 ---- deprecated \ june 27 2008 - was in-system ! : -- \ replace by \ NOTE this refers to -- outside of { and } ; it is still part of the ! \ LOCALS syntax postpone \ ; immediate deprecated \ june 27 2008 - was in-system *************** *** 85,91 **** \ ------------------- ! : WITH-IMG \ replace by nothing (was a NOOP) ; IMMEDIATE ! deprecated \ since a long time - was in-system --- 86,92 ---- \ ------------------- ! : WITH-IMG \ replace by nothing (was a NOOP). No longer needed since the 'c' wrapper was removed. ; IMMEDIATE ! deprecated \ since late 2003 - was in-system *************** *** 109,113 **** deprecated \ since a long time ! \ rel>abs and abs>rel are deprecated since version 6 \ They are still in primutil.f to support old code --- 110,114 ---- deprecated \ since a long time ! \ rel>abs and abs>rel are deprecated since version 6.10 \ They are still in primutil.f to support old code *************** *** 167,214 **** \ removed from src\float.f \ ------------------------ - ( the following words used the return stack to store floating instead of the - new floating stack - you can move theese definitions in your application - but it is much better to use the separate floating stack) ' FLOATSTACK >body @ checkstack constant FSTACK \ don't use ( equivalent to FLOATSTACK UP@ - ) ! deprecated \ since a long time ' FLOATSP >body @ checkstack constant FSP \ don't use ( equivalent to FLOATSP UP@ - ) ! deprecated \ since a long time : r>f \ don't use r> rp@ f@ b/float rp@ + rp! >r ; ! deprecated \ since a long time ! code (f@) \ don't use ! ( addr -- ; fs: --r ) \ ??? ! fld FSIZE DATASTACK_MEMORY ! pop tos ! float; ! deprecated \ since a long time : f>r \ don't use r> rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since a long time : fdup>r \ don't use r> fdup rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since a long time : fr@ \ don't use r> r@ f@ >r ; ! deprecated \ since a long time code fpush \ don't use ! ( fpu: r -- ) ( fs: -- r ) \ move from FPU on simulated stack FPU> float; ! deprecated \ since a long time code fpop \ don't use ! ( fpu: -- r ) ( fs: r -- ) \ move from simulated stack on FPU stack fstack-check_1 >FPU float; ! deprecated \ since a long time : f^x \ replace by F** \ synonym of f** f** ; ! deprecated \ since a long time --- 168,221 ---- \ removed from src\float.f \ ------------------------ ' FLOATSTACK >body @ checkstack constant FSTACK \ don't use ( equivalent to FLOATSTACK UP@ - ) ! deprecated \ since July 4 2005 ' FLOATSP >body @ checkstack constant FSP \ don't use ( equivalent to FLOATSP UP@ - ) ! deprecated \ since July 4 2005 ! ! ( the following words were for moving floats between the floating point stack and the return ! stack, but were not used by the system or any programs.) ! : r>f \ don't use r> rp@ f@ b/float rp@ + rp! >r ; ! deprecated \ since July 4 2005 ! : f>r \ don't use r> rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since July 4 2005 : fdup>r \ don't use r> fdup rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since July 4 2005 : fr@ \ don't use r> r@ f@ >r ; ! deprecated \ since July 4 2005 ! ! \ --------------------------------------------------------------------------------------- ! ! code (f@) \ don't use ! ( addr -- ; fpu: --r ) \ Fetch float to FPU stack (not the simulated FP stack) ! fld FSIZE DATASTACK_MEMORY ! pop tos ! float; ! deprecated \ since July 4 2005 ! code fpush \ don't use ! ( fpu: r -- ) ( fs: -- r ) \ move from FPU stack to simulated FP stack FPU> float; ! deprecated \ since July 4 2005 code fpop \ don't use ! ( fpu: -- r ) ( fs: r -- ) \ move from simulated FP stack to FPU stack fstack-check_1 >FPU float; ! deprecated \ since July 4 2005 : f^x \ replace by F** \ synonym of f** f** ; ! deprecated \ since July 4 2005 *************** *** 356,360 **** \ ------------------------------------------------------------------------------ ! \ To check for sure that every word moved in Evolve.f is no longer used in the \ win32forth CVS , transiently comment out the line : \ FLOAD src\compat\Evolve.f --- 363,367 ---- \ ------------------------------------------------------------------------------ ! \ To check for sure that every word moved to Evolve.f is no longer used in the \ win32forth CVS , transiently comment out the line : \ FLOAD src\compat\Evolve.f |
