* more webbugs added

tests/webtbf/tw1270.pp

@@ -0,0 +1,12 @@
+type l = record
+          i:longint;
+          end;
+
+
+var l2 : l;
+    y  : Longint;
+    x  : Boolean;
+
+begin
+  x:=l2>y;
+end.

tests/webtbs/tw1181.pp

@@ -0,0 +1,5 @@
+{$define ok}
+{$ifdef ok}{$i uw1181.inc}{$endif}
+begin
+  p;
+end.

tests/webtbs/tw1284.pp

@@ -0,0 +1,9 @@
+{ %OPT=-Seh -vh }
+{$mode objfpc}
+ function f(p: word): boolean;
+ begin
+  result := (p mod 10 = 0);
+ end;
+begin
+ f(0)
+end.

tests/webtbs/tw1286.pp

@@ -0,0 +1,7 @@
+{$ifdef fpc}{$mode objfpc}{$endif}
+uses sysutils;
+ var S:String;
+     par:array [0..1] of TVarRec; { array of const here is illegal ! }
+begin
+ writeln(format(S, par));
+end.

tests/webtbs/uw1181.inc

@@ -0,0 +1,3 @@
+procedure p;
+begin
+end;