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

* another ugly hack

Browse Source
This commit is contained in:
peter 2003-10-23 15:39:52 +00:00
parent 4a1ecb07d1
commit 2594bcce67
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/webtbs/tw2668.pp
View File

@ -3,7 +3,7 @@
{ Submitted by "Marco" on 2003-09-06 }
{ e-mail: marco+bugs@freepascal.org }
{$MODE DELPHI} {$ASMMODE INTEL}
{$ifdef fpc}{$MODE DELPHI} {$ASMMODE INTEL} {$endif}
type
TFloatingPointClass =
@ -30,4 +30,5 @@ const
asm
MOVZX EAX, TFloatingPointClass(FPClasses[EDX])
MOVZX EAX, TFloatingPointClass([ECX].FPClasses[EDX])
MOVZX EAX, TFloatingPointClass([ECX].1[EDX])
end.