* new bugs

tests/webtbf/tw2657.pp

@@ -0,0 +1,15 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 2657 }
+{ Submitted by "Mazen NEIFER" on  2003-08-28 }
+{ e-mail: [email protected] }
+program test;
+type
+  LongInt=record
+    x,y:cardinal;
+  end;
+var
+  t:longint;
+begin
+  t:=1;
+end.

tests/webtbs/tw2473.pp

@@ -0,0 +1,13 @@
+{ Source provided for Free Pascal Bug Report 2473 }
+{ Submitted by "julien" on  2003-04-25 }
+{ e-mail: [email protected] }
+
+function afunc (line : ansistring; var i : qword)  : qword;
+begin
+  if (i>length(line[i])) then
+    writeln('hello');
+  afunc:=0;
+end;
+
+begin
+end.

tests/webtbs/tw2650.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 2650 }
+{ Submitted by "marcov" on  2003-08-21 }
+{ e-mail: [email protected] }
+
+{$mode Delphi}
+
+type someclass=class
+                 property integer :integer;
+                 end;
+
+begin
+end.

tests/webtbs/tw2651.pp

@@ -0,0 +1,18 @@
+{ %version=1.1 }
+
+{ Source provided for Free Pascal Bug Report 2651 }
+{ Submitted by "Sergey Kosarevsky" on  2003-08-23 }
+{ e-mail: [email protected] }
+{$mode objfpc}
+
+Type tMyClass=Class
+        Class Procedure InlineProc;Inline;
+     End;
+
+Class Procedure tmyClass.InlineProc;Inline;
+Begin
+End;
+
+Begin
+   tMyClass.InlineProc;
+End.

tests/webtbs/tw2656.pp

@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 2656 }
+{ Submitted by "marco" on  2003-08-27 }
+{ e-mail: [email protected] }
+{$ifdef fpc}{$mode Delphi}{$endif}
+var p1,p2 : pchar;
+    a,b,c : longint;
+
+begin
+
+ c:=a+(p1-p2)+3;   // fpc accepts this. Delphi ?
+
+ // vs
+
+ c:=a+p1-p2+3;     // delphi accepts this, fpc not.
+
+end.

tests/webtbs/tw2659.pp

@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 2659 }
+{ Submitted by "Tomas Hajny" on  2003-08-31 }
+{ e-mail: [email protected] }
+{ If the X- is removed then it compiles OK }
+
+ {$X-}
+
+procedure Test (S: string);
+begin
+end;
+
+begin
+ Test (Copy ('A', 1, 1));
+end.

tests/webtbs/tw2666.pp

@@ -0,0 +1,11 @@
+{ Source provided for Free Pascal Bug Report 2666 }
+{ Submitted by "marcov" on  2003-09-06 }
+{ e-mail: [email protected] }
+function GetDynamicMethod(AClass: TClass; Index: Integer): Pointer; assembler;
+asm
+        CALL    System.@Halt
+end;
+
+begin
+  GetDynamicMethod(nil,0);
+end.

tests/webtbs/tw2730.pp

@@ -0,0 +1,14 @@
+{ %version=1.1 }
+
+{ Source provided for Free Pascal Bug Report 2730 }
+{ Submitted by "marco (the gory bugs department)" on  2003-10-10 }
+{ e-mail:  }
+{$mode delphi}
+unit tw2730;
+
+interface
+const bla= widechar(#0);
+implementation
+
+begin
+end.

tests/webtbs/tw2731.pp

@@ -0,0 +1,6 @@
+{ Source provided for Free Pascal Bug Report 2731 }
+{ Submitted by "Wiktor Sywula" on  2003-10-10 }
+{ e-mail: [email protected] }
+uses uw2731;
+begin
+end.

tests/webtbs/tw2736.pp

@@ -0,0 +1,22 @@
+{ Source provided for Free Pascal Bug Report 2736 }
+{ Submitted by "Johannes Berg" on  2003-10-13 }
+{ e-mail: [email protected] }
+program test;
+{$MODE delphi}
+
+type
+  TTest1 = class
+    FA: Integer;
+  private  
+    property a: Integer read FA write FA;
+  end;
+  TTest2 = class(TTest1)
+    procedure b(a: Integer);
+  end;
+
+procedure TTest2.b(a: Integer);
+begin
+end;
+
+begin
+end.

tests/webtbs/tw2737.pp

@@ -0,0 +1,22 @@
+{ Source provided for Free Pascal Bug Report 2737 }
+{ Submitted by "Johannes Berg" on  2003-10-13 }
+{ e-mail: [email protected] }
+program test;
+{$MODE delphi}
+
+type
+  TTest1 = class
+    FA: Integer;
+    property a: Integer read FA write FA;
+  end;
+  TTest2 = class(TTest1)
+    procedure b(aa: Integer);
+  end;
+
+procedure TTest2.b(aa: Integer);
+var a: Integer;
+begin
+end;
+
+begin
+end.

tests/webtbs/tw2738.pp

@@ -0,0 +1,22 @@
+{ %recompile }
+
+{ Source provided for Free Pascal Bug Report 2738 }
+{ Submitted by "marco" on  2003-10-14 }
+{ e-mail:  }
+Program test87;
+{$mode Delphi}
+
+
+Uses uw2738;
+
+procedure blaat;
+
+var
+  SaveExMask: T8087Exceptions;
+begin
+    SetMasked8087Exceptions(SaveExMask);
+end;
+
+begin
+end.
+

tests/webtbs/uw2731.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 2731 }
+{ Submitted by "Wiktor Sywula" on  2003-10-10 }
+{ e-mail: [email protected] }
+unit uw2731;
+
+interface
+implementation
+initialization
+  writeln('Hello world');
+finalization
+  writeln('Bye world');
+end.

tests/webtbs/uw2738.pp

@@ -0,0 +1,24 @@
+unit uw2738;
+
+{$mode Delphi}
+interface
+
+Type
+  T8087Exception = (emInvalidOp, emDenormalizedOperand, emZeroDivide, emOverflow,
+    emUnderflow, emPrecision);
+  T8087Exceptions = set of T8087Exception;
+
+
+function SetMasked8087Exceptions(Exceptions: T8087Exceptions; ClearBefore: Boolean = True): T8087Exceptions;
+
+implementation
+
+function SetMasked8087Exceptions(Exceptions: T8087Exceptions; ClearBefore: Boolean): T8087Exceptions;
+
+begin
+ writeln('blaat called me');
+end;
+
+end.
+
+