🚀 go-pugleaf

Also zuerst einmal vielen Dank fuer zwei Zuschriften. Der Fehler lag darin,
dass ich in meiner Unbedachtheit vergessen habe, dass der integer-Bereich
nur  von -32768 bis 32768 geht. Wenn man Werte groesser als diese iterieren
will, berechnet die Zeitmessung nur den Bereich bis 32768 - daher kam meine
Annahme, das Programm wuerde nicht korrekt laufen.

Die korrigierte Pascal Version muss natuerlich lauten :

--------------- Pascal-Programm Beginn ----------------
program zeitmessung (input,output);

uses timer;

type TMInfo = record atmTask : TMTask;
                  tmRefCon : longint;
              end;
     TMInfoPtr = ^TMInfo;
                  
var a,i, milliseconds : longint;      {Hier lag der Fehler !!!}
            {            ^^^^^^                               }
    myTMInfo : TMInfo;
    
begin

myTMInfo.atmTask.tmAddr := nil;
myTMInfo.atmTask.tmWakeUp := 0;
myTMInfo.atmTask.tmReserved := 0;
myTMInfo.tmRefCon := SetCurrentA5( );

InsTime ( @myTMInfo ); 

PrimeTime ( @myTMInfo, 3600000 );

for i:=1 to 10000000 do a := a + 0;   {Nutzzlose Routine zur
Zeitberechnung}

RmvTime ( @myTMInfo);

milliseconds := 3600000 - myTMInfo.atmTask.tmCount;
writeln('Zeit : ', milliseconds);     {Ausgabe der verbratenen Zeit}

end.

------------ Pascal Programm Ende ----------------





Alexander Schmidt


-------------------------------------------------------------
Alexander Schmidt                 e-mail : aschmidt@m.isar.de
Lindenstrasse 1, 82031 Gruenwald, Tel/Fax : ++49-89-641 21 82

-------------------------------------------------------------