function CurrentRoutineName: String;
CurrentRoutineName returns the name of the current routine from where it's called.
CurrentRoutineName is a GNU Pascal extension.
program CurrentRoutineNameDemo; procedure FooBar; begin WriteLn (CurrentRoutineName) { `FooBar' } end; begin WriteLn (CurrentRoutineName); { `main program' } FooBar end.