diff --git a/tests/webtbf/tw2242.pp b/tests/webtbf/tw2242.pp index 63da03ea13..f91964136f 100644 --- a/tests/webtbf/tw2242.pp +++ b/tests/webtbf/tw2242.pp @@ -1,5 +1,5 @@ { %fail } -{ %target=go32v2,win32 } +{ %target=go32v2 } { %opt=-Sc } VAR s : ansistring; BEGIN diff --git a/tests/webtbs/tw2883.pp b/tests/webtbs/tw2883.pp index 51edb980d7..b9ef50f7d1 100644 --- a/tests/webtbs/tw2883.pp +++ b/tests/webtbs/tw2883.pp @@ -3,6 +3,8 @@ { e-mail: Den.Jean@pandora.be } unit tw2883; +{$mode objfpc} + interface type TRec = record Field1 : smallint; diff --git a/tests/webtbs/tw2899.pp b/tests/webtbs/tw2899.pp index 334902575c..09a5e43507 100644 --- a/tests/webtbs/tw2899.pp +++ b/tests/webtbs/tw2899.pp @@ -22,7 +22,7 @@ begin writeln('Before NestedProc: "',s,'"'); NestedProc(s); writeln('After NestedProc: "',s,'"'); // s is now emtpy - if s<>'WhatAStrangeBug' then + if s<>'AStrangeBug' then halt(1); end; diff --git a/tests/webtbs/tw2904.pp b/tests/webtbs/tw2904.pp index f12c6fbcad..a34a8abb80 100644 --- a/tests/webtbs/tw2904.pp +++ b/tests/webtbs/tw2904.pp @@ -3,6 +3,7 @@ { e-mail: clootie@ixbt.com } program Project2; {$mode objfpc} +{$goto on} {$APPTYPE CONSOLE} uses SysUtils; diff --git a/tests/webtbs/tw2908.pp b/tests/webtbs/tw2908.pp index 0ec585f0dd..b9b56b53e7 100644 --- a/tests/webtbs/tw2908.pp +++ b/tests/webtbs/tw2908.pp @@ -1,10 +1,16 @@ +{ %cpu=i386 } + { Source provided for Free Pascal Bug Report 2908 } { Submitted by "marcov (gory bugs department)" on 2004-01-19 } { e-mail: } {$mode delphi} +procedure p; asm -//and [eax],$ff0000000 -and [edx + ebx + 3], $0000ffff -and [edx + 3], $00ffffff + and [eax],$ff0000000 + and [edx + ebx + 3], $0000ffff + and [edx + 3], $00ffffff +end; + +begin end.