paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* symtable.insert changed to procedure

Browse Source
This commit is contained in:
peter 2000-06-01 19:14:09 +00:00
parent 40de0309f6
commit 8b260f5793
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecl.pas
View File

@ -1024,7 +1024,7 @@ unit pdecl;
storetokenpos:=tokenpos; storetokenpos:=tokenpos;
tokenpos:=defpos; tokenpos:=defpos;
newtype:=new(ptypesym,init(typename,tt)); newtype:=new(ptypesym,init(typename,tt));
newtype:=ptypesym(symtablestack^.insert(newtype)); symtablestack^.insert(newtype);
tokenpos:=storetokenpos; tokenpos:=storetokenpos;
end; end;
consume(_SEMICOLON); consume(_SEMICOLON);
@ -1210,7 +1210,10 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.181 2000-04-17 18:44:22 peter Revision 1.182 2000-06-01 19:14:09 peter
* symtable.insert changed to procedure
Revision 1.181 2000/04/17 18:44:22 peter
* fixed forward resolving with redefined types * fixed forward resolving with redefined types
Revision 1.180 2000/02/09 13:22:56 peter Revision 1.180 2000/02/09 13:22:56 peter