home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SHDK_2.ZIP / SHTSTOVR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-02  |  593 b   |  21 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. Unit ShTstOvr;
  6. Interface
  7. Uses Overlay;
  8. Implementation
  9. begin
  10.   OvrInit('TESTSHDK.OVR');
  11.   If OvrResult <> OvrOK then begin
  12.     WriteLn('Can''t initialize overlay file. Error code = ',OvrResult);
  13.     Halt(1);
  14.     end;
  15.   OvrSetBuf(OvrGetBuf + $4000);
  16.   If OvrResult <> OvrOK then begin
  17.     WriteLn('Can''t adjust overlay buffer. Error code = ',OvrResult);
  18.     WriteLn('     The tests may run very slowly.');
  19.     end;
  20.   end.
  21.