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

* fix bug #8391 only for arm-wince, because otherwise it breaks other platforms (incl. i386-win32)

Browse Source 
git-svn-id: trunk@11871 -
This commit is contained in:
Károly Balogh 2008-10-09 18:37:56 +00:00
parent b40d826439
commit 049280bc21
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/ogbase.pas
View File

@ -1384,8 +1384,13 @@ implementation
FIsVar:=AIsVar;
FMangledName:=AName;
{ Replace ? and @ in import name }
Replace(FMangledName,'?','__q$$');
Replace(FMangledName,'@','__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(FMangledName,'?','__q$$');
Replace(FMangledName,'@','__a$$');
end;
end;