Cedar Nucleus: temp hack to make outload/inload files suitable for Nucleus
CustomizeOutload.mesa
Andrew Birrell April 26, 1983 1:24 pm
Last Edited by: Levin, July 1, 1983 3:47 pm
DIRECTORY
BootFile,
File,
SpecialFile,
SpecialSpace,
WVMOutLd;
CustomizeOutload: PROGRAM
IMPORTS BootFile, File, SpecialFile, SpecialSpace, WVMOutLd
SHARES File, WVMOutLd =
BEGIN
ExtendIfNeeded:
PROC [cap: File.Capability] =
BEGIN
pagesForMap: NAT = -- (2^24/wordsPerPage)*SIZE[MapEntry]/wordsPerPage -- 256;
desiredSize:
NAT =
BootFile.MemorySizeToFileSize[SpecialSpace.realMemorySize] + pagesForMap;
cap.permissions ← 31--all--;
IF File.GetSize[cap] >= desiredSize THEN RETURN;
File.SetSize[cap, desiredSize];
[] ← SpecialFile.MakeBootable[file: cap, count: desiredSize, lastLink: LOOPHOLE[LONG[0]]];
END;
DoIt:
PROC =
BEGIN
ExtendIfNeeded[WVMOutLd.debugger];
ExtendIfNeeded[WVMOutLd.debuggee];
END;
DoIt[];
END.