Merged revisions 3389,3391 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r3389 | florian | 2006-04-30 21:09:27 +0200 (So, 30 Apr 2006) | 2 lines

* fixed COM parameter passing

........
r3391 | florian | 2006-04-30 22:00:45 +0200 (So, 30 Apr 2006) | 2 lines

* fixed parameter order of self and result to be COM compatible

........

git-svn-id: branches/fixes_2_0@4022 -

compiler/symconst.pas

@@ -103,8 +103,8 @@ const
     and will increase with 10 for each parameter. The high parameters
     will be inserted with n+1 }
   paranr_parentfp = 1;
-  paranr_result = 2;
-  paranr_self = 3;
+  paranr_self = 2;
+  paranr_result = 3;
   paranr_vmt = 4;
   { Required to support variations of syscalls on MorphOS }
   paranr_syscall_basesysv = 9;