Browse Source

* lying around newline fixes

git-svn-id: trunk@13513 -
florian 16 years ago
parent
commit
53d60f02b2
3 changed files with 4 additions and 3 deletions
  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;
       end;
 
+
     procedure tcg.g_copyvariant(list : TAsmList;const source,dest : treference);
       var
         cgpara1,cgpara2 : TCGPara;

+ 2 - 0
compiler/i386/cgcpu.pas

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

+ 1 - 3
compiler/nobj.pas

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