From 529f924a9bbaee349cff7e680bf8b38b76fb45f8 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 27 Aug 2000 09:49:11 +0000
Subject: [PATCH]   * small fixes

---
 tests/tbf/tbf0343.pp | 1 +
 tests/tbs/tbs0123.pp | 9 ++++++---
 tests/tbs/tbs0327.pp | 2 +-
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/tests/tbf/tbf0343.pp b/tests/tbf/tbf0343.pp
index fee465c39b..a2b195dc0e 100644
--- a/tests/tbf/tbf0343.pp
+++ b/tests/tbf/tbf0343.pp
@@ -1,3 +1,4 @@
+{$mode delphi}
 type
   TListEntry = record
     Next: ^TListEntry;                      (*<-- Error message here*)
diff --git a/tests/tbs/tbs0123.pp b/tests/tbs/tbs0123.pp
index 022d2b74e1..90bf6c9541 100644
--- a/tests/tbs/tbs0123.pp
+++ b/tests/tbs/tbs0123.pp
@@ -1,15 +1,18 @@
 { bug for shrd assemblerreader }
 begin
+  if false then
+   begin
 {$asmmode intel}
-   asm
+     asm
       SHRD [ESI-8], EAX, CL
       SHLD EBX,ECX,5
       IMUL ECX,dword [EBP-8],5
-   end;
+     end;
 {$asmmode att}
-   asm
+     asm
       shrdl %cl,%eax,-8(%esi)
       shldl $5,%ecx,%ebx
       imull $5,-8(%ebp),%ecx
+     end;
    end;
 end.
diff --git a/tests/tbs/tbs0327.pp b/tests/tbs/tbs0327.pp
index d292db5ce0..995dbc3516 100644
--- a/tests/tbs/tbs0327.pp
+++ b/tests/tbs/tbs0327.pp
@@ -1,5 +1,5 @@
 {$ifdef fpc}{$mode delphi}{$endif}
-unit p;
+unit tbs0327;
 interface
 
 type