InlineTestIllegal2.mesa
mna 1/30/92
DIRECTORY
InlineTestIllegalDefs;
InlineTestIllegal2: PROGRAM
IMPORTS InlineTestIllegalDefs
= BEGIN
callerType: TYPE = InlineTestIllegalDefs.callerType;
TestIllegalProcVariables2: PROC = {
e: callerType = InlineCCodeProc;
};
InlineCCodeProc: PROC[i: INTEGER] RETURNS [INTEGER] = MACHINE CODE {
"+";
"IntCCodeProc(k)\n";
"int k;\n";
"{\n";
"int i;\n";
"int j;\n";
"i = 5;\n";
"for (j = 0; j < 10; j++)\n";
"  i *= j;\n";
"return i;\n";
"}\n";
".";
};
END...