Code: Select all
MODULE Test;
IMPORT SYSTEM;
TYPE
T = RECORD END;
VAR
r: T;
PROCEDURE [code] Fail (r: T);
BEGIN
Fail(r)
END Test.
Code: Select all
MODULE Test;
IMPORT SYSTEM;
TYPE
T = RECORD END;
VAR
r: T;
PROCEDURE [code] Fail (r: T);
BEGIN
Fail(r)
END Test.
Additionally, it is not possible in the case of an ARRAY value parameter.Josef Templ wrote:the first parameter is passed as register eax but in case of a RECORD value parameter this is not possible.
if reject it in the backend, the errpos will be point to the end of the procedure head, instead of the first parameter. that is my concern.Josef Templ wrote: I would suggest to reject it in the backend, though, because code procedures are highly platform specific.
see DevCPC.Call:
Result(x.obj.link, tag) (* use result load for first parameter *)