paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 20:26:00 +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 sym^.typ = typesym then
if assigned(ptypesym(sym)^.definition) then if assigned(ptypesym(sym)^.definition) then
begin 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); registerdef(ptypesym(sym)^.definition);
{$ifdef GDB} {$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist) if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist)
@ -3212,7 +3213,10 @@ const localsymtablestack : psymtable = nil;
end. end.
{ {
$Log$ $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 * generic write_float and str_float
* fixed constant float conversions * fixed constant float conversions