From 11be490034f72343be29ea628b66a8841633bd2d Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 23 Jan 2007 05:42:22 +0000
Subject: [PATCH]  + use reinstated browser switches

git-svn-id: trunk@6139 -
---
 compiler/options.pas | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/compiler/options.pas b/compiler/options.pas
index d3b27ada96..0934bb8585 100644
--- a/compiler/options.pas
+++ b/compiler/options.pas
@@ -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' :