Explorar el Código

+ use reinstated browser switches

git-svn-id: trunk@6139 -
pierre hace 18 años
padre
commit
11be490034
Se han modificado 1 ficheros con 17 adiciones y 1 borrados
  1. 17 1
      compiler/options.pas

+ 17 - 1
compiler/options.pas

@@ -443,7 +443,23 @@ begin
 
 
            'b' :
            'b' :
              begin
              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;
              end;
 
 
            'B' :
            'B' :