paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 11:29:27 +01: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 this is a call to a method calc the registers }
if (methodpointer<>nil) then if (methodpointer<>nil) then
begin begin
firstpass(methodpointer); if methodpointer.nodetype<>typen then
firstpass(methodpointer);
{ if we are calling the constructor } { if we are calling the constructor }
if procdefinition.proctypeoption in [potype_constructor] then if procdefinition.proctypeoption in [potype_constructor] then
@ -2371,7 +2372,10 @@ begin
end. end.
{ {
$Log$ $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 * support subscript,vec for setting methodpointer varstate
Revision 1.135 2003/04/10 17:57:52 peter Revision 1.135 2003/04/10 17:57:52 peter