mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 04:39:31 +02:00
198907797b
if the code is compiled for x86 and returns the result in an fpu register git-svn-id: trunk@23304 -
22 lines
296 B
ObjectPascal
22 lines
296 B
ObjectPascal
{ %opt=-O4 }
|
|
{$mode objfpc}
|
|
uses
|
|
sysutils;
|
|
type
|
|
tmyclass = class
|
|
function f : double;virtual;
|
|
end;
|
|
|
|
function tmyclass.f : double;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
myclass : tmyclass;
|
|
begin
|
|
myclass:=tmyclass.create;
|
|
writeln(myclass.f+myclass.f+myclass.f);
|
|
myclass.free;
|
|
writeln('ok');
|
|
end.
|