aus system.pas: used to hack the result to force a failure..

[heri]

Ich habe durch Zufall folgendes im BDS\4.0\source\Win32\rtl\sys\system.pas entdeckt:

Delphi-Quellcode:

function _InitUnitPrep: Int64;
var
  SystemTime: TSystemTime;
  FileTime: TFileTime;
  Days: Int64;
begin
  GetLocalTime(SystemTime);
  SystemTimeToFileTime(SystemTime, FileTime);

    // used to hack the result to force a failure for testing:
  Days := 1000000000 div 100;
  Days := Days * 3600;
  Days := Days * 24;
  Days := Days * 31;
  Days := 0;

  Result := Int64(FileTime) + Days;
//  Dec(InitContext.InitTable^.UnitCount);
end;

nur aus reiner Neugier - hat jemand eine Idee was das "used to hack the result to force a failure" bedeutet?
schon interessant was man so alles im source von delphi entdeckt :)

[edit=r_kerber]Delphi-Tags eingefügt. Das nächste Mal bitte selbst daran denken. Mfg, r_kerber[/edit]