Просмотр исходного кода

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 лет назад
Родитель
Сommit
769f62d8e1

+ 1 - 1
source/FoxDocumentationBackend.Mod

@@ -1421,7 +1421,7 @@ TYPE
 					MergeDocument(template, NIL, document);
 					document := template;
 				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;
 

+ 2 - 2
source/FoxIntermediateBackend.Mod

@@ -10340,7 +10340,7 @@ TYPE
 				Emit(Push(position,IntermediateCode.Immediate(addressType,size)));
 				*)
 				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;
 				ReleaseOperand(s0);
 				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 
 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 
-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
 					Error(right.position,"is not a type ");
 				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
 						Printout.Info("left",left);
 						Printout.Info("right",right);
@@ -10176,4 +10176,4 @@ TYPE
 
 END FoxSemanticChecker.
 
-SystemTools.FreeDownTo FoxSemanticChecker ~ 
+SystemTools.FreeDownTo FoxSemanticChecker ~