Răsfoiți Sursa

patched fingerprinter bug with nil value.

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6579 8c9fc860-2736-0410-a75d-ab315db34111
felixf 9 ani în urmă
părinte
comite
a87f529875
1 a modificat fișierele cu 4 adăugiri și 0 ștergeri
  1. 4 0
      source/FoxFingerPrinter.Mod

+ 4 - 0
source/FoxFingerPrinter.Mod

@@ -823,6 +823,10 @@ TYPE
 			ELSE FPLongReal(SELF.fp,x.value)
 			END;
 		END VisitRealValue;
+		
+		PROCEDURE VisitNilValue(x: SyntaxTree.NilValue);
+		BEGIN IF x.type.sizeInBits = 64 THEN FPHugeInt(SELF.fp, 0) ELSE FPNumber(SELF.fp, 0) END;
+		END VisitNilValue;
 
 		(* fp = fp & String *)
 		PROCEDURE VisitStringValue(x: SyntaxTree.StringValue);