ù* several tbs corrected

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.

tests/tbs0139.pp

@@ -1,8 +1,8 @@
-unit unit2;
+unit tbs0139;
  
  interface
  uses
-    objpas, bug0139a;
+    objpas, tbs0139a;
  
  type
     AnotherClass=class(SomeClass)

tests/tbs0139a.pp

@@ -1,4 +1,4 @@
- unit bug0139a;
+ unit tbs0139a;
  
  interface
  

tests/tbs0140.pp

@@ -12,7 +12,7 @@ type
  end;
 implementation
 
-uses bug0140a;
+uses tbs0140a;
 
 constructor TObject.Init(aPar:byte);
  begin

tests/tbs0140a.pp

@@ -1,9 +1,9 @@
 
-unit bug0140a;
+unit tbs0140a;
 
 interface
 
-uses bug0140;
+uses tbs0140;
 
 procedure Message(var O:TObject);
 

tests/tbs0149a.pp

@@ -1,4 +1,4 @@
-unit bug0149a;
+unit tbs0149a;
 
 interface
 

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