Sehr seltsame Fehler bei if/then

Ich habe in einem Programm sehr seltsame Fehler, u. a. habe ich eine Abfrage



Diese gibt IMMER false zurück, egal was in PORT_STABLE1 steht!

Ich habe es im Emulator durchgeklickt, der zeigt auch an, dass es 0 ist, springt dennoch auf return(false);
(Siehe Bild)

Das ganze Programm macht Dummfug, das ist nicht die einzige Stelle wo das auftritt. Ich habe auch einige Repeat .. until Schleifen die abbrechen obwohl die Bedingung nicht erfüllt ist!

Was könnte das sein?

Das ist so seit ich die FT800 Unit eingebunden habe.. Ohne die Unit passiert das nicht.
Stack/Frame sind laut Emu nur zu 20% genutzt.

Ich habe es gefunden...das hier hat es ausgelöst:

{$IDATA}
VAR
TimeByte : byte;
UpdateTFT : boolean;


procedure onsystick;
begin
if IncToLimWrap(TimeByte, 5, 0) then
UpdateTFT:= true;
endif;
end;

Systick steht auf 10ms.
Damit brechen fast alle Repeat-Until-Schleifen vorzeitig ab.

Was könnte das sein? Wird da irgendwo ein Bereich überschritten?

Hallo Louis,

schlechte Idee im SysTick solche mächtigen Funktionen ausführen zu lassen.
Aber wenn schon, dann muss der User selbst bei Eintritt und Exit für die
notwendige Register Rettung sorgen. Hier werden standardmässig nur
ACCA, ACCB, ACCCLO und ACCChi gerettet!!!!

Gunters Tip ist hier lebenswichtig....

rolf

Ah, wieder etwas schlauer. Ich nahm an, dass onSystick keine Interruptroutine ist, lesen bildet :banghead: ..

Davon abgesehen: Der Optimizer baut ja normalerweise Push/Pop da ein wo es nötig ist, bei OnSystick tut er das nicht. Wäre vielleicht noch eine Verbesserungsmöglichkeit.