paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:59:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix resource embedding on arm-wince

Browse Source 
git-svn-id: trunk@6576 -
This commit is contained in:
florian 2007-02-20 18:01:10 +00:00
parent 5f55323234
commit 6588b2cb57
2 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ogcoff.pas
View File

@ -271,6 +271,19 @@ interface
type
Treaddllproc = procedure(const dllname,funcname:string) of object;
const
{$ifdef i386}
COFF_MAGIC = $14c;
COFF_OPT_MAGIC = $10b;
{$endif i386}
{$ifdef arm}
COFF_MAGIC = $1c0;
COFF_OPT_MAGIC = $10b;
{$endif arm}
{$ifdef x86_64}
COFF_MAGIC = $8664;
COFF_OPT_MAGIC = $20b;
{$endif x86_64}
function ReadDLLImports(const dllname:string;readdllproc:Treaddllproc):boolean;
implementation
@ -287,19 +300,6 @@ implementation
;
const
{$ifdef i386}
COFF_MAGIC = $14c;
COFF_OPT_MAGIC = $10b;
{$endif i386}
{$ifdef arm}
COFF_MAGIC = $1c0;
COFF_OPT_MAGIC = $10b;
{$endif arm}
{$ifdef x86_64}
COFF_MAGIC = $8664;
COFF_OPT_MAGIC = $20b;
{$endif x86_64}
COFF_FLAG_NORELOCS = $0001;
COFF_FLAG_EXE = $0002;
COFF_FLAG_NOLINES = $0004;

20
compiler/systems/t_win.pas
View File

@ -92,6 +92,7 @@ interface
TWinResourceFile = class(TResourceFile)
procedure PostProcessResourcefile(const s : ansistring);override;
end;
@ -1710,6 +1711,25 @@ implementation
end;
{****************************************************************************
TWinResourceFile
****************************************************************************}
procedure TWinResourceFile.PostProcessResourcefile(const s : ansistring);
var
f : file;
w : word;
begin
{$ifdef arm}
assign(f,s);
reset(f,1);
w:=COFF_MAGIC;
blockwrite(f,w,2);
close(f);
{$endif arm}
end;
{*****************************************************************************
Initialize
*****************************************************************************}