Back to local compiler directives.

$GOTO

The $GOTO directive:

• determines whether jump commands can be used;
• knows the ON and OFF switches;
• defaults to {$GOTO OFF}. That is, no jump commands are allowed;
• can be enabled if the directive is {$GOTO ON}, the compiler supports the GOTO and LABEL commands;
• corresponds to the -Sg command line switch.

Example:

  {$GOTO ON}

 label TheEnd;

 begin
   If ParamCount = 0 then
     GoTo TheEnd;
   Writeln('Parameters were passed on the command line');
 TheEnd:
 end.

Note for inline assembler: If labels are used in the assembly code, the directive {$GOTO ON} must be used.

From the Free Pascal wiki, page "sGoto", as it stood on 2020-02-16 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.