Bläddra i källkod

+ use reinstated browser switches

git-svn-id: trunk@6139 -
pierre 18 år sedan
förälder
incheckning
11be490034
1 ändrade filer med 17 tillägg och 1 borttagningar
  1. 17 1
      compiler/options.pas

+ 17 - 1
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' :