Browse Source

* property parameters are now fully parsed by the firstcall code to
check for the correct amount and types (merged)

Jonas Maebe 24 years ago
parent
commit
daa7693b45
1 changed files with 8 additions and 2 deletions
  1. 8 2
      compiler/pexpr.pas

+ 8 - 2
compiler/pexpr.pas

@@ -794,7 +794,9 @@ implementation
                           p1:=ccallnode.create(paras,tprocsym(tpropertysym(sym).readaccess.firstsym^.sym),st,p1);
                           p1:=ccallnode.create(paras,tprocsym(tpropertysym(sym).readaccess.firstsym^.sym),st,p1);
                           { we know the procedure to call, so
                           { we know the procedure to call, so
                             force the usage of that procedure }
                             force the usage of that procedure }
-                          tcallnode(p1).procdefinition:=tprocdef(tpropertysym(sym).readaccess.def);
+{                           no, because then the amount and the validity of the paras
+                            is not checked (JM)
+                          tcallnode(p1).procdefinition:=tprocdef(tpropertysym(sym).readaccess.def); }
                           include(p1.flags,nf_isproperty);
                           include(p1.flags,nf_isproperty);
                        end
                        end
                      else
                      else
@@ -2325,7 +2327,11 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.42  2001-09-02 21:18:28  peter
+  Revision 1.43  2001-10-18 16:30:38  jonas
+    * property parameters are now fully parsed by the firstcall code to
+      check for the correct amount and types (merged)
+
+  Revision 1.42  2001/09/02 21:18:28  peter
     * split constsym.value in valueord,valueordptr,valueptr. The valueordptr
     * split constsym.value in valueord,valueordptr,valueptr. The valueordptr
       is used for holding target platform pointer values. As those can be
       is used for holding target platform pointer values. As those can be
       bigger than the source platform.
       bigger than the source platform.