new files

tests/webtbs/tbug890.pp

@@ -0,0 +1,17 @@
+{$MODE TP }
+
+unit tbug890;
+
+INTERFACE
+
+procedure GetScreenLine(const x: Integer);
+
+IMPLEMENTATION
+
+procedure GetScreenLine(x: Integer);
+begin
+ x:=5;
+end;
+
+begin
+end.

tests/webtbs/tbug891.pp

@@ -0,0 +1,25 @@
+{ this declaration: ;}
+{$mode TP}
+ var
+   name_a : packed array[0..255] of char;
+
+const
+   name_b : PChar = 'test';
+
+begin
+   { the FPC compiler (0.99.14a) will refuse to compile
+    the line ; }
+
+    if (name_b <> name_a) then
+      writeln(' a and b are different');
+    { while it works under Turbo Pascal (TP). ;}
+     if (name_b <> PChar(name_a)) then
+      writeln(' a and b are different');
+    { is a legal FPC line, but illegal in TP.}
+
+    { I used ; }
+    if (name_b <> PChar(@name_a)) then
+      writeln(' a and b are different');
+    {because it seems to work for both compiler.}
+
+end.

tests/webtbs/tbug895.pp

@@ -0,0 +1,14 @@
+program bug;
+
+begin
+  {$I-}
+  mkdir('test895');
+  InOutRes:=0;
+  {$I+}
+  writeln('This is a test');
+  {$I-}
+  mkdir('test895');
+  InOutRes:=0;
+  {$I+}
+  writeln('This is a test');
+end.