$PUSH – Save compiler options

This directive saves the current compiler options so that some of them may be modified locally, then restored with a $POP directive.

Several $PUSH may be nested (options are saved in a stack).

The saved options are: $ASSERTIONS, $BITMODE, $BOOLEVAL, $CODEGEN, $EXTENDED, $INTERRUPTS, $JUMPS, $WARNING, $HINTS (global and individuals), $OPTIMIZE, $SPACE, $STRICT.

• The $PUSH directive is local to the current PROCEDURE or FUNCTION. When the procedure or function ends, an automatic $POP is executed, so it is not necessary to include a $POP in the code.

procedure XYZ;
{$PUSH}
{$W OFF} // No warnings in this procedure
begin
 ...
end; // Here an automatic $POP is made, restoring previous options.