* another attempt to properly fix the fix for 8391

git-svn-id: trunk@11873 -

compiler/pdecsub.pas

@@ -2247,8 +2247,13 @@ const
                     if s<>'' then
                       begin
                         { Replace ? and @ in import name }
-                        Replace(s,'?','__q$$');
-                        Replace(s,'@','__a$$');
+                        { these replaces broke existing code on i386-win32 at least, while fixed 
+                          bug 8391 on arm-wince so limit this to arm-wince (KB) }
+                        if target_info.system in [system_arm_wince] then 
+                          begin
+                            Replace(s,'?','__q$$');
+                            Replace(s,'@','__a$$');
+                          end;
                         pd.setmangledname(s);
                       end;
                   end;