Coerce doubles into integers wherever possible, use hash code for doubles that is compatible with integers.

src/core/org/luaj/compiler/LexState.java

@@ -350,7 +350,7 @@ public class LexState {
 		}
 		else
 			d = Double.parseDouble(str);
-		seminfo.r = new LDouble(d);
+		seminfo.r = LDouble.numberOf(d);
 		return true;
 	}
 

src/core/org/luaj/lib/MathLib.java

@@ -136,7 +136,7 @@ public class MathLib extends LFunction {
 	
 	private static void setResult( LuaState vm, double d ) {
 		vm.resettop();
-		vm.pushlvalue( LDouble.valueOf(d) );
+		vm.pushlvalue( LDouble.numberOf(d) );
 	}
 	
 	public int invoke(LuaState vm) {

src/core/org/luaj/vm/LDouble.java

@@ -44,6 +44,8 @@ public class LDouble extends LNumber {
 		if ( m_value == 0 ) {
 			return 0;
 		} else {
+			int iz = (int) m_value;
+			if ( iz == m_value ) return iz;
 			long bits = Double.doubleToLongBits( m_value );
 			return ( (int) bits >> 32 ) + ( (int) bits );
 		}
@@ -93,7 +95,7 @@ public class LDouble extends LNumber {
 		case Lua.OP_MUL: return LDouble.numberOf( lhs * rhs );
 		case Lua.OP_DIV: return LDouble.numberOf( lhs / rhs );
 		case Lua.OP_MOD: return LDouble.numberOf( lhs - Math.floor(lhs/rhs) * rhs );
-		case Lua.OP_POW: return Platform.getInstance().mathPow( LDouble.valueOf(lhs), LDouble.valueOf(rhs));
+		case Lua.OP_POW: return Platform.getInstance().mathPow( LDouble.numberOf(lhs), LDouble.numberOf(rhs));
 		}
 		LuaState.vmerror( "bad bin opcode" );
 		return null;

src/core/org/luaj/vm/LString.java

@@ -391,7 +391,7 @@ public class LString extends LValue {
 			} catch ( NumberFormatException nfe ) {
 				if ( base == 10 ) {
 					try {
-						return new LDouble( Double.parseDouble( str ) );
+						return LDouble.numberOf( Double.parseDouble( str ) );
 					} catch ( NumberFormatException nfe2 ) {
 					}
 				}

src/core/org/luaj/vm/LoadState.java

@@ -149,7 +149,7 @@ public class LoadState {
 		}
 		
 		double value = Double.longBitsToDouble(bits);
-		return new LDouble( value );
+		return LDouble.numberOf( value );
 	}
 	
 	LNumber loadNumber() throws IOException {

src/core/org/luaj/vm/LuaState.java

@@ -1445,7 +1445,7 @@ public class LuaState extends Lua {
 	 * 
 	 */
 	public void pushnumber(double d) {
-		pushlvalue(new LDouble(d));
+		pushlvalue(LDouble.numberOf(d));
 	}
 
 	/**

src/j2se/org/luaj/lib/j2se/CoerceJavaToLua.java

@@ -62,7 +62,7 @@ public class CoerceJavaToLua {
 		Coercion doubleCoercion = new Coercion() {
 			public LValue coerce( Object javaValue ) {
 				Number n = (Number) javaValue;
-				return new LDouble( n.doubleValue() );
+				return LDouble.numberOf( n.doubleValue() );
 			} 
 		} ;
 		Coercion stringCoercion = new Coercion() {

src/script/org/luaj/script/LuaScriptEngine.java

@@ -227,9 +227,7 @@ public class LuaScriptEngine implements ScriptEngine, Compilable {
 		}
 		private LValue toLua(Object javaValue) {
 			if ( javaValue instanceof Number ) {
-				double d = ((Number)javaValue).doubleValue();
-				int id = (int) d;
-				return (d==id? LInteger.valueOf(id): new LDouble(d));
+				return LDouble.numberOf(((Number)javaValue).doubleValue());
 			} else if ( javaValue instanceof String ) {
 				return LString.valueOf(javaValue.toString());
 			} else if ( javaValue == null ) {

src/test/java/org/luaj/vm/LoadStateTest.java

@@ -54,13 +54,7 @@ public class LoadStateTest extends TestCase {
 	
 	private LNumber simpleBitsToLuaNumber( long bits ) {
 		double value = Double.longBitsToDouble( bits );
-		int valueAsInt = (int) value;
-		
-		if ( value == (double) valueAsInt ) {
-			return LInteger.valueOf( valueAsInt );
-		} else {
-			return new LDouble( value );
-		}
+		return LDouble.numberOf(value);
 	}
 	
 	public void testLongBitsToLuaNumberSpeed() throws InterruptedException {

src/test/java/org/luaj/vm/MathLibTest.java

@@ -228,8 +228,8 @@ public class MathLibTest extends TestCase {
 	
 	private void tryMathOp(int id, double a, double b) {
 		try {
-			double expected = j2se.mathop(id, LDouble.valueOf(a), LDouble.valueOf(b)).toJavaDouble();
-			double actual = j2me.mathop(id, LDouble.valueOf(a), LDouble.valueOf(b)).toJavaDouble();
+			double expected = j2se.mathop(id, LDouble.numberOf(a), LDouble.numberOf(b)).toJavaDouble();
+			double actual = j2me.mathop(id, LDouble.numberOf(a), LDouble.numberOf(b)).toJavaDouble();
 			if ( supportedOnJ2me )
 				assertEquals( expected, actual, 1.e-5 );
 			else

src/test/res/table.lua

@@ -209,4 +209,16 @@ for i,test in ipairs(tests) do
 	print( 't[nil]',     pcall( function() return testtable[nil] end ) )
 	print( 't[nil]=nil', pcall( function() testtable[nil]=nil end ) )
 	print( 't[nil]',     pcall( function() return testtable[nil] end ) )
-end
+end
+
+-- tables with doubles
+local t = { [1]='a', [2]='b', [3.0]='c', [7]='d', [9]='e', [20]='f', [30.0]='g', [12.5]='h' }
+print(#t)
+print(t[1], t[2], t[3], t[7], t[9], t[20], t[30])
+print(t[1.0], t[2.0], t[3.0], t[7.0], t[9.0], t[20.0], t[30.0], t[12.5])
+local i,j,k,l,m,n,o = math.ceil(0.7),math.floor(2.1),math.abs(-3.0),math.sqrt(49.0),math.ceil(8.6),math.floor(20.5),math.max(1.2,30.0)
+print(i, j, k, l, m, n, o)
+print(t[i], t[j], t[k], t[l], t[m], t[n], t[o])
+local half,two = .5,2
+print(t[1.5-half], t[1.5+half], t[6/2], t[3.5*2], t[8.5+half], t[20.5-half], t[60*half], t[13-half])
+print(#t)