Node:CurrentRoutineName, Next:, Previous:CStringCopyString, Up:Reference



CurrentRoutineName

Synopsis


function CurrentRoutineName: String;

Description

CurrentRoutineName returns the name of the current routine from where it's called.

Conforming to

CurrentRoutineName is a GNU Pascal extension.

Example


program CurrentRoutineNameDemo;

procedure FooBar;
begin
  WriteLn (CurrentRoutineName)  { `FooBar' }
end;

begin
  WriteLn (CurrentRoutineName);  { `main program' }
  FooBar
end.

See also