paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 05:39:29 +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);
filestab:=stabs[i];
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;
@ -616,7 +622,10 @@ finalization
end.
{
$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
Revision 1.6 2000/03/19 18:10:41 hajny