浏览代码

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;