* new bugs

tests/webtbs/tw2815.pp

@@ -0,0 +1,23 @@
+{ %opt=-Sew }
+
+{ Source provided for Free Pascal Bug Report 2815 }
+{ Submitted by "Mattias Gaertner" on  2003-11-30 }
+{ e-mail: [email protected] }
+program VirtualCreate;
+
+{$mode objfpc}{$H+}
+
+type
+  TAbstractClass = class
+  public
+    constructor Create;
+    constructor VirtualCreate; virtual; abstract;
+  end;
+
+constructor TAbstractClass.Create;
+begin
+  VirtualCreate;
+end;
+
+begin
+end.

tests/webtbs/tw2817.pp

@@ -0,0 +1,19 @@
+{ %opt=-Sen }
+
+{ Source provided for Free Pascal Bug Report 2817 }
+{ Submitted by "Mattias Gaertner" on  2003-11-30 }
+{ e-mail: [email protected] }
+program UnusedVar;
+
+{$mode objfpc}{$H+}
+
+procedure DoSomething(var Lines: PPChar; var LineCount: integer);
+var
+  p: PPChar;
+begin
+  p:=Lines;
+  p[LineCount-1]:=nil;
+end;
+
+begin
+end.