Перепутал название. Она в модуле Ta_STAreas, Ta_DisAreas
Код:
(*- 20111223, ТЕЭ, средство для установки правильного значения Kernel.baseStack из ПО,
использующего динамическую библиотеку *)
PROCEDURE SetKernelBaseStack* (x: INTEGER);
VAR
m: Kernel.Module;
ref, adr: INTEGER; mode, form: SHORTCHAR; desc: Kernel.Type; name: Kernel.Utf8Name;
BEGIN
m := Kernel.modList;
WHILE (m # NIL) & ~(m.name = "Kernel") DO
m := m.next
END;
ASSERT(m # NIL, 90);
ref := m.refs; Kernel.GetRefProc(ref, adr, name); ASSERT(adr # 0, 91);
Kernel.GetRefVar(ref, mode, form, desc, adr, name);
WHILE (mode = 1X) & ~(name = "baseStack") DO
Kernel.GetRefVar(ref, mode, form, desc, adr, name)
END;
ASSERT(mode = 1X, 92); ASSERT(form = 6X, 93);
SYSTEM.PUT(m.data + adr, x)
END SetKernelBaseStack;
Под именем ThisKernelVar я ее к себе "импортировал", слегка обобщив.