Procházet zdrojové kódy

compiler: consistent indent, missing semicolon

mattias před 1 týdnem
rodič
revize
b6be686f7f
2 změnil soubory, kde provedl 16 přidání a 18 odebrání
  1. 0 1
      compiler/compiler.pas
  2. 16 17
      compiler/fppu.pas

+ 0 - 1
compiler/compiler.pas

@@ -306,7 +306,6 @@ begin
          { We need to add the initial module manually to the list of units }
          addloadedunit(m);
          main_module:=m;
-         m.state:=ms_compile;
          task_handler.addmodule(m);
          task_handler.processqueue;
          end;

+ 16 - 17
compiler/fppu.pas

@@ -1338,7 +1338,6 @@ var
         isnew : boolean;
 
       begin
-
         while not ppufile.endofentry do
          begin
            hs:=ppufile.getstring;
@@ -2057,7 +2056,7 @@ var
               tppumodule(pu.u).loadppu(self);
               { if this unit is compiled we can stop }
               if state=ms_compiled then
-               exit;
+                exit;
               { add this unit to the dependencies }
               pu.u.adddependency(self,false);
               { need to recompile the current unit ? }
@@ -2156,7 +2155,7 @@ var
               (hp.defsgeneration<defsgeneration) then
              begin
                hp.defsgeneration:=defsgeneration;
-               hp.loadppu(self)
+               hp.loadppu(self);
              end
            else
              hp.do_reload:=false;
@@ -2356,8 +2355,8 @@ var
         { check if the globalsymtable is already available, but
           we must reload when the do_reload flag is set }
         if (not do_reload) and
-           assigned(globalsymtable) then
-           exit(True);
+            assigned(globalsymtable) then
+          exit(True);
 
         { reset }
         do_load:=true;
@@ -2370,27 +2369,27 @@ var
         check_reload(from_module, do_load);
 
         if not do_load then
-          begin
-            // No need to do anything, restore situation and exit.
-            set_current_module(from_module);
-            exit(state=ms_compiled);
-          end;
+        begin
+          // No need to do anything, restore situation and exit.
+          set_current_module(from_module);
+          exit(state=ms_compiled);
+        end;
 
         { loading the unit for a second time? }
         if state=ms_registered then
           state:=ms_load
         else if (state in [ms_compile, ms_compiling_waitintf]) then
-          begin
+        begin
           { no use continuing if we must be compiled }
           // but we still need to restore current_module!
           set_current_module(from_module);
-          exit(false)
-          end
+          exit(false);
+        end
         else
-          begin
-            second_time:=true;
-            prepare_second_load(from_module);
-          end;
+        begin
+          second_time:=true;
+          prepare_second_load(from_module);
+        end;
 
         { close old_current_ppu on system that are
           short on file handles like DOS PM }