Merge pull request #611 from smeup/performance/LS24004037/recursive-c…

…all-regression Fix infinite recursion in RPG programs by restoring their error state
smeup · Sep 13, 2024 · 719e575 · 719e575
2 parents accedce + bd4ff65
commit 719e575
Show file tree

Hide file tree

Showing 8 changed files with 8 additions and 8 deletions.
diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_05.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_05.rpgle
@@ -36,7 +36,7 @@
       * Variable for loop
      C                   EVAL      $CICL=10000
       * Call
-     C                   CALL      'MUTE10_05'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    $CICL
       * End time
      C                   TIME                    $TIMEN

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_06.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_06.rpgle
@@ -32,7 +32,7 @@
       * Loop on PGM
      C                   DO        500
      C                   EVAL      XXRET='1'
-     C                   CALL      'MUTE10_06'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    ARRAY
      C                   PARM                    XXRET
      C

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_08.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_08.rpgle
@@ -32,7 +32,7 @@
       * Variable for loop
      C                   EVAL      $CICL=10000
       * Call
-     C                   CALL      'MUTE10_08'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    $CICL
       * End time
      C                   TIME                    $TIMEN

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_82.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_82.rpgle
@@ -32,7 +32,7 @@
       * Loop on PGM
      C                   DO        500
      C                   EVAL      XXRET=' '
-     C                   CALL      'MUTE10_06'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    ARRAY
      C                   PARM                    XXRET
      C

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_84.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_84.rpgle
@@ -36,7 +36,7 @@
       * Varable for loop
      C                   EVAL      $CICL=100000
       * Call
-     C                   CALL      'MUTE10_05'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    $CICL
       * End time
      C                   TIME                    $TIMEN

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_85.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_85.rpgle
@@ -36,7 +36,7 @@
       * Variable for loop
      C                   EVAL      $CICL=1000000
       * Call
-     C                   CALL      'MUTE10_05'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    $CICL
       * end time
      C                   TIME                    $TIMEN

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_86.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_86.rpgle
@@ -32,7 +32,7 @@
       * Varable for loop
      C                   EVAL      $CICL=100000
       * Call
-     C                   CALL      'MUTE10_08'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    $CICL
       * End time
      C                   TIME                    $TIMEN

diff --git a/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_87.rpgle b/rpgJavaInterpreter-core/src/test/resources/performance/MUTE10_87.rpgle
@@ -32,7 +32,7 @@
       * Variable for loop
      C                   EVAL      $CICL=1000000
       * Call
-     C                   CALL      'MUTE10_08'
+     C                   CALL      'WAIT4BENETTI'
      C                   PARM                    $CICL
       * end time
      C                   TIME                    $TIMEN