From 5ee979254c069721668bef392b0e5c85e1e51352 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 20 Apr 2000 15:54:17 +0000
Subject: [PATCH]  some new ones

---
 tests/webtbs/tbug918.pp | 15 +++++++++++++++
 tests/webtbs/tbug919.pp | 15 +++++++++++++++
 tests/webtbs/tbug922.pp | 24 ++++++++++++++++++++++++
 tests/webtbs/tbug925.pp | 23 +++++++++++++++++++++++
 4 files changed, 77 insertions(+)
 create mode 100644 tests/webtbs/tbug918.pp
 create mode 100644 tests/webtbs/tbug919.pp
 create mode 100644 tests/webtbs/tbug922.pp
 create mode 100644 tests/webtbs/tbug925.pp

diff --git a/tests/webtbs/tbug918.pp b/tests/webtbs/tbug918.pp
new file mode 100644
index 0000000000..6baf4796ef
--- /dev/null
+++ b/tests/webtbs/tbug918.pp
@@ -0,0 +1,15 @@
+program test;
+
+procedure Test1;
+var
+  a: Integer;
+
+    procedure Test2;
+    begin
+      a:= 0;
+    end;
+begin
+end;
+
+begin
+end.
diff --git a/tests/webtbs/tbug919.pp b/tests/webtbs/tbug919.pp
new file mode 100644
index 0000000000..0576469d61
--- /dev/null
+++ b/tests/webtbs/tbug919.pp
@@ -0,0 +1,15 @@
+ var i:integer;
+{$i386_intel}
+{ "mov i,1"
+   is like
+  "mov word ptr [i],1"
+  or
+  movw i,$1  in ATT syntax }
+
+begin
+ asm
+  mov i, 1
+ end;
+  if i <> 1 then
+    halt(1);
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug922.pp b/tests/webtbs/tbug922.pp
new file mode 100644
index 0000000000..681aee0ea9
--- /dev/null
+++ b/tests/webtbs/tbug922.pp
@@ -0,0 +1,24 @@
+program test;
+
+{$ifdef win32}
+uses
+  windows;
+{$endif }
+
+procedure write1(  var charbuf:string);
+begin
+  Writeln(Charbuf);
+end;
+
+procedure write2(  var charbuf:string; attrbuf:array of word);
+begin
+  Writeln(Charbuf);
+end;
+
+var chars : String[82];
+    attrs : array [1..162] of word;
+begin
+  Chars := 'Das ist ein Test, den ich gerade schreibe';
+  write1(chars);
+  write2(chars,attrs);
+end.
diff --git a/tests/webtbs/tbug925.pp b/tests/webtbs/tbug925.pp
new file mode 100644
index 0000000000..58ec24a714
--- /dev/null
+++ b/tests/webtbs/tbug925.pp
@@ -0,0 +1,23 @@
+{$asmmode intel}
+
+{$ifdef go32v2}
+  PROCEDURE Cursor(Form: word);assembler;
+  asm
+     mov cx,word ptr[Form]
+     and cx,1F1Fh
+     mov ah,1
+     int 10h
+  end;
+{$else not go32v2}
+  { no interrupt call on other targets }
+  procedure cursor(form : word);assembler;
+  asm
+     mov cx,word ptr[Form]
+     and cx,1F1Fh
+     mov ah,1
+  end;
+{$endif go32v2}
+
+begin
+  Cursor($11F);
+end.
\ No newline at end of file