* updated

tests/tbs0170.pp

@@ -1,6 +1,13 @@
+procedure free1;
+begin
+end;
+
+procedure free2;
+begin
+end;
+
 begin
 asm
-	call {$ifdef dummy}freemem{$else}fpc_freemem{$endif}
+        call {$ifdef dummy}free1{$else}free2{$endif}
 end;
-	
 end.

tests/tbs0187.pp

@@ -1,6 +1,8 @@
 { $OPT=-St -Cr }
 program test;
 
+{$static on}
+
 {$ifdef go32v2}
   uses dpmiexcp;
 {$endif go32v2}

tests/tbs0198.pp

@@ -6,5 +6,9 @@ type
        function GetCaps : Longint;virtual;stdcall;abstract;
    end;
 
+function to1.GetCaps2 : Longint;
+begin
+end;
+
 begin
 end.

tests/tbs0202.pp

@@ -24,8 +24,8 @@ begin
   compare(45,2);
   if not greater then
     error;
-  compare(-5,26)
-  if greater then 
-    error; 
+  compare(-5,26);
+  if greater then
+    error;
 end.
 

tests/ts010002.pp

@@ -1,4 +1,4 @@
-{ $OPT=-S2 -al -s }
+{ $OPT=-S2 }
 
 {
     $Id$
@@ -24,14 +24,14 @@ Unit ts010002;
 
 {$M+}
 
-Interface 
+Interface
 
 Type
 
-{ --------------------------------------------------------------------- 
+{ ---------------------------------------------------------------------
     Forward Declarations.
   ---------------------------------------------------------------------}
-  
+
   TComponent = Class;
   TFiler = Class;
   TPersistent = Class;
@@ -76,14 +76,14 @@ Type
     end;
 
 { ---------------------------------------------------------------------
-    TComponent 
+    TComponent
   ---------------------------------------------------------------------}
 
-  TComponentState = Set of ( csLoading, csReading, CsWriting, csDestroying, 
-                             csDesigning, csAncestor, csUpdating, csFixups ); 
+  TComponentState = Set of ( csLoading, csReading, CsWriting, csDestroying,
+                             csDesigning, csAncestor, csUpdating, csFixups );
   TComponentStyle = set of ( csInheritable,csCheckPropAvail );
   TComponentName = String;
-    
+
   TComponent = Class (TPersistent)
     Protected
       FComponentState : TComponentState;
@@ -116,7 +116,7 @@ Type
 Implementation
 
 { ---------------------------------------------------------------------
-    TComponent 
+    TComponent
   ---------------------------------------------------------------------}
 
 Function TComponent.GetComponent (Index : Longint) : TComponent;
@@ -208,7 +208,7 @@ end;
 
 
 Procedure TPersistent.Assign (Source : TPersistent);
-    
+
 begin
 end;