diff --git a/tests/webtbs/tw2668.pp b/tests/webtbs/tw2668.pp index ff2c9c6e29..b1a7b80ae9 100644 --- a/tests/webtbs/tw2668.pp +++ b/tests/webtbs/tw2668.pp @@ -1,3 +1,4 @@ +{ %cpu=i386 } { %version=1.1 } { Source provided for Free Pascal Bug Report 2668 } { Submitted by "Marco" on 2003-09-06 } @@ -28,7 +29,10 @@ const ); asm + MOV ECX,0 + MOV EDX,0 MOVZX EAX, TFloatingPointClass(FPClasses[EDX]) MOVZX EAX, TFloatingPointClass([ECX].FPClasses[EDX]) + LEA ECX,FPClasses MOVZX EAX, TFloatingPointClass([ECX].1+2[EDX]) end.