Kaynağa Gözat

Fix syntax errors.

git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@226 9552661e-59e3-4036-b4f2-dbe53926924f
kevinkofler 19 yıl önce
ebeveyn
işleme
4d59290f36
2 değiştirilmiş dosya ile 2 ekleme ve 2 silme
  1. 0 1
      MainUnit.pas
  2. 2 1
      SourceFileUnit.pas

+ 0 - 1
MainUnit.pas

@@ -569,7 +569,6 @@ begin
 			EffectiveSize := 2 + FileSize + 1;
 		llffTIOSUpgrade:
 			EffectiveSize := FileSize + SizeOf (TCalcOSFooter);
-			EffectiveSize := FileSize + SizeOF (TCalcOSFooter);
 		llffGDBCOFF:
 			begin
 				EffectiveSize := FileSize;

+ 2 - 1
SourceFileUnit.pas

@@ -1512,7 +1512,7 @@ begin
 			for I := 1 to Length (FileName) do begin
 				C := FileName [I];
 				if (C = '\') then
-					EscapedRealFN := EscapedRealFN + '\\';
+					EscapedRealFN := EscapedRealFN + '\\'
 				else
 					EscapedRealFN := EscapedRealFN + C;
 			end;
@@ -1530,6 +1530,7 @@ begin
 					Write (PChar(#13#10)^, 2);
 			finally
 				Free;
+			end;
 		end else
 {$IFDEF CanSplit}
 		if SplitFiles then begin