Browse Source

* new bugs

peter 23 years ago
parent
commit
9abe8bf055
3 changed files with 85 additions and 0 deletions
  1. 55 0
      tests/webtbs/tw2045.pp
  2. 18 0
      tests/webtbs/tw2046.pp
  3. 12 0
      tests/webtbs/tw2128.pp

+ 55 - 0
tests/webtbs/tw2045.pp

@@ -0,0 +1,55 @@
+{ Source provided for Free Pascal Bug Report 2045 }
+{ Submitted by "Eero Tanskanen" on  2002-07-16 }
+{ e-mail: [email protected] }
+Unit tw2045;
+Interface
+
+  Type
+
+    TCoords = Object
+
+      X, Y, Z: Real;
+
+    End;
+
+    PEmpty = ^TEmpty;
+    TEmpty = Object
+
+    End;
+
+    PBugger = ^TBugger;
+    TBugger = Object
+
+      A : TCoords;
+      B : TCoords;
+      C : TCoords;
+
+      Empty : PEmpty;
+
+      Function DoInternalError : PBugger;
+
+    End;
+
+Implementation
+
+  Function CallForBug(A, B, C, D, E, F, G, H, I : Real) : PEmpty;
+  Begin
+
+  End;
+
+  Function TBugger.DoInternalError : PBugger;
+  Var
+    TempEmpty : PEmpty;
+  Begin
+
+    DoInternalError := Nil;
+
+    TEmpEmpty := CallForBug(DoInternalError^.A.X, DoInternalError^.A.Y, DoInternalError^.A.Z,
+      DoInternalError^.B.X, DoInternalError^.B.Y, DoInternalError^.B.Z,
+        DoInternalError^.C.X, DoInternalError^.C.Y,  DoInternalError^.C.Z);
+
+  End;
+
+
+Begin
+End.

+ 18 - 0
tests/webtbs/tw2046.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 2046 }
+{ Submitted by "Mattias Gaertner" on  2002-07-17 }
+{ e-mail: [email protected] }
+program printftest;
+
+{$mode objfpc}{$H+}
+
+procedure printf(fm: pchar; args: array of const); cdecl; external 'c';
+
+procedure print(args: array of const);
+begin
+  printf('a number %i'#13#10,args);
+end;
+
+begin
+  print([3333]);
+end.
+

+ 12 - 0
tests/webtbs/tw2128.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 2128 }
+{ Submitted by "Bill Rayer" on  2002-09-18 }
+{ e-mail: [email protected] }
+
+{
+  Excessive 64-bit literal causes the FPC compiler to crash.
+}
+var
+  c : comp;
+begin
+  c := -9223372036854775809;
+end.