[Xsb-commits] CVS: XSB/emu function.c,1.34,1.35

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/emu
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv1763

Modified Files:
	function.c 
Log Message:
Ifdeffed the definition of asinh out for windows, where it is not defined.


Index: function.c
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/function.c,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- function.c	27 Sep 2010 18:03:30 -0000	1.34
+++ function.c	28 Oct 2010 00:57:15 -0000	1.35
@@ -707,8 +707,13 @@
 	      else set_flt_val(value,-fiflt_val(fiop1));
 	    break;
 	  } else if (strcmp(get_name(op_psc),"asinh")==0) {
+#ifdef WIN_NT
+	    xsb_warn("asinh function NOT defined");
+	    set_flt_val(value,0.0);
+#else
 	    if (isfiint(fiop1)) set_flt_val(value,(Float)asinh((Float)fiint_val(fiop1)));
 	    else set_flt_val(value,(Float)asinh(fiflt_val(fiop1)));
+#endif
 	    break;
 //		PM: the following two function definitions are incomplete as they need to
 //			handle out of range errors but I haven't figured out yet how to do it!