[R-gregmisc-users] SF.net SVN: r-gregmisc: [1226] trunk/SASxport/src

[<wa...@us...>]

Revision: 1226
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1226&view=rev
Author:   warnes
Date:     2007-11-09 11:59:48 -0800 (Fri, 09 Nov 2007)

Log Message:
-----------
Apply patches to fix problems on 64 bit platforms, as sumitted by Brian Ripley.

Modified Paths:
--------------
    trunk/SASxport/src/ibm2ieee.c
    trunk/SASxport/src/ieee2ibm.c

Modified: trunk/SASxport/src/ibm2ieee.c
===================================================================
--- trunk/SASxport/src/ibm2ieee.c	2007-11-07 19:01:02 UTC (rev 1225)
+++ trunk/SASxport/src/ibm2ieee.c	2007-11-09 19:59:48 UTC (rev 1226)
@@ -73,7 +73,7 @@
 	 */
 	register int	i;
 	for( i=count-1; i >= 0; i-- )  {
-		register unsigned left, right, signbit;
+		register unsigned int left, right, signbit;
 		register int exp;
 
 		left  = (in[0]<<24) | (in[1]<<16) | (in[2]<<8) | in[3];

Modified: trunk/SASxport/src/ieee2ibm.c
===================================================================
--- trunk/SASxport/src/ieee2ibm.c	2007-11-07 19:01:02 UTC (rev 1225)
+++ trunk/SASxport/src/ieee2ibm.c	2007-11-09 19:59:48 UTC (rev 1226)
@@ -53,7 +53,7 @@
 	 */
 	register int	i;
 	for( i=count-1; i >= 0; i-- )  {
-	  register unsigned long left, right;
+	  register unsigned int left, right;
 	  register int fix, exp, signbit;
 
 		left  = (in[0]<<24) | (in[1]<<16) | (in[2]<<8) | in[3];


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.