Re: [fpc-pascal] Determining procedure's name

2010-03-03 Thread Wimpie Nortje
Thanks, I will look at the suggestions Mattias Gaertner wrote: On Wed, 03 Mar 2010 21:33:45 +0200 Wimpie Nortje wrote: Hello everybody, Is there a macro or function that gives the current procedure's name? E.g. procedure TClass.SomeProc; begin writeln(Format('This procedure's name is

[fpc-pascal] Re: gdb, dwarf, and ansistring

2010-03-03 Thread Seth Grover
> I believe this is a bug that was introduced with GDB 7.0 > Jonas You're right, I tried it with gdb 6.8 and it worked as you described: (gdb) print S $1 = (&ANSISTRING) @0x8069410: 0x8065074 'test' -SG -- This email is fiction. Any resemblance to actual events or persons living or dead is pure

Re: [fpc-pascal] Determining procedure's name

2010-03-03 Thread Mattias Gaertner
On Wed, 03 Mar 2010 21:33:45 +0200 Wimpie Nortje wrote: > Hello everybody, > > Is there a macro or function that gives the current procedure's name? > > E.g. > > procedure TClass.SomeProc; > begin > writeln(Format('This procedure's name is %s', [THE_MACRO])); > end; If you use Lazarus you c

Re: [fpc-pascal] Determining procedure's name

2010-03-03 Thread Jonas Maebe
On 03 Mar 2010, at 20:33, Wimpie Nortje wrote: > Is there a macro or function that gives the current procedure's name? There is a function, but only for methods: class function TObject.MethodName(address : pointer) : shortstring; Simply pass the address of a method as argument. There is

Re: [fpc-pascal] gdb, dwarf, and ansistring

2010-03-03 Thread Jonas Maebe
On 03 Mar 2010, at 16:02, Seth Grover wrote: > How can I print the value of a var ansistring parameter in gdb with > dwarf debugging information compiled in? I believe this is a bug that was introduced with GDB 7.0 (I can reproduce it with GDB 7.0). Can you try with GDB 6.8 instead? With GDB 6.

[fpc-pascal] Determining procedure's name

2010-03-03 Thread Wimpie Nortje
Hello everybody, Is there a macro or function that gives the current procedure's name? E.g. procedure TClass.SomeProc; begin writeln(Format('This procedure's name is %s', [THE_MACRO])); end; should print This procedure's name is TClass.SomeProc or This procedure's name is SomeProc

[fpc-pascal] gdb, dwarf, and ansistring

2010-03-03 Thread Seth Grover
Given the following example: program project1; {$mode objfpc}{$H+} procedure doit (var s : ansistring); begin s := s + ' ' + s; end; var s : ansistring; begin s := 'test'; doit(s); end. When I com