From e88ff7ae848252ca80c4b71dc45f6deda403caa4 Mon Sep 17 00:00:00 2001 From: peter Date: Mon, 31 Oct 2005 12:27:23 +0000 Subject: [PATCH] * fixed writing of old style tp-objects git-svn-id: trunk@1613 - --- compiler/dbgstabs.pas | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/compiler/dbgstabs.pas b/compiler/dbgstabs.pas index bfdd181c68..447c016665 100644 --- a/compiler/dbgstabs.pas +++ b/compiler/dbgstabs.pas @@ -276,7 +276,10 @@ implementation begin if def.stab_number=0 then def_stab_number(def); - result:=tostr(def.stab_number-1); + if (def.objecttype=odt_class) then + result:=tostr(def.stab_number-1) + else + result:=tostr(def.stab_number); end; @@ -726,12 +729,7 @@ implementation procvardef : result:=strpnew('*f'+def_stab_number(tprocvardef(def).rettype.def)); objectdef : - begin - if tobjectdef(def).writing_class_record_stab then - result:=objectdef_stabstr(tobjectdef(def)) - else - result:=strpnew('*'+def_stab_classnumber(tobjectdef(def))); - end; + result:=objectdef_stabstr(tobjectdef(def)); end; end;