* small fixes

tests/tbf/tbf0343.pp

@@ -1,3 +1,4 @@
+{$mode delphi}
 type
   TListEntry = record
     Next: ^TListEntry;                      (*<-- Error message here*)

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.

tests/tbs/tbs0327.pp

@@ -1,5 +1,5 @@
 {$ifdef fpc}{$mode delphi}{$endif}
-unit p;
+unit tbs0327;
 interface
 
 type