瀏覽代碼

some tabs to spaces indentation cleanup. no functional change

git-svn-id: trunk@37599 -
Károly Balogh 7 年之前
父節點
當前提交
4b113579a5
共有 1 個文件被更改,包括 7 次插入7 次删除
  1. 7 7
      compiler/link.pas

+ 7 - 7
compiler/link.pas

@@ -180,13 +180,13 @@ Implementation
       begin
         result:=0;
         bufsize:=64*1024;
-	      fs:=CFileStreamClass.Create(fn,fmOpenRead or fmShareDenyNone);
-	      if CStreamError<>0 then
-	        begin
-	          fs.Free;
-	          Comment(V_Error,'Can''t open file: '+fn);
-	          exit;
-	        end;
+        fs:=CFileStreamClass.Create(fn,fmOpenRead or fmShareDenyNone);
+        if CStreamError<>0 then
+          begin
+            fs.Free;
+            Comment(V_Error,'Can''t open file: '+fn);
+            exit;
+          end;
         getmem(buf,bufsize);
         repeat
           bufcount:=fs.Read(buf^,bufsize);