paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 15:52:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another attempt to properly fix the fix for 8391

Browse Source 
git-svn-id: trunk@11873 -
This commit is contained in:
Károly Balogh 2008-10-10 07:10:21 +00:00
parent 049280bc21
commit d41cb0c251
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecsub.pas
View File

@ -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;