* new bugs

tests/webtbs/tw2305.pp

@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 2305 }
+{ Submitted by "Sergey Kosarevsky" on  2003-01-03 }
+{ e-mail: [email protected] }
+Type tObject=Object
+        Constructor Init;
+     End;
+
+Constructor tObject.Init;
+Begin
+End;
+
+Begin
+   WriteLn(Int64(@tObject.Init));
+End.

tests/webtbs/tw2306.pp

@@ -0,0 +1,24 @@
+{ Source provided for Free Pascal Bug Report 2306 }
+{ Submitted by "Sergey Kosarevsky" on  2003-01-03 }
+{ e-mail: [email protected] }
+{$H-}
+
+Const LONG_STR_SIZE=4096;
+
+Type tLongStr=Object  // try to change this
+                      // to Record
+        LStr:Array[1..LONG_STR_SIZE] Of Char;
+        LLength:Longint;
+     End;
+
+Operator := (S:String) R:tLongStr;
+Begin
+   R.LLength:=Length(S);
+   Move(S[1],R.LStr[1],Length(S));
+End;
+
+Var T:tLongStr;
+
+Begin
+   T:='Hello';
+End.

tests/webtbs/tw2307.pp

@@ -0,0 +1,14 @@
+{ %OPT=-Sew }
+{ Source provided for Free Pascal Bug Report 2307 }
+{ Submitted by "Sergey Kosarevsky" on  2003-01-03 }
+{ e-mail: [email protected] }
+{$WARNINGS ON}
+
+Function BugHint:String;
+Begin
+   Exit('ResultString');
+End;
+
+Begin
+   BugHint;
+End.