paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 02:51:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* reset funcstab when changing object

Browse Source
This commit is contained in:
pierre 2000-04-12 11:15:06 +00:00
parent 20089b7a4b
commit addf7fc302
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/lineinfo.pp
View File

@ -542,6 +542,12 @@ begin
fillchar(dirstab,sizeof(tstab),0); fillchar(dirstab,sizeof(tstab),0);
filestab:=stabs[i]; filestab:=stabs[i];
fillchar(linestab,sizeof(tstab),0); fillchar(linestab,sizeof(tstab),0);
{ if new file then func is not valid anymore PM }
if stabs[i].ntype=N_SourceFile then
begin
fillchar(funcstab,sizeof(tstab),0);
fillchar(lastfunc,sizeof(tstab),0);
end;
end; end;
end; end;
end; end;
@ -616,7 +622,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.7 2000-03-23 22:00:08 pierre Revision 1.8 2000-04-12 11:15:06 pierre
* reset funcstab when changing object
Revision 1.7 2000/03/23 22:00:08 pierre
* fix for OS/2 hopefully * fix for OS/2 hopefully
Revision 1.6 2000/03/19 18:10:41 hajny Revision 1.6 2000/03/19 18:10:41 hajny