paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 03:09:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add switch to ignore unknown resources

Browse Source 
git-svn-id: trunk@45395 -
This commit is contained in:
michael 2020-05-17 07:54:41 +00:00
parent e70d86f1d8
commit 6e0a8415df
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-passrc/src/pscanner.pp
View File

@ -665,7 +665,8 @@ type
po_CheckCondFunction, // error on unknown function in conditional expression, default: return '0'
po_StopOnErrorDirective, // error on user $Error, $message error|fatal
po_ExtConstWithoutExpr, // allow typed const without expression in external class and with external modifier
po_StopOnUnitInterface // parse only a unit name and stop at interface keyword
po_StopOnUnitInterface, // parse only a unit name and stop at interface keyword
po_IgnoreUnknownResource // Ignore resources for which no handler is registered.
);
TPOptions = set of TPOption;
@ -3372,7 +3373,11 @@ begin
if (H=Nil) then
H:=FindResourceHandler('*');
if (H=Nil) then
Error(nNoResourceSupport,SNoResourceSupport,[Ext]);
begin
if not (po_IgnoreUnknownResource in Options) then
Error(nNoResourceSupport,SNoResourceSupport,[Ext]);
exit;
end;
// Let the handler take care of the rest.
OptList:=TStringList.Create;
try

3
packages/pastojs/src/pas2jsfiler.pp
View File

@ -131,7 +131,8 @@ const
'CheckCondFunction',
'StopOnErrorDirective',
'ExtClassConstWithoutExpr',
'StopOnUnitInterface');
'StopOnUnitInterface',
'IgnoreUnknownResource');
PCUDefaultModeSwitches: TModeSwitches = [
msObjfpc,