From 2cbee21119cdd2feb82d7d0d6295202b4fca9a03 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Mon, 8 Apr 2002 15:03:06 +0000
Subject: [PATCH] It was possible for calcPerform to return a nan (not a
 number)

---
 src/libCom/calcPerform.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/libCom/calcPerform.c b/src/libCom/calcPerform.c
index 38442f385..46a399ecc 100644
--- a/src/libCom/calcPerform.c
+++ b/src/libCom/calcPerform.c
@@ -102,6 +102,8 @@
 
 #ifdef vxWorks
 #include <vxWorks.h>
+#include        <private/mathP.h>  /* For isNan*/
+#define isnan isNan
 #endif
 
 #include	<stdlib.h>
@@ -514,7 +516,7 @@ printf ("*FINISHED*\n");
 		*presult = *pstacktop;
 	else
 		return(-1);
-	return(0);
+	return((isnan(*presult) ? -1 : 0));
 }