paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 09:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed runtime code

Browse Source
This commit is contained in:
peter 2003-10-27 15:28:44 +00:00
parent 450c9a848c
commit e2a64130f5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw2668.pp
View File

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