[Truffle] Allow writing long values to pointer locations.

jruby · May 29, 2015 · fe2dad8 · fe2dad8 · nirvdrum · May 29, 2015
1 parent 9702554
commit fe2dad8
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/truffle/src/main/java/org/jruby/truffle/nodes/rubinius/PointerPrimitiveNodes.java b/truffle/src/main/java/org/jruby/truffle/nodes/rubinius/PointerPrimitiveNodes.java
@@ -197,7 +197,7 @@ public boolean setAutorelease(RubyBasicObject pointer, boolean autorelease) {
 
     }
 
-    @RubiniusPrimitive(name = "pointer_set_at_offset", lowerFixnumParameters = {0, 2})
+    @RubiniusPrimitive(name = "pointer_set_at_offset")
     @ImportStatic(RubiniusTypes.class)
     public static abstract class PointerSetAtOffsetPrimitiveNode extends RubiniusPrimitiveNode {
 
@@ -206,11 +206,17 @@ public PointerSetAtOffsetPrimitiveNode(RubyContext context, SourceSection source
         }
 
         @Specialization(guards = "type == TYPE_INT")
-        public int setAtOffset(RubyBasicObject pointer, int offset, int type, int value) {
+        public int setAtOffsetInt(RubyBasicObject pointer, int offset, int type, int value) {
             getPointer(pointer).putInt(offset, value);
             return value;
         }
 
+        @Specialization(guards = "type == TYPE_LONG")
+        public long setAtOffsetLong(RubyBasicObject pointer, int offset, int type, long value) {
+            getPointer(pointer).putLong(offset, value);
+            return value;
+        }
+
     }
 
     @RubiniusPrimitive(name = "pointer_read_pointer")