<<>> <> <> <> << This is the 'client' module of this package but, because this package tests with INLINE procedures, most of the code is in XMesaCmplr10Defs2. >> DIRECTORY RunRegressions, XMesaCmplr10Defs2; XMesaCmplr11d: PROGRAM IMPORTS RunRegressions, XMesaCmplr10Defs2 = BEGIN <> XMesaCall11d: PROCEDURE = { XMesaCmplr10Defs2.MyInlineProc[]; }; XMesaCmplr10Defs2.header200 ¬ "ModD 200's compiler tests."; XMesaCmplr10Defs2.header300 ¬ "ModD 300's compiler tests."; XMesaCmplr10Defs2.dc ¬ "Defs CONSTANT INLINE."; XMesaCmplr10Defs2.u ¬ "Uninitialized var INLINE."; XMesaCmplr10Defs2.iget ¬ "Imported with Get INLINE."; XMesaCmplr10Defs2.ur ¬ "Uninitialized REC INLINE."; XMesaCmplr10Defs2.ua ¬ "Uninitialized ARRAY INLINE."; XMesaCmplr10Defs2.done ¬ "Done."; <> RunRegressions.RegisterTest[XMesaCall11d, "test11d"]; END.