paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* uf_local_browser made problem when computing interface CRC

Browse Source
This commit is contained in:
pierre 1999-08-27 10:39:24 +00:00
parent 088f2ba6cc
commit e1744c9db6
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symtable.pas
View File

@ -1937,7 +1937,8 @@ implementation
{ write static symtable
needed for local debugging of unit functions }
if (current_module^.flags and uf_local_browser)<>0 then
if ((current_module^.flags and uf_local_browser)<>0) and
assigned(current_module^.localsymtable) then
psymtable(current_module^.localsymtable)^.write;
{ write all browser section }
if (current_module^.flags and uf_has_browser)<>0 then
@ -1953,7 +1954,8 @@ implementation
current_ppu^.writeentry(ibendbrowser);
current_ppu^.do_crc:=true;
end;
if (current_module^.flags and uf_local_browser)<>0 then
if ((current_module^.flags and uf_local_browser)<>0) and
assigned(current_module^.localsymtable) then
psymtable(current_module^.localsymtable)^.write_browser;
{ the last entry ibend is written automaticly }
@ -2348,7 +2350,10 @@ implementation
end.
{
$Log$
Revision 1.42 1999-08-13 21:33:13 peter
Revision 1.43 1999-08-27 10:39:24 pierre
* uf_local_browser made problem when computing interface CRC
Revision 1.42 1999/08/13 21:33:13 peter
* support for array constructors extended and more error checking
Revision 1.41 1999/08/13 14:24:22 pierre