System Functions MemAvail and MaxAvail

This procedure processes system functions MemAvail and MaxAvail. It generates a call to compiler routine that returns value according to the heap status and sets the expression type to LongInt
Procedure Func_MemAvail_MaxAvail; Far;
begin
  GenerateInstruction_CALL_FAR (FuncParameter);
  With Expression^ do
    begin
      Expression^.EndIntermediateCodeSubroutine;
      Location := elRegister;
      DataType := itLongInt;
      UsedRegisters := [urSP, urDX, urAX];
      LocationData.Register := rDX_AX;
      TypeDefPtr := Ptr (SystemUnitSegment, LongInt_TypeOffset);
    end;
end;
 
 
 
© 2017 Turbo Pascal | Privacy Policy