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

compiler, utils: pass tlb resources to fpcres

Browse Source 
git-svn-id: trunk@15002 -
This commit is contained in:
paul 2010-03-11 03:01:24 +00:00
parent 949290e62f
commit 3cd29858ba
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/comprsrc.pas
View File

@ -320,7 +320,7 @@ const
ResSignature : array [1..32] of byte =
($00,$00,$00,$00,$20,$00,$00,$00,$FF,$FF,$00,$00,$FF,$FF,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00);
dfmexts : array[1..3] of string[4] = ('.lfm', '.dfm', '.xfm');
knownexts : array[1..4] of string[4] = ('.lfm', '.dfm', '.xfm', '.tlb');
var
f : file;
oldfmode : byte;
@ -331,9 +331,9 @@ begin
ext:=lower(ExtractFileExt(fn));
Result:=CompareText(ext, target_info.resext) = 0;
if not Result then
for i:=1 to high(dfmexts) do
for i:=1 to high(knownexts) do
begin
Result:=CompareText(ext, dfmexts[i]) = 0;
Result:=CompareText(ext, knownexts[i]) = 0;
if Result then break;
end;

2
utils/fpcres/fpcres.pas
View File

@ -23,7 +23,7 @@ uses
closablefilestream, resource,
//readers
resreader, coffreader, winpeimagereader, elfreader, machoreader,
externalreader, dfmreader,
externalreader, dfmreader, tlbreader,
//writers
reswriter, coffwriter, elfwriter, machowriter, externalwriter,
//misc