소스 검색

* lying around newline fixes

git-svn-id: trunk@13513 -
florian 16 년 전
부모
커밋
53d60f02b2
3개의 변경된 파일4개의 추가작업 그리고 3개의 파일을 삭제
  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