paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 17:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ use reinstated browser switches

Browse Source 
git-svn-id: trunk@6139 -
This commit is contained in:
pierre 2007-01-23 05:42:22 +00:00
parent 95b126b364
commit 11be490034
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/options.pas
View File

@ -443,7 +443,23 @@ begin
'b' :
begin
Message1(option_obsolete_switch,'-b');
// Message1(option_obsolete_switch,'-b');
if UnsetBool(More,0) then
begin
init_settings.moduleswitches:=init_settings.moduleswitches-[cs_browser];
init_settings.moduleswitches:=init_settings.moduleswitches-[cs_local_browser];
end
else
begin
init_settings.moduleswitches:=init_settings.moduleswitches+[cs_browser];
end;
if More<>'' then
if (More='l') or (More='l+') then
init_settings.moduleswitches:=init_settings.moduleswitches+[cs_local_browser]
else if More='l-' then
init_settings.moduleswitches:=init_settings.moduleswitches-[cs_local_browser]
else
IllegalPara(opt);
end;
'B' :