mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 13:59:47 +02:00
* fix bug #22300, "C" prefix of configuration file.
git-svn-id: trunk@21679 -
This commit is contained in:
parent
59c726c829
commit
b70ed0a407
@ -177,8 +177,9 @@ begin
|
||||
'C' : { custom config file (BP compatiblity) }
|
||||
if BeforeINI then
|
||||
begin
|
||||
delete(param,1,1); // delete C
|
||||
if (length(Param)>=1) and (Param[1] in['=',':']) then
|
||||
Delete(Param,1,1); { eat separator }
|
||||
Delete(Param,1,1); { eat optional separator }
|
||||
IniFileName:=Param;
|
||||
end;
|
||||
'R' : { enter the directory last exited from (BP comp.) }
|
||||
|
Loading…
Reference in New Issue
Block a user