* new bugs

tests/webtbs/tw2953.pp

@@ -0,0 +1,26 @@
+{ Source provided for Free Pascal Bug Report 2956 }
+{ Submitted by "Marco (Gory Bugs Department)" on  2004-02-08 }
+{ e-mail:  }
+
+{$mode Delphi}
+Uses uw2953;
+
+type
+     localclassfields = class(aclasswithfields)
+                        end;
+     classwithmethod = class
+                        procedure xx;
+                        end;
+
+procedure classwithmethod.xx;
+
+var ll : aclasswithfields;
+
+begin
+ writeln(localclassfields(ll).field1);  // goes ok.
+ with localclassfields(ll) do           // typecast.
+   writeln(field1);
+end;
+
+begin
+end.

tests/webtbs/tw2956.pp

@@ -0,0 +1,27 @@
+{ Source provided for Free Pascal Bug Report 2956 }
+{ Submitted by "Marco (Gory Bugs Department)" on  2004-02-08 }
+{ e-mail:  }
+
+program something;
+{$mode Delphi}
+Uses altunit;
+
+type
+     localclassfields = class(aclasswithfields)
+                        end;
+     classwithmethod = class
+                        procedure xx;
+                        end;
+
+procedure classwithmethod.xx;
+
+var ll : aclasswithfields;
+
+begin
+ writeln(localclassfields(ll).field1);  // goes ok.
+ with localclassfields(ll) do           // typecast.
+   writeln(field1);
+end;
+
+begin
+end.

tests/webtbs/tw2958.pp

@@ -0,0 +1,41 @@
+{ Source provided for Free Pascal Bug Report 2958 }
+{ Submitted by "Marco ( Gory Bugs Department)" on  2004-02-08 }
+{ e-mail:  }
+
+{$mode Delphi}
+Uses Classes;
+
+type
+
+  TIdHash = class(TObject);
+
+  TIdHash32 = class(TIdHash)
+  public
+    function HashValue(const ASrc: string): LongWord; overload;
+    function HashValue(AStream: TStream): LongWord; overload; virtual; abstract;
+  end;
+
+  TIdHashCRC32 = class( TIdHash32 )
+  public
+    function HashValue( AStream: TStream ) : LongWord; override;
+    function HashValue( AStream: TStream; const ABeginPos: Cardinal{=0}; const AEndPos : Cardinal{=0} ) : LongWord; overload;
+  end;
+
+
+function tidhash32.hashvalue(const ASrc:string):longword;
+
+begin
+end;
+
+function tidhashCRC32.hashvalue(AStream:TStream):longword;
+
+begin
+end;
+
+function tidhashcrc32.hashvalue(AStream:TStream;const ABeginPos: Cardinal{=0}; const AEndPos : Cardinal{=0} ) : LongWord;
+
+begin
+end;
+
+begin
+end.

tests/webtbs/tw2972.pp

@@ -0,0 +1,12 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2972 }
+{ Submitted by "Michalis Kamburelis" on  2004-02-13 }
+{ e-mail: [email protected] }
+type
+  TEnum = (one, two);
+
+var s:String;
+begin
+ s:=one;
+end.