From a3c0f5e3069041734cc330cb40edc83f8bc46544 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 18 Jan 1999 17:51:02 +0000
Subject: [PATCH] =?UTF-8?q?=20=C3=B9*=20several=20tbs=20corrected?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 tests/tbs0132.pp  | 6 +++---
 tests/tbs0139.pp  | 4 ++--
 tests/tbs0139a.pp | 2 +-
 tests/tbs0140.pp  | 2 +-
 tests/tbs0140a.pp | 4 ++--
 tests/tbs0149a.pp | 2 +-
 tests/tbs0149b.pp | 4 ++--
 7 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/tests/tbs0132.pp b/tests/tbs0132.pp
index 754672b492..dd7db6d311 100644
--- a/tests/tbs0132.pp
+++ b/tests/tbs0132.pp
@@ -1,12 +1,12 @@
 type
 
-  p=^p;
-  p2 = ^p2;
+  p=^p2;
+  p2 = ^p;
 
   var a:p;
       a2:p2;
 
   begin
-  	a:=a2;
+  	a:=@a2;
         a:=a2^;
   end.
\ No newline at end of file
diff --git a/tests/tbs0139.pp b/tests/tbs0139.pp
index eabb7684fa..08fe7c3c9a 100644
--- a/tests/tbs0139.pp
+++ b/tests/tbs0139.pp
@@ -1,8 +1,8 @@
-unit unit2;
+unit tbs0139;
  
  interface
  uses
-    objpas, bug0139a;
+    objpas, tbs0139a;
  
  type
     AnotherClass=class(SomeClass)
diff --git a/tests/tbs0139a.pp b/tests/tbs0139a.pp
index 47d9a355e7..4634aaacbe 100644
--- a/tests/tbs0139a.pp
+++ b/tests/tbs0139a.pp
@@ -1,4 +1,4 @@
- unit bug0139a;
+ unit tbs0139a;
  
  interface
  
diff --git a/tests/tbs0140.pp b/tests/tbs0140.pp
index 44b6beb144..7e86bfeecd 100644
--- a/tests/tbs0140.pp
+++ b/tests/tbs0140.pp
@@ -12,7 +12,7 @@ type
  end;
 implementation
 
-uses bug0140a;
+uses tbs0140a;
 
 constructor TObject.Init(aPar:byte);
  begin
diff --git a/tests/tbs0140a.pp b/tests/tbs0140a.pp
index 93ef67d093..43299014a1 100644
--- a/tests/tbs0140a.pp
+++ b/tests/tbs0140a.pp
@@ -1,9 +1,9 @@
 
-unit bug0140a;
+unit tbs0140a;
 
 interface
 
-uses bug0140;
+uses tbs0140;
 
 procedure Message(var O:TObject);
 
diff --git a/tests/tbs0149a.pp b/tests/tbs0149a.pp
index 00606bcf66..74edc4098b 100644
--- a/tests/tbs0149a.pp
+++ b/tests/tbs0149a.pp
@@ -1,4 +1,4 @@
-unit bug0149a;
+unit tbs0149a;
 
 interface
 
diff --git a/tests/tbs0149b.pp b/tests/tbs0149b.pp
index 04b57d28c5..8b6d188951 100644
--- a/tests/tbs0149b.pp
+++ b/tests/tbs0149b.pp
@@ -1,11 +1,11 @@
 {there is no crash when tset or c from unit a are used in OuterProcedure,
  it's only a problem when using them in a nested procedure/function}
 
-unit bug0149b;
+unit tbs0149b;
 
 interface
 
-uses t2a;
+uses tbs0149a;
 
 implementation