* fixed comparisation of booleans and nulls in variants, fixes bug #3953

git-svn-id: trunk@35 -

.gitattributes

@@ -6099,6 +6099,8 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
 tests/webtbs/tw3898.pp svneol=native#text/plain
 tests/webtbs/tw3899.pp svneol=native#text/plain
 tests/webtbs/tw3900.pp svneol=native#text/plain
+tests/webtbs/tw3953a.pp svneol=native#text/plain
+tests/webtbs/tw3953b.pp svneol=native#text/plain
 tests/webtbs/tw3973.pp svneol=native#text/plain
 tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain

tests/webtbs/tw3953a.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 3953 }
+{ Submitted by "Jesus Reyes A." on  2005-05-08 }
+{ e-mail: [email protected] }
+program CompareBooleanVars;
+uses variants;
+var
+  A,B: Variant;
+begin
+  A := True;
+  B := True;
+  if A=B then
+    WriteLn('A and B are equal')
+  else
+    begin
+      WriteLn('A and B are NOT equal');
+      halt(1);
+    end;
+end.

tests/webtbs/tw3953b.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 3953 }
+{ Submitted by "Jesus Reyes A." on  2005-05-08 }
+{ e-mail: [email protected] }
+program CompareNULLVars;
+uses variants;
+var
+  A,B: Variant;
+begin
+  A := NULL;
+  B := NULL;
+  if A=B then
+    WriteLn('A and B are equal')
+  else
+    begin
+      WriteLn('A and B are NOT equal');
+      halt(1);
+    end;
+end.