浏览代码

Fixed spacing in error messages

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7553 8c9fc860-2736-0410-a75d-ab315db34111
negelef 7 年之前
父节点
当前提交
769f62d8e1
共有 3 个文件被更改,包括 5 次插入5 次删除
  1. 1 1
      source/FoxDocumentationBackend.Mod
  2. 2 2
      source/FoxIntermediateBackend.Mod
  3. 2 2
      source/FoxSemanticChecker.Mod

+ 1 - 1
source/FoxDocumentationBackend.Mod

@@ -1421,7 +1421,7 @@ TYPE
 					MergeDocument(template, NIL, document);
 					MergeDocument(template, NIL, document);
 					document := template;
 					document := template;
 				ELSIF diagnostics # NIL THEN
 				ELSIF diagnostics # NIL THEN
-					Basic.Error(diagnostics, "",Basic.invalidPosition, "could not  open / parse documentation template");
+					Basic.Error(diagnostics, "",Basic.invalidPosition, "could not open / parse documentation template");
 				END;
 				END;
 			END;
 			END;
 
 

+ 2 - 2
source/FoxIntermediateBackend.Mod

@@ -10340,7 +10340,7 @@ TYPE
 				Emit(Push(position,IntermediateCode.Immediate(addressType,size)));
 				Emit(Push(position,IntermediateCode.Immediate(addressType,size)));
 				*)
 				*)
 				IF ~backend.cellsAreObjects THEN
 				IF ~backend.cellsAreObjects THEN
-					IF size > ToMemoryUnits(system, system.addressSize) THEN Error(p1.position,"receive not implemented for  complex data types") END;
+					IF size > ToMemoryUnits(system, system.addressSize) THEN Error(p1.position,"receive not implemented for complex data types") END;
 				END;
 				END;
 				ReleaseOperand(s0);
 				ReleaseOperand(s0);
 				ReleaseOperand(s1);
 				ReleaseOperand(s1);
@@ -14731,4 +14731,4 @@ FileTrapWriter.Mod Caches.Mod DiskVolumes.Mod OldDiskVolumes.Mod RAMVolumes.Mod
 OberonFS.Mod FATVolumes.Mod FATFiles.Mod ISO9660Volumes.Mod ISO9660Files.Mod Win32.User32.Mod 
 OberonFS.Mod FATVolumes.Mod FATFiles.Mod ISO9660Volumes.Mod ISO9660Files.Mod Win32.User32.Mod 
 Win32.WinTrace.Mod Win32.ODBC.Mod Win32.Shell32.Mod Win32.SQL.Mod Win32.WinFS.Mod 
 Win32.WinTrace.Mod Win32.ODBC.Mod Win32.Shell32.Mod Win32.SQL.Mod Win32.WinFS.Mod 
 RelativeFileSystem.Mod BitSets.Mod Diagnostics.Mod StringPool.Mod ObjectFile.Mod 
 RelativeFileSystem.Mod BitSets.Mod Diagnostics.Mod StringPool.Mod ObjectFile.Mod 
-GenericLinker.Mod GenericLoader.Mod BootConsole.Mod 
+GenericLinker.Mod GenericLoader.Mod BootConsole.Mod 

+ 2 - 2
source/FoxSemanticChecker.Mod

@@ -3015,7 +3015,7 @@ TYPE
 				IF  ~(rightType = SyntaxTree.typeDeclarationType) THEN
 				IF  ~(rightType = SyntaxTree.typeDeclarationType) THEN
 					Error(right.position,"is not a type ");
 					Error(right.position,"is not a type ");
 				ELSIF ~IsTypeExtension(leftType, right(SyntaxTree.SymbolDesignator).symbol(SyntaxTree.TypeDeclaration).declaredType.resolved) THEN
 				ELSIF ~IsTypeExtension(leftType, right(SyntaxTree.SymbolDesignator).symbol(SyntaxTree.TypeDeclaration).declaredType.resolved) THEN
-					Error(binaryExpression.position,"is not a  type extension of ");
+					Error(binaryExpression.position,"is not a type extension of ");
 					IF VerboseErrorMessage THEN
 					IF VerboseErrorMessage THEN
 						Printout.Info("left",left);
 						Printout.Info("left",left);
 						Printout.Info("right",right);
 						Printout.Info("right",right);
@@ -10176,4 +10176,4 @@ TYPE
 
 
 END FoxSemanticChecker.
 END FoxSemanticChecker.
 
 
-SystemTools.FreeDownTo FoxSemanticChecker ~ 
+SystemTools.FreeDownTo FoxSemanticChecker ~