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

+ wince resource compiler support

Browse Source 
* fixed some resource compiler stuff

git-svn-id: trunk@1056 -
This commit is contained in:
florian 2005-09-06 20:28:03 +00:00
parent 2a44e11e46
commit 46097d7679
4 changed files with 33 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/comprsrc.pas
View File

@ -83,9 +83,9 @@ begin
resbin:='';
resfound:=false;
if utilsdirectory<>'' then
resfound:=FindFile(target_res.resbin+source_info.exeext,utilsdirectory,resbin);
resfound:=FindFile(utilsprefix+target_res.resbin+source_info.exeext,utilsdirectory,resbin);
if not resfound then
resfound:=FindExe(target_res.resbin,resbin);
resfound:=FindExe(utilsprefix+target_res.resbin,resbin);
{ get also the path to be searched for the windres.h }
{$IFDEF USE_SYSUTILS}
respath := SplitPath(resbin);
@ -169,19 +169,16 @@ begin
if not (target_info.system in [system_i386_os2,
system_i386_emx,system_powerpc_macos]) then
While not current_module.ResourceFiles.Empty do
begin
case target_info.system of
system_m68k_palmos,
system_i386_win32,
system_i386_linux,
system_i386_wdosx :
hr:=new(presourcefile,init(current_module.ResourceFiles.getfirst));
else
Message(scan_e_resourcefiles_not_supported);
end;
hr^.compile;
dispose(hr,done);
end;
begin
if target_info.res<>res_none then
begin
hr:=new(presourcefile,init(current_module.ResourceFiles.getfirst));
hr^.compile;
dispose(hr,done);
end
else
Message(scan_e_resourcefiles_not_supported);
end;
end;

1
compiler/systems.pas
View File

@ -153,6 +153,7 @@ interface
,res_gnu_windres,res_emxbind
,res_m68k_palmos,res_m68k_mpw
,res_powerpc_mpw,res_elf
,res_gnu_wince_windres
);
tscripttype = (script_none

14
compiler/systems/i_win.pas
View File

@ -26,14 +26,6 @@ unit i_win;
uses
systems;
const
res_gnu_windres_info : tresinfo =
(
id : res_gnu_windres;
resbin : 'windres';
rescmd : '--include $INC -O coff -o $OBJ $RES'
);
const
system_i386_win32_info : tsysteminfo =
(
@ -194,7 +186,7 @@ unit i_win;
link : nil;
linkextern : nil;
ar : ar_gnu_ar;
res : res_gnu_windres;
res : res_gnu_wince_windres;
script : script_dos;
endian : endian_little;
alignment :
@ -217,7 +209,7 @@ unit i_win;
DllScanSupported:false;
use_function_relative_addresses : true
);
system_i386_wince_info : tsysteminfo =
(
system : system_i386_wince;
@ -279,7 +271,7 @@ unit i_win;
use_function_relative_addresses : true
);
implementation
initialization

19
compiler/systems/t_win.pas
View File

@ -41,7 +41,7 @@ interface
MAX_DEFAULT_EXTENSIONS = 3;
type
tStr4=array[1..MAX_DEFAULT_EXTENSIONS]of string[4];
tStr4=array[1..MAX_DEFAULT_EXTENSIONS] of string[4];
pStr4=^tStr4;
twin32imported_item = class(timported_item)
@ -103,6 +103,21 @@ implementation
cpuinfo,cgutils;
const
res_gnu_windres_info : tresinfo =
(
id : res_gnu_windres;
resbin : 'windres';
rescmd : '--include $INC -O coff -o $OBJ $RES'
);
res_gnu_wince_windres_info : tresinfo =
(
id : res_gnu_wince_windres;
resbin : 'windres';
rescmd : '--include $INC -O coff -o $OBJ $RES'
);
{*****************************************************************************
TIMPORTLIBWIN32
*****************************************************************************}
@ -1685,7 +1700,7 @@ initialization
RegisterExternalLinker(system_arm_wince_info,TLinkerWin32);
RegisterImport(system_arm_wince,TImportLibWin32);
RegisterExport(system_arm_wince,TExportLibWin32);
RegisterRes(res_gnu_windres_info);
RegisterRes(res_gnu_wince_windres_info);
RegisterTarget(system_arm_wince_info);
{$endif arm}
end.