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

* fixed stabs writting for forward types

Browse Source
This commit is contained in:
peter 1999-10-06 17:39:14 +00:00
parent 755fc18c07
commit e10d770cc3
3 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pdecl.pas
View File

@ -113,6 +113,14 @@ unit pdecl;
(srsym^.typ=typesym) then
begin
ppointerdef(pd)^.definition:=ptypesym(srsym)^.definition;
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist) and
(psym(p)^.owner^.symtabletype in [globalsymtable,staticsymtable]) then
begin
ptypesym(p)^.isusedinstab := true;
psym(p)^.concatstabto(debuglist);
end;
{$endif GDB}
{ we need a class type for classrefdef }
if (pd^.deftype=classrefdef) and
not((ptypesym(srsym)^.definition^.deftype=objectdef) and
@ -2603,7 +2611,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.162 1999-10-03 19:44:42 peter
Revision 1.163 1999-10-06 17:39:14 peter
* fixed stabs writting for forward types
Revision 1.162 1999/10/03 19:44:42 peter
* removed objpasunit reference, tvarrec is now searched in systemunit
where it already was located

9
compiler/symdef.inc
View File

@ -1451,6 +1451,10 @@
var st,nb : string;
sym_line_no : longint;
begin
if assigned(definition) and
(definition^.deftype=forwarddef) then
exit;
if ( (sym=nil) or sym^.isusedinstab or (cs_gdb_dbx in aktglobalswitches)) and
not is_def_stab_written then
begin
@ -3862,7 +3866,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.170 1999-10-04 13:46:04 michael
Revision 1.171 1999-10-06 17:39:15 peter
* fixed stabs writting for forward types
Revision 1.170 1999/10/04 13:46:04 michael
* patch from peter for classes
Revision 1.169 1999/10/03 19:41:38 peter

8
compiler/symtable.pas
View File

@ -916,7 +916,8 @@ implementation
end;
{$endif}
procedure write_refs(sym : pnamedindexobject); begin
procedure write_refs(sym : pnamedindexobject);
begin
psym(sym)^.write_references;
end;
@ -2348,7 +2349,10 @@ implementation
end.
{
$Log$
Revision 1.52 1999-10-03 19:44:42 peter
Revision 1.53 1999-10-06 17:39:15 peter
* fixed stabs writting for forward types
Revision 1.52 1999/10/03 19:44:42 peter
* removed objpasunit reference, tvarrec is now searched in systemunit
where it already was located