* new bugs

tests/tbf/tb0121.pp

@@ -0,0 +1,18 @@
+{ %fail }
+
+{$mode objfpc}
+
+type
+   TFPMemberVisibility = (
+     visAutomated := 'A',
+     visPublished := 'B',
+     visPrivate := 'I',
+     visProtected := 'O',
+     visPublic := 'U',
+     visDefault := 'd');
+
+  TFPArray = array[TFPMemberVisibility] of String;
+
+begin
+end.
+

tests/tbs/tb0395.pp

@@ -0,0 +1,11 @@
+type
+  dummyrec = record
+    i : int64;
+  end;
+
+var
+   d: double;
+begin
+   d := double(dummyrec($ffffffff80000000));
+end.
+

tests/webtbf/tw1927.pp

@@ -0,0 +1,3 @@
+{ %fail }
+
+Procedure Bug(B::tBug);

tests/webtbf/tw1928.pp

@@ -0,0 +1,8 @@
+{ %fail }
+
+type
+ tmethod = procedure (x: byte);
+
+begin
+ tmethod(get_static_method)(0);
+end.

tests/webtbs/tw1909.pp

@@ -0,0 +1,26 @@
+{$mode objfpc}
+
+
+var
+ global_u8bit : byte;
+ value_u8bit : byte;
+
+
+  procedure proc_value_smallarray_const_1_inline(arr : array of const);inline;
+  var
+   i: integer;
+  begin
+    for i:=0 to high(arr) do
+     begin
+       case arr[i].vtype of
+        vtInteger : global_u8bit := arr[i].vinteger and $ff;
+        else
+          RunError(255);
+       end;
+     end; {endfor}
+  end;
+
+
+begin
+  proc_value_smallarray_const_1_inline([value_u8bit]);
+end.

tests/webtbs/tw1910.pp

@@ -0,0 +1,19 @@
+type
+  tprocedure = procedure;
+
+  procedure testprocedure;
+   begin
+   end;
+
+
+  procedure proc(const buf);
+  var
+    p : tprocedure;
+  begin
+    p:=tprocedure(@buf);
+  end;
+
+
+begin
+  proc(testprocedure);
+end.

tests/webtbs/tw1920.pp

@@ -0,0 +1,7 @@
+{ %ver=1.1 }
+
+VAR
+        X64     : Qword;
+BEGIN
+        X64:=$123456789A;
+END.

tests/webtbs/tw1923.pp

@@ -0,0 +1,17 @@
+{$mode delphi}
+
+type
+parent = class
+end;
+
+child = class
+ procedure test;
+end;
+
+procedure child.test;
+begin
+inherited;
+end;
+
+begin
+end.

tests/webtbs/tw1927.pp

@@ -0,0 +1 @@
+Procedure Bug(B::tBug);

tests/webtbs/tw1930.pp

@@ -0,0 +1,5 @@
+type
+ tprocedure = procedure (x: byte);pascal;
+
+ begin
+ end.

tests/webtbs/tw1931.pp

@@ -0,0 +1,18 @@
+Unit tw1931;
+
+Interface
+
+Const
+        Space = #32;
+        Tab = #9;
+        Cr = #13;
+        Lf = #10;
+        CrLf = #13#10;
+        Slash = '/';
+        Dash = '-';
+        Comma = ',';
+
+Implementation
+
+End {-- UChar --}.
+