浏览代码

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 年之前
父节点
当前提交
a87f529875
共有 1 个文件被更改,包括 4 次插入0 次删除
  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);