Perlito5 - java - add operation "PlObject * int"

fglock · Oct 18, 2019 · a13a978 · a13a978
1 parent 47ef73a
commit a13a978
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/src5/lib/Perlito5/Java.pm b/src5/lib/Perlito5/Java.pm
@@ -834,13 +834,6 @@ sub to_native_int {
             {
                 return to_native_int( $cond->{arguments}[0], $level, $java_type ) . " - " . to_native_int( $cond->{arguments}[1], $level, $java_type );
             }
-            if (  $cond->{code} eq 'infix:<*>'
-               && (   $cond->{arguments}[0]->isa( 'Perlito5::AST::Int' )
-                  ||  $cond->{arguments}[1]->isa( 'Perlito5::AST::Int' ) )
-               )
-            {
-                return to_native_int( $cond->{arguments}[0], $level, $java_type ) . " * " . to_native_int( $cond->{arguments}[1], $level, $java_type );
-            }
 
         }
 

diff --git a/src5/lib/Perlito5/Java/Runtime.pm b/src5/lib/Perlito5/Java/Runtime.pm
@@ -3702,6 +3702,9 @@ EOT
       ))
 
     , <<'EOT'
+    public PlObject mul(int v) {
+        return this.mul(new PlInt(v));
+    }
 }
 class PlScalarObject extends PlObject {
     public PlScalarObject() {