Code: Select all
MODULE Win; IMPORT SYSTEM;
PROCEDURE Proc (VAR [nil] lpModuleName: ARRAY OF CHAR);
END Proc;
BEGIN
Proc(NIL)
END Win.
How it works, or rather, does not work:
![Image](https://i2.piccy.info/i9/66f8ee39973146e8ae74960b705c7b79/1642254484/29185/1320134/Win.png)
The error is really caught inside DevOPC, and that's very good, but it's the wrong level. It should be caught at the moment of declaration in DevOPP.FormalParameters procedure. The suggested fix:
![Image](https://i2.piccy.info/i9/afca8cb743d2193047097d4081b2fa07/1642254806/19189/1320134/85091Fix.png)
The result of its work:
![Image](https://i2.piccy.info/i9/68683c10fb544e3607e198f7d5588d1c/1642254898/12476/1320134/FixWork.png)