+ 797 and 840

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.

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.

tests/webtbs/tbug840a.pp

@@ -0,0 +1,6 @@
+unit tbug840a;
+
+interface
+uses tbug840b;
+implementation
+end.

tests/webtbs/tbug840b.pp

@@ -0,0 +1,6 @@
+unit tbug840b;
+
+interface
+var i:longint;
+implementation
+end.