From 2326c2b62ff4b3f10d76b46c48613a1b1719b496 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 28 Mar 2005 15:06:55 +0000
Subject: [PATCH] new bugs
---
tests/tbs/tb0489.pp | 26 ++++++++++++++++++++++++++
tests/tbs/ub0489.pp | 19 +++++++++++++++++++
tests/tbs/ub0489b.pp | 16 ++++++++++++++++
tests/webtbf/tw3841.pp | 26 ++++++++++++++++++++++++++
4 files changed, 87 insertions(+)
create mode 100644 tests/tbs/tb0489.pp
create mode 100644 tests/tbs/ub0489.pp
create mode 100644 tests/tbs/ub0489b.pp
create mode 100644 tests/webtbf/tw3841.pp
diff --git a/tests/tbs/tb0489.pp b/tests/tbs/tb0489.pp
new file mode 100644
index 0000000000..3cd606cb09
--- /dev/null
+++ b/tests/tbs/tb0489.pp
@@ -0,0 +1,26 @@
+{$mode delphi}
+uses ub0489;
+type oo = class
+ function getmyint:integer;
+ property someprop:integer read getmyint;
+ end;
+
+function oo.getmyint:integer;
+
+begin
+ result:=1;
+end;
+
+
+
+procedure test2;
+
+var ch:char;
+ x : oo;
+
+begin
+ test(x.someprop,ch,1);
+end;
+
+begin
+end.
diff --git a/tests/tbs/ub0489.pp b/tests/tbs/ub0489.pp
new file mode 100644
index 0000000000..716fdbf162
--- /dev/null
+++ b/tests/tbs/ub0489.pp
@@ -0,0 +1,19 @@
+{$mode delphi}
+
+unit ub0489;
+
+interface
+
+function test(b:integer;const x;c:integer):integer inline;
+
+implementation
+
+uses
+ ub0489b;
+
+function test(b:integer;const x;c:integer):integer inline;
+begin
+ result:=fpwrite(b,x,c);
+end;
+
+end.
diff --git a/tests/tbs/ub0489b.pp b/tests/tbs/ub0489b.pp
new file mode 100644
index 0000000000..6ee59b3e25
--- /dev/null
+++ b/tests/tbs/ub0489b.pp
@@ -0,0 +1,16 @@
+{$mode delphi}
+
+unit ub0489b;
+
+interface
+
+function fpwrite(b:integer;const x;c:integer):integer;
+
+implementation
+
+function fpwrite(b:integer;const x;c:integer):integer;
+begin
+ writeln('fpwrite');
+end;
+
+end.
diff --git a/tests/webtbf/tw3841.pp b/tests/webtbf/tw3841.pp
new file mode 100644
index 0000000000..bc1a98643b
--- /dev/null
+++ b/tests/webtbf/tw3841.pp
@@ -0,0 +1,26 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3841 }
+{ Submitted by "Joost v.d. Sluis" on 2005-03-28 }
+{ e-mail: }
+{$mode objfpc}
+
+type TMyClass = Class(TObject)
+ private
+ Function GetInte : Integer;
+ public
+ property Inte : Integer read GetInte;
+ end;
+
+var buf : longint;
+ MyClass : TMyClass;
+
+function TMyClass.GetInte : integer;
+begin
+ Result := 1010;
+end;
+
+begin
+ MyClass.Create;
+ move(MyClass.inte,buf,sizeof(longint));
+end.