mim/development/mim/vax/pmap.mud

   1
   2 <DEFINE I$GET-PAGES (PAGLOC PAGES "AUX" (TUV <STACK <IUVECTOR 2>>) ERR
   3                      (STR "Error--ran out of virtual pages.  Killing processes may help.
   4 "))
   5   #DECL ((PAGLOC PAGES) FIX (TUV) <UVECTOR [2 FIX]>)
   6   <SET PAGLOC <- *17777777777* <PAGE-ADDRESS .PAGLOC>>>
   7   <COND (<G? .PAGLOC <CHTYPE ,I$P1-SIZE FIX>>
   8          <CALL SYSCALL GETRLIMIT 3 .TUV>
   9          <1 .TUV .PAGLOC>
  10          <PROG ()
  11            <COND (<NOT <SET ERR <CALL SYSCALL SETRLIMIT 3 .TUV>>>
  12                   <CALL PRINT 0 .STR <LENGTH .STR>>
  13                   <CALL QUIT 0>
  14                   <AGAIN>)
  15                  (T
  16                   <SETG I$P1-SIZE .PAGLOC>)>>)
  17         (T)>>
  18
  19 <DEFINE I$FLUSH-PAGES (PAGLOC PAGES)
  20   #DECL ((PAGLOC PAGES) FIX)
  21   T>
  22
  23 <DEFINE I$ASK-SYSTEM-FOR-PAGES (PAGES PGTBL)
  24   <>>
  25