按规划持续工作

wasm-port/vendor/linuxcnc/tests/interp/sub-call-from-sub/expected

@@ -0,0 +1,17 @@
+ N..... USE_LENGTH_UNITS(CANON_UNITS_MM)
+ N..... SET_G5X_OFFSET(1, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+ N..... SET_G92_OFFSET(0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+ N..... SET_XY_ROTATION(0.0000)
+ N..... SET_FEED_REFERENCE(CANON_XYZ)
+ N..... ON_RESET()
+ N..... COMMENT("Test: calling a sub from within another sub is valid")
+ caller: 1.000000 2.000000 3.000000
+ helper: 4.000000 5.000000 6.000000
+ N..... SET_G5X_OFFSET(1, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000)
+ N..... SET_XY_ROTATION(0.0000)
+ N..... SET_FEED_MODE(0, 0)
+ N..... SET_FEED_RATE(0.0000)
+ N..... STOP_SPINDLE_TURNING(0)
+ N..... SET_SPINDLE_MODE(0 0.0000)
+ N..... PROGRAM_END()
+ N..... ON_RESET()

wasm-port/vendor/linuxcnc/tests/interp/sub-call-from-sub/subs/caller.ngc

@@ -0,0 +1,5 @@
+o<caller> sub
+(PRINT,X caller: #1 #2 #3)
+o<helper> call [4] [5] [6]
+o<caller> endsub
+M2

wasm-port/vendor/linuxcnc/tests/interp/sub-call-from-sub/subs/helper.ngc

@@ -0,0 +1,4 @@
+o<helper> sub
+(PRINT,X helper: #1 #2 #3)
+o<helper> endsub
+M2

wasm-port/vendor/linuxcnc/tests/interp/sub-call-from-sub/test.ini

@@ -0,0 +1,2 @@
+[RS274NGC]
+SUBROUTINE_PATH=subs

wasm-port/vendor/linuxcnc/tests/interp/sub-call-from-sub/test.ngc

@@ -0,0 +1,3 @@
+(Test: calling a sub from within another sub is valid)
+o<caller> call [1] [2] [3]
+M2

wasm-port/vendor/linuxcnc/tests/interp/sub-call-from-sub/test.sh

@@ -0,0 +1,7 @@
+#!/bin/bash
+# Calling a sub from within another sub must work.
+# This verifies that the nested definition check does not
+# incorrectly block valid nested calls.
+# Regression test for LinuxCNC/linuxcnc#3880.
+rs274 -g -i test.ini test.ngc | awk '{$1=""; print}'
+exit "${PIPESTATUS[0]}"