From 19ed6292220b738a03d6936d90b745b2fe071a18 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 21 Jun 2001 13:44:29 +0000
Subject: [PATCH] Simplification for s48_extract_unsigned_integer.

---
 c/external.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/c/external.c b/c/external.c
index 808647c..343d899 100644
--- a/c/external.c
+++ b/c/external.c
@@ -835,7 +835,7 @@ s48_extract_unsigned_integer(s48_value value)
 	  (! S48_FIXNUM_P(boxed_high)) ||
 	  (high >  0xFFFF)) 
 	s48_raise_argtype_error(value);
-      else return (- (((- high) << 16) - low));
+      else return ((((unsigned long) high) << 16) + low);
     }
   }
 }