To good optimization?

[pstudio]

So I have a pretty simple function

[pascal]function MyPoint(X,Y: Integer): TMyPoint;
begin
Result.X := X;
Result.Y := Y;
end;[/pascal]

I can't see anything wrong with this, but when I test my project all my points ends up with coordinate (0,0). I try and add some breakpoints and can see that delphi can't acces variable X and Y due to optimization :?
Can someone tell me what's going on?

EDIT. Nevermind - it turns out the problem is not there.

[CheGueVerra]

Uncheck the Optimization in the Project/Options Compiler Tab
and select Stack frames you will see the values

CheGueVerra

[chronozphere]

It's alway's a good idea to use Const.... like this:

[pascal]
function MyPoint(Const X,Y: Integer): TMyPoint;
begin
Result.X := X;
Result.Y := Y;
end;
[/pascal]

This will speed things up, especially mathy routines with lots of params.

Just to let you know.

[Setharian]

Const with integers doesn't change the code generated.

[arthurprs]

Const with integers doesn't change the code generated.

But they clarify the code

[chronozphere]

Const with integers doesn't change the code generated. Wink

Hmmm... alway's thought it would speed things up... does it do so when using other types :? ?

[arthurprs]

Const with integers doesn't change the code generated. Wink

Hmmm... alway's thought it would speed things up... does it do so when using other types :? ?

When using const in parameters the function does not copy the parameter data to a local variable on the function, it actually works as a pointer to the original parameter data (or something like that)

[cronodragon]

Const is for string, record and array parameters.

[Setharian]

You forgot interfaces and also sets larger than native integer size (4 bytes on 32-bit, 8 bytes on 64-bit).

[User137]

Ok.. assume this gets optimized to pointer even without const:
[pascal]function MyPoint(X,Y: Integer): TMyPoint;
begin
Result.X := X;
Result.Y := Y;
end; [/pascal]

But does compiler then recognize to not optimize this?

[pascal]function MyPoint(X,Y: Integer): TMyPoint;
begin
X:=X+10; // If it was pointer it would modify origin...
Result.X := X;
Result.Y := Y;
end;[/pascal]