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

* FPU emu is only needed for m68k

Browse Source
This commit is contained in:
peter 2002-12-06 15:49:36 +00:00
parent 0cb666c270
commit 67ea49cab3
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/test/cg/taddreal1.pp
View File

@ -24,6 +24,13 @@
{ LOC_FPU }
{ LOC_REFERENCE / LOC_MEM }
{ Only m68k needs FPU emulation }
{$ifdef m68k}
{$define NEEDFPUEMU}
{$endif m68k}
{$ifdef NEEDFPUEMU}
{$E+}
procedure fail;
begin
@ -264,10 +271,20 @@ Begin
{ RealTestComplex;}
end.
{$else NEEDFPUEMU}
begin
writeln('No FPU emulation supported by this platform');
end.
{$endif NEEDFPUEMU}
{
$Log$
Revision 1.2 2002-09-07 15:40:49 peter
Revision 1.3 2002-12-06 15:49:36 peter
* FPU emu is only needed for m68k
Revision 1.2 2002/09/07 15:40:49 peter
* old logs removed and tabs fixed
Revision 1.1 2002/08/25 19:26:23 peter