Browse Source

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 years ago
parent
commit
2b959a4477
1 changed files with 6 additions and 0 deletions
  1. 6 0
      source/FoxFingerPrinter.Mod

+ 6 - 0
source/FoxFingerPrinter.Mod

@@ -853,6 +853,12 @@ TYPE
 			ELSE FPLongReal(SELF.fp,x.value)
 			ELSE FPLongReal(SELF.fp,x.value)
 			END;
 			END;
 		END VisitRealValue;
 		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);
 		PROCEDURE VisitNilValue*(x: SyntaxTree.NilValue);
 		BEGIN IF x.type.sizeInBits = 64 THEN FPHugeInt(SELF.fp, 0) ELSE FPNumber(SELF.fp, 0) END;
 		BEGIN IF x.type.sizeInBits = 64 THEN FPHugeInt(SELF.fp, 0) ELSE FPNumber(SELF.fp, 0) END;