#1097 Error message missing label

[Rony G. Flatscher]

The following program defines an internal routine with a label which strictly expects two arguments. The test program intentionally only supplies one, such that an error gets raised. The error message misses the name of the label, as can be seen in the error message that follows the program.

--- cut here ---
call add 1
exit

add:
use strict arg op1, op2
return op1+op2
--- cut here ---

Output:

--- cut here ---
5 - use strict arg op1, op2
1 - call add 1
Error 40 running F:\tmp\orx\bugs\test.rex line 5: Incorrect call to routine
Error 40.3: Not enough arguments in invocation of ; minimum expected is 2
--- cut here ---

If using a routine directive instead, the error message 40.3 will denote the routine's name: "... of ADD; minimum...".

[Rick McGuire]

Committed revision 8178. trunk
Committed revision 8179. 4.1 fixes branch

[Mark Miesfeld]

This fix is in the 4.1.2 release of ooRexx.