mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
6c8eed21c4
+ implement trashing of local variables if subroutine is inlined * fix some errors releated to interproc. gotos and inlining + node_count function * inline cannot be used with iochecking and safecall calling conventions * track inherited usage * don't inline if inherited is used git-svn-id: trunk@21335 -
56 lines
685 B
ObjectPascal
56 lines
685 B
ObjectPascal
{ %opt=-g-t }
|
|
|
|
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
procedure Foo1;
|
|
var
|
|
a: TObject;
|
|
r: record
|
|
b : array[0..10] of byte
|
|
end;
|
|
begin
|
|
{$ifdef cpu32}
|
|
if ptruint(a)<>$55555555 then
|
|
halt(1);
|
|
{$else}
|
|
if ptruint(a)<>$5555555555555555 then
|
|
halt(1);
|
|
{$endif}
|
|
end;
|
|
|
|
procedure Foo2;inline;
|
|
var
|
|
a: TObject;
|
|
r: record
|
|
b : array[0..10] of byte
|
|
end;
|
|
begin
|
|
{$ifdef cpu32}
|
|
if ptruint(a)<>$55555555 then
|
|
halt(1);
|
|
{$else}
|
|
if ptruint(a)<>$5555555555555555 then
|
|
halt(1);
|
|
{$endif}
|
|
end;
|
|
|
|
|
|
procedure Foo3;inline;
|
|
var
|
|
r: record
|
|
b : array[0..10] of byte
|
|
end;
|
|
begin
|
|
if r.b[3]<>$55 then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
Foo1;
|
|
Foo2;
|
|
Foo3;
|
|
writeln('ok');
|
|
end.
|