From 4aca46af6ff2842d1fee3749bc5f061845d98725 Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Fri, 11 Aug 2017 13:33:39 +0200
Subject: [PATCH] Fix: Integer NAs are allowed for '.Random.seed'.
---
.../src/com/oracle/truffle/r/runtime/rng/RRNG.java | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/rng/RRNG.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/rng/RRNG.java
index e2e074001a..eecc1c27b5 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/rng/RRNG.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/rng/RRNG.java
@@ -410,7 +410,7 @@ public class RRNG {
public static void putRNGState() {
int[] seeds = currentGenerator().getSeeds();
seeds[0] = currentKind().ordinal() + 100 * currentNormKind().ordinal();
- RIntVector vector = RDataFactory.createIntVector(seeds, RDataFactory.COMPLETE_VECTOR);
+ RIntVector vector = RDataFactory.createIntVector(seeds, RDataFactory.INCOMPLETE_VECTOR);
REnvironment.globalEnv().safePut(RANDOM_SEED, vector.makeSharedPermanent());
}
}
--
GitLab