paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 18:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed concatting of source and include filenames (merged)

Browse Source
This commit is contained in:
peter 2000-10-14 21:55:07 +00:00
parent 4b17f6f0ff
commit 0ddba9e6cd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/lineinfo.pp
View File

@ -552,9 +552,10 @@ begin
if (stabs[i].nvalue<=addr) and if (stabs[i].nvalue<=addr) and
(stabs[i].nvalue>=filestab.nvalue) then (stabs[i].nvalue>=filestab.nvalue) then
begin begin
{ if same value then the first one { if same value and type then the first one
contained the directory PM } contained the directory PM }
if stabs[i].nvalue=filestab.nvalue then if (stabs[i].nvalue=filestab.nvalue) and
(stabs[i].ntype=filestab.ntype) then
dirstab:=filestab dirstab:=filestab
else else
fillchar(dirstab,sizeof(tstab),0); fillchar(dirstab,sizeof(tstab),0);
@ -640,7 +641,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:44 michael Revision 1.3 2000-10-14 21:55:07 peter
* fixed concatting of source and include filenames (merged)
Revision 1.2 2000/07/13 11:33:44 michael
+ removed logs + removed logs
} }