socsvn commit: r289735 - in soc2015/clord/head/sys/contrib/ficl: i386 softcore

[clord at FreeBSD.org]

Author: clord
Date: Fri Aug 14 02:25:00 2015
New Revision: 289735
URL: http://svnweb.FreeBSD.org/socsvn/?view=rev&rev=289735

Log:
  Since ficlInstructionF0 is only defined if FICL_WANT_FLOAT is set, modify
  jhlocal.fr to reflect that requirement. Set FICL_WANT_FLOAT to 1 by default.
  

Modified:
  soc2015/clord/head/sys/contrib/ficl/i386/sysdep.h
  soc2015/clord/head/sys/contrib/ficl/softcore/jhlocal.fr

Modified: soc2015/clord/head/sys/contrib/ficl/i386/sysdep.h
==============================================================================
--- soc2015/clord/head/sys/contrib/ficl/i386/sysdep.h	Fri Aug 14 02:20:37 2015	(r289734)
+++ soc2015/clord/head/sys/contrib/ficl/i386/sysdep.h	Fri Aug 14 02:25:00 2015	(r289735)
@@ -183,7 +183,7 @@
 ** Contributed by Guy Carver
 */
 #if !defined (FICL_WANT_FLOAT)
-#define FICL_WANT_FLOAT 0
+#define FICL_WANT_FLOAT 1
 #endif
 
 /*

Modified: soc2015/clord/head/sys/contrib/ficl/softcore/jhlocal.fr
==============================================================================
--- soc2015/clord/head/sys/contrib/ficl/softcore/jhlocal.fr	Fri Aug 14 02:20:37 2015	(r289734)
+++ soc2015/clord/head/sys/contrib/ficl/softcore/jhlocal.fr	Fri Aug 14 02:25:00 2015	(r289735)
@@ -23,8 +23,10 @@
 \ "ficlInstruction0" is the FICL instruction for "push a 0 on the data stack".
 \ --lch
 : compiled-zero ficlInstruction0 , ;
+S" FICL_WANT_FLOAT" ENVIRONMENT? drop [if]
 \ And this is the instruction for a floating-point 0 (0.0e).
 : compiled-float-zero ficlInstructionF0 , ;
+[endif]
 
 
 : ?--   ( c-addr u -- c-addr u flag )