Преглед на файлове

patched missing finger print for complex values

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8340 8c9fc860-2736-0410-a75d-ab315db34111
felixf преди 6 години
родител
ревизия
2b959a4477
променени са 1 файла, в които са добавени 6 реда и са изтрити 0 реда
  1. 6 0
      source/FoxFingerPrinter.Mod

+ 6 - 0
source/FoxFingerPrinter.Mod

@@ -853,6 +853,12 @@ TYPE
 			ELSE FPLongReal(SELF.fp,x.value)
 			END;
 		END VisitRealValue;
+
+		PROCEDURE VisitComplexValue*(x: SyntaxTree.ComplexValue);
+		BEGIN
+			FPLongReal(SELF.fp,x.realValue);
+			FPLongReal(SELF.fp,x.imagValue);
+		END VisitComplexValue;
 		
 		PROCEDURE VisitNilValue*(x: SyntaxTree.NilValue);
 		BEGIN IF x.type.sizeInBits = 64 THEN FPHugeInt(SELF.fp, 0) ELSE FPNumber(SELF.fp, 0) END;