* fixed tw8391.pp for i386.

git-svn-id: trunk@7768 -

compiler/ogbase.pas

@@ -1358,8 +1358,8 @@ implementation
         FIsVar:=AIsVar;
         FMangledName:=AName;
         { Replace ? and @ in import name }
-        Replace(FMangledName,'?','$_q_$');
-        Replace(FMangledName,'@','$_a_$');
+        Replace(FMangledName,'?','__q$$');
+        Replace(FMangledName,'@','__a$$');
       end;
 
 

compiler/pdecsub.pas

@@ -2254,8 +2254,8 @@ const
                     if s<>'' then
                       begin
                         { Replace ? and @ in import name }
-                        Replace(s,'?','$_q_$');
-                        Replace(s,'@','$_a_$');
+                        Replace(s,'?','__q$$');
+                        Replace(s,'@','__a$$');
                         pd.setmangledname(s);
                       end;
                   end;