68 lines
1.3 KiB
C
68 lines
1.3 KiB
C
|
//
|
||
|
|
// simple minded virtual memory system headers
|
||
|
|
//
|
||
|
|
|
||
|
|
typedef PVOID VA;
|
||
|
|
|
||
|
|
#define vaNil 0
|
||
|
|
|
||
|
|
#define VM_API pascal
|
||
|
|
|
||
|
|
|
||
|
|
#define InitVM()
|
||
|
|
#define CloseVM()
|
||
|
|
#define FreeVa(va,cb) (free((LPV)va))
|
||
|
|
#define VaAllocCb(cb) ((VA)LpvAllocCb(cb))
|
||
|
|
#define LpvFromVa(va, wLock) (LPV)(va)
|
||
|
|
#define DirtyVa(va)
|
||
|
|
#define UnlockW(w)
|
||
|
|
#define FreeLpv(lpv) (free(lpv))
|
||
|
|
|
||
|
|
typedef VA VP;
|
||
|
|
|
||
|
|
#define MkVpVa(vp, va) ((vp) = (VP)va)
|
||
|
|
#define VaFrVp(vp) ((VA)(vp))
|
||
|
|
|
||
|
|
|
||
|
|
LPV VM_API LpvAllocCb(ULONG cb);
|
||
|
|
VA VM_API VaAllocGrpCb(WORD grp, ULONG cb);
|
||
|
|
VOID VM_API FreeGrpVa(WORD grp, VA va, ULONG cb);
|
||
|
|
|
||
|
|
#ifdef SWAP_INFO
|
||
|
|
|
||
|
|
#define VM_MISC 0
|
||
|
|
#define VM_SEARCH_DEF 1
|
||
|
|
#define VM_ADD_DEF 2
|
||
|
|
#define VM_SEARCH_REF 3
|
||
|
|
#define VM_ADD_REF 4
|
||
|
|
#define VM_SEARCH_CAL 5
|
||
|
|
#define VM_ADD_CAL 6
|
||
|
|
#define VM_SEARCH_CBY 7
|
||
|
|
#define VM_ADD_CBY 8
|
||
|
|
#define VM_SEARCH_ORD 9
|
||
|
|
#define VM_ADD_ORD 10
|
||
|
|
#define VM_SEARCH_PROP 11
|
||
|
|
#define VM_ADD_PROP 12
|
||
|
|
#define VM_SEARCH_SYM 13
|
||
|
|
#define VM_ADD_SYM 14
|
||
|
|
#define VM_SEARCH_MOD 15
|
||
|
|
#define VM_ADD_MOD 16
|
||
|
|
#define VM_SORT_ATOMS 17
|
||
|
|
#define VM_FIX_UNDEFS 18
|
||
|
|
#define VM_CLEAN_REFS 19
|
||
|
|
#define VM_INDEX_TREE 20
|
||
|
|
#define VM_BUILD_MODSYM 21
|
||
|
|
#define VM_EMIT_ATOMS 22
|
||
|
|
#define VM_EMIT_TREE 23
|
||
|
|
|
||
|
|
extern WORD near iVMClient;
|
||
|
|
extern WORD near iVMGrp;
|
||
|
|
|
||
|
|
#define SetVMClient(x) (iVMClient = (x))
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
#define SetVMClient(x)
|
||
|
|
|
||
|
|
#endif
|