Strange bug with QueryPerformanceCounter, Int64, Nodes and Aliases ?!?!?

Hello,

The following code uses nodes, it uses aliases to prevent having to typecast
stuff.

Then it calls QueryPerformanceCounter( SomeNodeRecord.Int64Field ).

And then for some reason it doesn't work, Int64Field is always zero ?

Take a look at this and tell me what you think:

// *** Begin of Code ***

program Project1;

{$APPTYPE CONSOLE}

{

Test strange compiler bug with nodes and aliases.

Version 0.01 created on 29 march 2008 by Skybuck Flying !!!

Compiler bugs starting to piss me off ! :)

Keep cool ! =D :):):)

At the same time funny though :)

This serious bug though ?!?

}

uses
SysUtils, Windows;

type
Pnode = ^Tnode;
Tnode = packed record
mNext : Pnode;
mPrev : Pnode;
mData : packed record end;
end;

TMyMethod = procedure of object;

PMyNode = ^TmyNode;
TMyNode = packed record
mNext : PmyNode;
mPrev : PmyNode;

mMethod : TmyMethod;

mDone : boolean;
mTicks : int64;
end;

var
Test : TMyNode;

function Return( var Node : Pnode ) : boolean;
begin
Node := @Test;
result := true;
end;

procedure TestInt64( var I : int64 );
begin
I := 666;
end;

procedure Main;
var
MyNodeTyped : PmyNode;
MyNodeUntyped : Pnode absolute MyNodeTyped;

vTest : int64;
begin
if Return( MyNodeUntyped ) then
begin
with MyNodeTyped^ do
begin
mDone := false;
mMethod := nil;
QueryPerformanceCounter( mTicks ); // DOES NOT WORK. STRANGE !!!
writeln( mTicks ); // ALWAYS PRINTS ZERO.

TestInt64( mTicks ); // DOES WORK. Bug seems to be related to
QueryPerformanceCounter in combination with alias ?
writeln( mTicks );

QueryPerformanceCounter( vTest ); // does work..
writeln( vTest );
end;
end;
end;

begin
try
Main;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
readln;
end.

// *** End of Code ***

Bye,
Skybuck.


.