paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 10:38:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #840

Browse Source
This commit is contained in:
pierre 2000-03-01 13:56:31 +00:00
parent 16814c48ab
commit 51443d110f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symtable.pas
View File

@ -1895,9 +1895,9 @@ implementation
{ unitsym are only loaded for browsing PM } { unitsym are only loaded for browsing PM }
{ this was buggy anyway because we could use } { this was buggy anyway because we could use }
{ unitsyms from other units in _USES !! } { unitsyms from other units in _USES !! }
if (symtabletype=unitsymtable) and (hp^.typ=unitsym) and {if (symtabletype=unitsymtable) and (hp^.typ=unitsym) and
assigned(current_module) and (current_module^.globalsymtable<>@self) then assigned(current_module) and (current_module^.globalsymtable<>@self) then
hp:=nil; hp:=nil;}
if assigned(hp) and if assigned(hp) and
(cs_browser in aktmoduleswitches) and make_ref then (cs_browser in aktmoduleswitches) and make_ref then
begin begin
@ -2793,7 +2793,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.79 2000-03-01 00:03:10 pierre Revision 1.80 2000-03-01 13:56:31 pierre
* fix for bug 840
Revision 1.79 2000/03/01 00:03:10 pierre
* fixes for locals in inlined procedures * fixes for locals in inlined procedures
fix for bug797 fix for bug797
+ stabs generation for inlined paras and locals + stabs generation for inlined paras and locals