Bläddra i källkod

* white space fixes

git-svn-id: trunk@15709 -
florian 15 år sedan
förälder
incheckning
0712dbe25d
3 ändrade filer med 11 tillägg och 11 borttagningar
  1. 9 9
      compiler/ncgutil.pas
  2. 1 1
      compiler/nobj.pas
  3. 1 1
      compiler/ptconst.pas

+ 9 - 9
compiler/ncgutil.pas

@@ -1473,15 +1473,15 @@ implementation
            (is_managed_type(tabstractvarsym(p).vardef) or
             ((m_iso in current_settings.modeswitches) and (tabstractvarsym(p).vardef.typ=filedef))
            ) then
-         begin
-           OldAsmList:=current_asmdata.CurrAsmList;
-           current_asmdata.CurrAsmList:=TAsmList(arg);
-           hp:=initialize_data_node(cloadnode.create(tsym(p),tsym(p).owner));
-           firstpass(hp);
-           secondpass(hp);
-           hp.free;
-           current_asmdata.CurrAsmList:=OldAsmList;
-         end;
+          begin
+            OldAsmList:=current_asmdata.CurrAsmList;
+            current_asmdata.CurrAsmList:=TAsmList(arg);
+            hp:=initialize_data_node(cloadnode.create(tsym(p),tsym(p).owner));
+            firstpass(hp);
+            secondpass(hp);
+            hp.free;
+            current_asmdata.CurrAsmList:=OldAsmList;
+          end;
       end;
 
 

+ 1 - 1
compiler/nobj.pas

@@ -272,7 +272,7 @@ implementation
             hasequalpara:=(compare_paras(vmtpd.paras,pd.paras,cp_none,[cpo_ignoreuniv])>=te_equal);
 
             { check that we are not trying to override a final method }
-            if (po_finalmethod in vmtpd.procoptions) and 
+            if (po_finalmethod in vmtpd.procoptions) and
                hasequalpara and (po_overridingmethod in pd.procoptions) and is_class(_class) then
               MessagePos1(pd.fileinfo,parser_e_final_can_no_be_overridden,pd.fullprocname(false))
             else

+ 1 - 1
compiler/ptconst.pas

@@ -1056,7 +1056,7 @@ implementation
           end;
 
         var
-          i       : longint;
+          i : longint;
 
         begin
           { GUID }