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

* don't firstpass typen

Browse Source
This commit is contained in:
peter 2003-04-11 16:02:05 +00:00
parent 9d52f8bcff
commit 1bfa0a6ba3
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/ncal.pas
View File

@ -2110,7 +2110,8 @@ type
{ if this is a call to a method calc the registers }
if (methodpointer<>nil) then
begin
firstpass(methodpointer);
if methodpointer.nodetype<>typen then
firstpass(methodpointer);
{ if we are calling the constructor }
if procdefinition.proctypeoption in [potype_constructor] then
@ -2371,7 +2372,10 @@ begin
end.
{
$Log$
Revision 1.136 2003-04-11 15:51:04 peter
Revision 1.137 2003-04-11 16:02:05 peter
* don't firstpass typen
Revision 1.136 2003/04/11 15:51:04 peter
* support subscript,vec for setting methodpointer varstate
Revision 1.135 2003/04/10 17:57:52 peter