Explorar o código

* fixed typo in r10602 causing the names of all record structures of
classes to be replaced with "sym_name" in the debuginfo

git-svn-id: trunk@10642 -

Jonas Maebe %!s(int64=17) %!d(string=hai) anos
pai
achega
81ad9ea6e8
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/dbgstabs.pas

+ 1 - 1
compiler/dbgstabs.pas

@@ -484,7 +484,7 @@ implementation
           pointer to the struct), otherwise gdb crashes (see tests/webtbs/tw9766.pp) }
           pointer to the struct), otherwise gdb crashes (see tests/webtbs/tw9766.pp) }
         if is_class(def) and
         if is_class(def) and
            tobjectdef(def).writing_class_record_dbginfo then
            tobjectdef(def).writing_class_record_dbginfo then
-          st:=def_stabstr_evaluate(def,'"{$sym_name}:$1$2=',[stabchar,def_stab_classnumber(tobjectdef(def))])
+          st:=def_stabstr_evaluate(def,'"${sym_name}:$1$2=',[stabchar,def_stab_classnumber(tobjectdef(def))])
         else
         else
           begin
           begin
             { Type names for types defined in the current unit are already written in
             { Type names for types defined in the current unit are already written in