paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 11:48:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing of old style tp-objects

Browse Source 
git-svn-id: trunk@1613 -
This commit is contained in:
peter 2005-10-31 12:27:23 +00:00
parent c5f82ba6de
commit e88ff7ae84
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/dbgstabs.pas
View File

@ -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;