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

* Patch from Vincent to enable resources support for win64 using gorc resource compiler.

Browse Source 
git-svn-id: trunk@7921 -
This commit is contained in:
yury 2007-07-02 11:02:30 +00:00
parent ddd4fd04c8
commit 787aac7478
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/systems.pas
View File

@ -188,6 +188,7 @@ interface
,res_m68k_palmos,res_m68k_mpw
,res_powerpc_mpw,res_elf
,res_gnu_wince_windres
,res_win64_gorc
);
tdbg = (dbg_none

4
compiler/systems/i_win.pas
View File

@ -105,7 +105,7 @@ unit i_win;
asmext : '.s';
objext : '.o';
resext : '.res';
resobjext : '.or';
resobjext : '.obj';
sharedlibext : '.dll';
staticlibext : '.a';
staticlibprefix : 'libp';
@ -122,7 +122,7 @@ unit i_win;
link : nil;
linkextern : nil;
ar : ar_gnu_ar;
res : res_gnu_windres;
res : res_win64_gorc;
dbg : dbg_stabs;
script : script_dos;
endian : endian_little;

11
compiler/systems/t_win.pas
View File

@ -124,6 +124,15 @@ implementation
rccmd : '--include $INC -O res -o $RES $RC';
);
res_win64_gorc_info : tresinfo =
(
id : res_win64_gorc;
resbin : 'gorc';
rescmd : '/machine x64 /nw /ni /o /fo $OBJ $RES';
rcbin : 'gorc';
rccmd : '/machine x64 /nw /ni /r /fo $RES $RC';
);
Procedure GlobalInitSysInitUnitName(Linker : TLinker);
var
@ -1767,7 +1776,7 @@ initialization
RegisterImport(system_x86_64_win64,TImportLibWin);
RegisterExport(system_x86_64_win64,TExportLibWin);
RegisterDLLScanner(system_x86_64_win64,TDLLScannerWin);
RegisterRes(res_gnu_windres_info,TWinResourceFile);
RegisterRes(res_win64_gorc_info,TWinResourceFile);
RegisterTarget(system_x64_win64_info);
{$endif x86_64}
{$ifdef arm}