Ver código fonte

* lying around newline fixes

git-svn-id: trunk@13513 -
florian 16 anos atrás
pai
commit
53d60f02b2
3 arquivos alterados com 4 adições e 3 exclusões
  1. 1 0
      compiler/cgobj.pas
  2. 2 0
      compiler/i386/cgcpu.pas
  3. 1 3
      compiler/nobj.pas

+ 1 - 0
compiler/cgobj.pas

@@ -3057,6 +3057,7 @@ implementation
         cgpara1.done;
         cgpara1.done;
       end;
       end;
 
 
+
     procedure tcg.g_copyvariant(list : TAsmList;const source,dest : treference);
     procedure tcg.g_copyvariant(list : TAsmList;const source,dest : treference);
       var
       var
         cgpara1,cgpara2 : TCGPara;
         cgpara1,cgpara2 : TCGPara;

+ 2 - 0
compiler/i386/cgcpu.pas

@@ -612,6 +612,7 @@ unit cgcpu;
           list.concat(taicpu.op_ref(op,S_L,href));
           list.concat(taicpu.op_ref(op,S_L,href));
         end;
         end;
 
 
+
       procedure loadmethodoffstoeax;
       procedure loadmethodoffstoeax;
         var
         var
           href : treference;
           href : treference;
@@ -623,6 +624,7 @@ unit cgcpu;
           cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_EAX);
           cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_EAX);
         end;
         end;
 
 
+
       var
       var
         lab : tasmsymbol;
         lab : tasmsymbol;
         make_global : boolean;
         make_global : boolean;

+ 1 - 3
compiler/nobj.pas

@@ -625,7 +625,6 @@ implementation
 
 
 
 
     procedure TVMTWriter.insertint(p : pprocdeftree;var at : pprocdeftree;var count:longint);
     procedure TVMTWriter.insertint(p : pprocdeftree;var at : pprocdeftree;var count:longint);
-
       begin
       begin
          if at=nil then
          if at=nil then
            begin
            begin
@@ -643,11 +642,10 @@ implementation
            end;
            end;
       end;
       end;
 
 
-    procedure TVMTWriter.insertstr(p : pprocdeftree;var at : pprocdeftree;var count:longint);
 
 
+    procedure TVMTWriter.insertstr(p : pprocdeftree;var at : pprocdeftree;var count:longint);
       var
       var
          i : integer;
          i : integer;
-
       begin
       begin
          if at=nil then
          if at=nil then
            begin
            begin