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

* don't register errordef

Browse Source
This commit is contained in:
peter 1999-05-06 21:38:38 +00:00
parent 8ba31512e1
commit 4e4a83bfe8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symtable.pas
View File

@ -1818,7 +1818,8 @@ const localsymtablestack : psymtable = nil;
if sym^.typ = typesym then
if assigned(ptypesym(sym)^.definition) then
begin
if not assigned(ptypesym(sym)^.definition^.owner) then
if not assigned(ptypesym(sym)^.definition^.owner) and
(ptypesym(sym)^.definition^.deftype<>errordef) then
registerdef(ptypesym(sym)^.definition);
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist)
@ -3212,7 +3213,10 @@ const localsymtablestack : psymtable = nil;
end.
{
$Log$
Revision 1.7 1999-05-06 09:05:31 peter
Revision 1.8 1999-05-06 21:38:38 peter
* don't register errordef
Revision 1.7 1999/05/06 09:05:31 peter
* generic write_float and str_float
* fixed constant float conversions