System Procedures Mark and Release

This function processes system procedures Mark and Release.
Function Proc_Mark_Release: Word; Far;
Var PointerVariable: TExpression;
begin
  ExpectTokenAndGetNext (Token_LeftParenthesis);
  PointerVariable.ExpectPointerVariable;
  PointerVariable.ConvertToPointerAndPush;
  ExpectTokenAndGetNext (Token_RightParenthesis);
  StoreCode_icGoSub (PointerVariable.IntermediateCodeOffset);
  GenerateInstruction_CALL_FAR (ProcParameter);
  Proc_Mark_Release := EndSubroutine;
end;
 
 
 
© 2017 Turbo Pascal | Privacy Policy