* Pass const record parameters by reference for all calling conventions on i386-wince. It is needed to be Windows unit Delphi compatible, since WinAPI functions are cdecl on wince.

git-svn-id: trunk@10296 -

compiler/i386/cpupara.pas

@@ -182,7 +182,7 @@ unit cpupara;
                 result:=
                   (not(calloption in [pocall_cdecl,pocall_cppdecl,pocall_mwpascal]) and
                    (def.size>sizeof(aint))) or
-                  ((calloption = pocall_mwpascal) and
+                  (((calloption = pocall_mwpascal) or (target_info.system=system_i386_wince)) and
                    (varspez=vs_const));
             end;
           arraydef :