X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fsfm-write.c;h=fd500f45c00b42062240d2eeb7bdf24813e083b7;hb=f85548f27a1958bb6c84a6917b874c537f4c0bd6;hp=97028a4966f15440b5de0947e3be1436dff5c165;hpb=3a7fba81ceae5b049d0f7d671e9e3c3c43bbf703;p=pspp

diff --git a/src/sfm-write.c b/src/sfm-write.c
index 97028a4966..fd500f45c0 100644
--- a/src/sfm-write.c
+++ b/src/sfm-write.c
@@ -17,24 +17,7 @@
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
    02111-1307, USA. */
 
-/* AIX requires this to be the first thing in the file.  */
 #include <config.h>
-#if __GNUC__
-#define alloca __builtin_alloca
-#else
-#if HAVE_ALLOCA_H
-#include <alloca.h>
-#else
-#ifdef _AIX
-#pragma alloca
-#else
-#ifndef alloca			/* predefined by HP cc +Olibcalls */
-char *alloca ();
-#endif
-#endif
-#endif
-#endif
-
 #include "sfm.h"
 #include "sfmP.h"
 #include <assert.h>
@@ -46,7 +29,6 @@ char *alloca ();
 #include <unistd.h>	/* Required by SunOS4. */
 #endif
 #include "alloc.h"
-#include "approx.h"
 #include "error.h"
 #include "file-handle.h"
 #include "getline.h"
@@ -693,13 +675,13 @@ sfm_write_case (struct file_handle * h, const flt64 *elem, int n_elem)
 	      *ext->x++ = 255;
               continue;
             }
-	  else
+	  else if (*elem > INT_MIN && *elem < INT_MAX)
 	    {
-	      int value = *elem < 0 ? *elem - EPSILON : *elem + EPSILON;
+	      int value = *elem;
 
 	      if (value >= 1 - COMPRESSION_BIAS
 		  && value <= 251 - COMPRESSION_BIAS
-		  && approx_eq (value, *elem))
+		  && value == *elem)
                 {
 		  *ext->x++ = value + COMPRESSION_BIAS;
                   continue;