Explorar o código

* no localbrowser when browser is turned off

peter %!s(int64=26) %!d(string=hai) anos
pai
achega
6352fd282f
Modificáronse 1 ficheiros con 10 adicións e 3 borrados
  1. 10 3
      compiler/switches.pas

+ 10 - 3
compiler/switches.pas

@@ -111,9 +111,13 @@ begin
                    if current_module^.in_global then
                    if current_module^.in_global then
                     begin
                     begin
                       if state='+' then
                       if state='+' then
-                       aktmoduleswitches:=aktmoduleswitches+[tmoduleswitch(setsw)]
+                        aktmoduleswitches:=aktmoduleswitches+[tmoduleswitch(setsw)]
                       else
                       else
-                       aktmoduleswitches:=aktmoduleswitches-[tmoduleswitch(setsw)];
+                        aktmoduleswitches:=aktmoduleswitches-[tmoduleswitch(setsw)];
+                      { can't have local browser when no global browser }
+                      if (cs_local_browser in aktmoduleswitches) and
+                         not(cs_browser in aktmoduleswitches) then
+                        aktmoduleswitches:=aktmoduleswitches-[cs_local_browser];
                     end
                     end
                    else
                    else
                     Message(scan_w_switch_is_global);
                     Message(scan_w_switch_is_global);
@@ -166,7 +170,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.18  1998-12-11 00:03:47  peter
+  Revision 1.19  1999-02-18 13:43:20  peter
+    * no localbrowser when browser is turned off
+
+  Revision 1.18  1998/12/11 00:03:47  peter
     + globtype,tokens,version unit splitted from globals
     + globtype,tokens,version unit splitted from globals
 
 
   Revision 1.17  1998/11/27 14:50:46  peter
   Revision 1.17  1998/11/27 14:50:46  peter