Protection exception in Lscpy() under INTERPRET.

[RossPatterson]

The instruction Interpret 'Return F()' crashes CMS with message DMSITP143T ADDRESSING EXCEPTION OCCURRED AT 3ACD6A IN SYSTEM ROUTINE EXEC, RE-IPL CMS.. This has been verified in VM/370 CE 1.2, with the version of BREXX it ships with.

Test case:

/* */
Interpret 'Return F()'
Exit

F: Procedure
Return 2

This happens because something I haven't yet located in BREXX is calling Lscpy() with a to parameter set to 0. The protection exception occurs when Lscpy() attempts to store into the Lstr object at that location.

There is a work-around: store the function result into a variable, and return that instead. This example works fine:

Interpret 'R = F()'
Return R

F: Procedure
Return 2

[RossPatterson]

This is reproducible in the original bREXX at the latest version (2.1.9).