* fixed test

tests/webtbs/tw2998.pp

@@ -1,4 +1,4 @@
-{ %cpu=i386 }
+{ %cpu=i386 %OPT=-OaVARMIN=8 }
 
 { Source provided for Free Pascal Bug Report 2998 }
 { Submitted by "bartek" on  2004-03-02 }
@@ -10,6 +10,8 @@ uses
   mmx;
 type
         vector4 = array[0..3] of single;
+        
+{$maxalignment 8}
 var
         a,b,c :vector4;
 begin

tests/webtbs/tw3161.pp

@@ -1,5 +1,4 @@
 { %target=linux }
-{ %cpu=i386 }
 
 { Source provided for Free Pascal Bug Report 3161 }
 { Submitted by "Michalis Kamburelis" on  2004-06-12 }
@@ -8,12 +7,14 @@
 {$mode delphi}
 
 uses 
-  Libc,
-  SysUtils;
+  initc,
+  SysUtils,
+  math;
 
 var A:Extended;
 err : boolean;
 begin
+  SetExceptionMask([]);
   err:=true;
   try
  { When I don't do "uses Libc",
@@ -24,6 +25,9 @@ begin
    err:=false;
  end;
  if err then
-    halt(1);
+   begin
+     writeln('error');
+     halt(1);
+   end;
 end.