home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SHDK_2.ZIP / OVERSHDK.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-13  |  603 b   |  26 lines
  1. {$F+}
  2. {This unit is required for the test ensemble in order to permit the
  3.  initialization of the overlay system prior to any other heap
  4.  manipulation.}
  5.  
  6. unit OverShdk;
  7.  
  8. interface
  9.  
  10. uses Overlay;
  11.  
  12. implementation
  13.  
  14. begin
  15.   OvrInit('TESTSHDK.OVR');
  16.   If OvrResult <> OvrOK then begin
  17.     WriteLn('Can''t initialize overlay file. Error code = ',OvrResult);
  18.     Halt(1);
  19.     end;
  20.   OvrSetBuf(OvrGetBuf + $4000);
  21.   If OvrResult <> OvrOK then begin
  22.     WriteLn('Can''t adjust overlay buffer. Error code = ',OvrResult);
  23.     WriteLn('     The tests may run very slowly.');
  24.     end;
  25.   end.
  26.