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

* For some unknown reason WM 6.1 requires .idata section to be read only. Otherwise it refuses to load DLLs greater than 64KB. Earlier versions of WinCE load DLLs regardless of .idata flags.

Browse Source 
git-svn-id: trunk@11421 -
This commit is contained in:
yury 2008-07-20 20:28:37 +00:00
parent 1251ec996b
commit 22df9855d9
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ogcoff.pas
View File

@ -2120,7 +2120,8 @@ const pemagic : array[0..3] of byte = (
peoptheader : tcoffpeoptheader;
textExeSec,
dataExeSec,
bssExeSec : TExeSection;
bssExeSec,
idataExeSec : TExeSection;
hassymbols : boolean;
procedure UpdateDataDir(const secname:string;idx:longint);
@ -2258,6 +2259,17 @@ const pemagic : array[0..3] of byte = (
djoptheader.entry:=EntrySym.offset;
FWriter.write(djoptheader,sizeof(djoptheader));
end;
{ For some unknown reason WM 6.1 requires .idata section to be read only.
Otherwise it refuses to load DLLs greater than 64KB.
Earlier versions of WinCE load DLLs regardless of .idata flags. }
if target_info.system in [system_arm_wince,system_i386_wince] then
begin
idataExeSec:=FindExeSection('.idata');
if idataExeSec<>nil then
idataExeSec.SecOptions:=idataExeSec.SecOptions - [oso_write] + [oso_readonly];
end;
{ Section headers }
ExeSectionList.ForEachCall(@ExeSectionList_write_header,nil);
{ Section data }