* new bugs

tests/webtbs/tw2904.pp

@@ -0,0 +1,21 @@
+{ Source provided for Free Pascal Bug Report 2904 }
+{ Submitted by "Alexey Barkovoy" on  2004-01-17 }
+{ e-mail: [email protected] }
+program Project2;
+{$mode objfpc}
+{$APPTYPE CONSOLE}
+uses SysUtils;
+
+var
+  i: Integer;
+label
+  LFail;
+begin
+  try
+LFail: // Cleanup
+//  i:= i; //todo: Uncomment this line for FPC_1.9.2 BUG workaround !!!
+  except
+    on EOutOfMemory do i:= 1;
+    else i:= 2;
+  end;
+end.

tests/webtbs/tw2908.pp

@@ -0,0 +1,10 @@
+{ Source provided for Free Pascal Bug Report 2908 }
+{ Submitted by "marcov (gory bugs department)" on  2004-01-19 }
+{ e-mail:  }
+
+{$mode delphi}
+asm
+//and [eax],$ff0000000
+and [edx + ebx + 3], $0000ffff
+and [edx + 3], $00ffffff
+end.

tests/webtbs/tw2912.pp

@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 2912 }
+{ Submitted by "Bill Pearce" on  2004-01-19 }
+{ e-mail: [email protected] }
+procedure SetRowCount(n,m : integer);
+var
+  tmp : array of array of string;
+begin
+  SetLength(tmp, n, m);
+end;
+
+begin
+  SetRowCount(10,2);
+end.
+

tests/webtbs/tw2913.pp

@@ -0,0 +1,24 @@
+{ Source provided for Free Pascal Bug Report 2913 }
+{ Submitted by "Micha Nelissen" on  2004-01-21 }
+{ e-mail:  }
+program EnumName;
+
+{$mode objfpc}
+{$h+}
+
+uses
+  Classes, TypInfo;
+
+type
+  TEnumTest = (etOne, etTwo, etThree);
+
+  TA = class(TPersistent)
+  private
+    FTest: TEnumTest;
+  published
+    property Test: TEnumTest read FTest write FTest;
+  end;
+
+begin
+  writeln(GetEnumName(GetPropInfo(TA, 'Test')^.PropType, 2));
+end.