| 1234567891011121314151617181920 |
- Listing:
- 1 (* Copyright (C) 1990 Jensen & Partners International *)
- 2 (*# module(init_code => off) *)
- 3 (*# call(near_call => off,
- 4 reg_param=>(ax),
- 5 reg_saved=>(ax,bx,cx,dx,di,si,ds,st1,st2)) *)
- 6 DEFINITION MODULE TSRLow ;
- 7
- 8 PROCEDURE ShrinkHeap(HeapSize: CARDINAL): CARDINAL;
- 9
- 10 (* Shrinks far heap to current size plus HeapSize bytes.
- 11 Returns size in paragraphs of process memory block *)
- 12
- 13 END TSRLow.
- ***** ^ not supported yet
- 1 error
|
