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

* Allow to process .fmx files just as .lfm/.dfm files

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-02-07 16:11:56 +01:00
parent b935cc7f93
commit 44282acecb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/comprsrc.pas
View File

@ -354,7 +354,7 @@ const
ResSignature : array [1..32] of byte = 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,$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); $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00);
knownexts : array[1..4] of string[4] = ('.lfm', '.dfm', '.xfm', '.tlb'); knownexts : array[1..5] of string[4] = ('.lfm', '.dfm', '.xfm', '.fmx', '.tlb');
var var
f : file; f : file;
oldfmode : byte; oldfmode : byte;