does dwarf (2) (-gw) start to put local vars of nested parents in debug info?

Procedure foo:
var a: pchar;
   procedure bar;
   begin
     writeln; // break here
   end;
var s:string;
begin
   s:='abc'
   a:= @s[1];
   bar;
end;
"A" is now in locals => wih a broken value though 0xaaaaaaaa => instead
of a valid pointer;

Martin