Add new @primitive to warn "block supersedes default value argument"

Author: andrykonchin

src/main/java/org/truffleruby/core/kernel/KernelNodes.java

@@ -2041,4 +2041,20 @@ protected Object warn(
 
     }
 
+    @Primitive(name = "warn_block_supersedes_default_value_argument")
+    public abstract static class WarnBlockSupersedesDefaultValueArgumentNode extends PrimitiveNode {
+        @Specialization
+        protected Object warn(
+                @Cached("new()") WarnNode warnNode) {
+            if (warnNode.shouldWarn()) {
+                warnNode.warningMessage(
+                        getContext().getCallStack().getTopMostUserSourceSection(),
+                        "block supersedes default value argument");
+            }
+
+            return Nil.INSTANCE;
+        }
+
+    }
+
 }

src/main/ruby/truffleruby/core/array.rb

@@ -407,7 +407,7 @@ def fetch(idx, default=undefined)
 
     if idx < 0 or idx >= size
       if block_given?
-        warn 'block supersedes default value argument', uplevel: 1 unless Primitive.undefined?(default)
+        Primitive.warn_block_supersedes_default_value_argument unless Primitive.undefined?(default)
 
         return yield(orig)
       end

src/main/ruby/truffleruby/core/env.rb

@@ -143,7 +143,7 @@ def include?(key)
 
   def fetch(key, absent=undefined)
     if block_given? and !Primitive.undefined?(absent)
-      warn 'block supersedes default value argument', uplevel: 1
+      Primitive.warn_block_supersedes_default_value_argument
     end
 
     if value = lookup(key)

src/main/ruby/truffleruby/core/hash.rb

@@ -231,7 +231,7 @@ def fetch(key, default=undefined)
     end
 
     if block_given?
-      warn 'block supersedes default value argument', uplevel: 1 unless Primitive.undefined?(default)
+      Primitive.warn_block_supersedes_default_value_argument unless Primitive.undefined?(default)
 
       return yield(key)
     end

src/main/ruby/truffleruby/core/thread.rb

@@ -223,7 +223,7 @@ def report_on_exception=(val)
   end
 
   def fetch(name, default = undefined)
-    warn 'block supersedes default value argument' if !Primitive.undefined?(default) && block_given?
+    Primitive.warn_block_supersedes_default_value_argument if !Primitive.undefined?(default) && block_given?
 
     key = convert_to_local_name(name)
     locals = Primitive.thread_get_fiber_locals self

src/main/ruby/truffleruby/core/truffle/polyglot.rb

@@ -156,7 +156,7 @@ def fetch(key, default = undefined)
       end
 
       if block_given?
-        warn 'block supersedes default value argument', uplevel: 1 unless Primitive.undefined?(default)
+        Primitive.warn_block_supersedes_default_value_argument unless Primitive.undefined?(default)
 
         return yield(key)
       end