From 366b7ad381e19e6b3b83edbccd21fe800939692e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 1 Mar 2000 00:16:59 +0000
Subject: [PATCH]  + 797 and 840

---
 tests/webtbs/tbug797.pp  | 30 ++++++++++++++++++++++++++++++
 tests/webtbs/tbug840.pp  | 24 ++++++++++++++++++++++++
 tests/webtbs/tbug840a.pp |  6 ++++++
 tests/webtbs/tbug840b.pp |  6 ++++++
 4 files changed, 66 insertions(+)
 create mode 100644 tests/webtbs/tbug797.pp
 create mode 100644 tests/webtbs/tbug840.pp
 create mode 100644 tests/webtbs/tbug840a.pp
 create mode 100644 tests/webtbs/tbug840b.pp

diff --git a/tests/webtbs/tbug797.pp b/tests/webtbs/tbug797.pp
new file mode 100644
index 0000000000..251ba8b215
--- /dev/null
+++ b/tests/webtbs/tbug797.pp
@@ -0,0 +1,30 @@
+program test;
+{$INLINE ON}
+
+var
+  s2 : string;
+  j : longint;
+
+  procedure Tst(s: ShortString;var j : longint); inline;
+  var
+    i : longint;
+  begin
+    s:=s + ' Yes';
+    i:=5;
+    j:=j+i;
+    WriteLn(s);
+    s2:=s;
+  end;
+begin
+   s2:='Before inline';
+   j:=5;
+   Tst('Hello Hello Hello',j);
+   if (s2<>'Hello Hello Hello Yes') or (j<>10) then
+     begin
+       if (s2<>'Hello Hello Hello Yes') then
+         writeln('s2 = ',s2);
+       if (j<>10) then
+         writeln('j = ',s2);
+       halt(1);
+     end;
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug840.pp b/tests/webtbs/tbug840.pp
new file mode 100644
index 0000000000..35f7eb6319
--- /dev/null
+++ b/tests/webtbs/tbug840.pp
@@ -0,0 +1,24 @@
+{$mode TP}
+
+program tbug840;
+
+uses tbug840a;
+
+begin
+tbug840b.i:=1;
+end.
+
+----------------------------- cut here ----------------------------------------
+unit ua;
+
+interface
+uses ub;
+implementation
+end.
+----------------------------- cut here ----------------------------------------
+unit ub;
+
+interface
+var i:longint;
+implementation
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug840a.pp b/tests/webtbs/tbug840a.pp
new file mode 100644
index 0000000000..83180d1905
--- /dev/null
+++ b/tests/webtbs/tbug840a.pp
@@ -0,0 +1,6 @@
+unit tbug840a;
+
+interface
+uses tbug840b;
+implementation
+end.
diff --git a/tests/webtbs/tbug840b.pp b/tests/webtbs/tbug840b.pp
new file mode 100644
index 0000000000..eaf502988c
--- /dev/null
+++ b/tests/webtbs/tbug840b.pp
@@ -0,0 +1,6 @@
+unit tbug840b;
+
+interface
+var i:longint;
+implementation
+end.
\ No newline at end of file