* fix compare with null

git-svn-id: trunk@2310 -

.gitattributes

@@ -6679,6 +6679,7 @@ tests/webtbs/tw4635.pp svneol=native#text/plain
 tests/webtbs/tw4640.pp svneol=native#text/plain
 tests/webtbs/tw4669.pp svneol=native#text/plain
 tests/webtbs/tw4675.pp svneol=native#text/plain
+tests/webtbs/tw4700.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw4700.pp

@@ -0,0 +1,12 @@
+var
+  a: Boolean;
+  b,c,d : Variant;
+  e : Integer;
+begin
+  b := 'abc';
+  c := null;
+  a := b = c;
+  a := b <> c;
+  d := e - c;
+  d := e + c;
+end.