Yes, I am entering Ludum Dare 21 however a little hitch has occured in this code:
Code:
{$Mode ObjFpc}
type
oApplication = Object
CycleDelay: Int64;
LastWait: Int64;
procedure Wait();
end;
var
App: oApplication;
procedure oApplication.Wait();
var
TargetWait: Int64;
Time: Int64;
begin
Time := Sdl_GetTicks();
TargetWait := (Time - LastWait);
if TargetWait <= 0 then
TargetWait := 1;
writeln('W ', TargetWait,' lw ',LastWait, ' t ',Time);
Pause(TargetWait);
LastWait := Time;
end;
BUT whenever I call App.Wait() CycleDelay is set to 256 and so is LastWait when it categorically writes the actual time as Time and this occurs with every variable I try to assign that is in an object
If it matters I am on fpc 2.4.0 x64 on a maverick 10.10 box and also occurs on fpc 2.4.0 on Natty x64. Someone please help, no one the IRC picked up
Bookmarks