Ver código fonte

+ new test for overflow checking qword multiplication with high(qword)

git-svn-id: trunk@9522 -
Jonas Maebe 17 anos atrás
pai
commit
58600c71b9
2 arquivos alterados com 10 adições e 0 exclusões
  1. 1 0
      .gitattributes
  2. 9 0
      tests/test/tint644.pp

+ 1 - 0
.gitattributes

@@ -7138,6 +7138,7 @@ tests/test/tint2str2.pp svneol=native#text/plain
 tests/test/tint641.pp svneol=native#text/plain
 tests/test/tint642.pp svneol=native#text/plain
 tests/test/tint643.pp svneol=native#text/plain
+tests/test/tint644.pp svneol=native#text/plain
 tests/test/tinterface1.pp svneol=native#text/plain
 tests/test/tinterface2.pp svneol=native#text/plain
 tests/test/tinterface3.pp svneol=native#text/plain

+ 9 - 0
tests/test/tint644.pp

@@ -0,0 +1,9 @@
+{ %result=215 }
+
+{$q+}
+var
+  c: qword;
+begin
+  c:=2;
+  c:=c*qword($ffffffffffffffff);
+end.