new bugs

tests/webtbs/tw3429.pp

@@ -0,0 +1,19 @@
+uses uw3429;
+
+var
+  ok : byte;
+begin
+  if v=7 then
+    begin
+      ok:=ok or 1;
+      writeln('ok1');
+    end;
+  if v='7' then
+    begin
+      ok:=ok or 2;
+      writeln('ok2');
+    end;
+  writeln(v);
+  if ok<>3 then
+    halt(1);
+end.

tests/webtbs/tw3433.pp

@@ -0,0 +1,21 @@
+{ Source provided for Free Pascal Bug Report 3433 }
+{ Submitted by "Mattias Gaertner" on  2004-12-06 }
+{ e-mail: [email protected] }
+program CompareFunctionTypes;
+
+{$mode objfpc}{$H+}
+
+uses
+  Classes, SysUtils;
+
+type
+  TMyFunction = function(Item: Pointer): integer of object;
+
+procedure DoSomething(const Func1, Func2: TMyFunction);
+begin
+  if Func1=Func2 then exit;
+end;
+
+begin
+  DoSomething(nil,nil);
+end.

tests/webtbs/uw3429.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 3429 }
+{ Submitted by "Danny Milosavljevic" on  2004-12-05 }
+{ e-mail: [email protected] }
+unit uw3429;
+interface
+var
+  v: Variant;
+implementation
+begin
+  v := 7;
+end.