Error bei aktueller Version

In der aktuellen Compilerverison bekomme ich einen Error duplicate label. bei der Version vom Februar konnte ich das Programm noch ohne Fehlermeldung compilieren.
Anbei stark gekürzte Version des Programms.

In the current compiler version, I get a duplicate label error. With the February version, I was able to compile the program without any errors.
Attached is a significantly abbreviated version of the program.

Anhänge an diesem Beitrag

program ATX256A3UTest; {$NOSHADOW} { $WG} {global Warnings off} Device = xmega128A3U, VCC=3.3; { $BOOTRST $20000} {Reset Jump to $20000} Import SysTick ; // From System Import longword; //,int64; Define OSCtype = int32MHz, PLLmul=4, prescB=1, prescC=1; SysTick = 10; //msec StackSize = $00164, iData; FrameSize = $00164, iData; Implementation {$IDATA} {------------------------------------------------------------} { Type Declarations } {--------------------------------------------------------------} { Const Declarations } { Var Declarations } {$IDATA} var OnOffTimerTime: boolean; HopTimerTime: boolean; MilliSekBol : boolean; {--------------------------------------------------------------} { functions } Interrupt TCC0_INTOVF; // umschalten auf 2. Zeit On oder Offzeit, begin OnOffTimerTime:= true; // Rest der Umschaltungen in der Main-Loop-routine end; Interrupt TCD0_INTOVF; // bei Hopperbetrieb genutzt begin HopTimerTime:= true; // Rest der Umschaltungen in der Main-Loop-routine end; Interrupt TCE0_INTOVF; // für Sendezeiten und Softsweep genutzt x * 1 msec begin MilliSekBol := true; // für SoftSweepVerweildauer genutzt end; { Main Program } {$IDATA} begin EnableInts($87); // alle Ints freigeben DDRA:= %01111111; // Timer setzen für 0,083333 µ * 1200 = 100µsec OnOffTimeWert Overflow TCC0PERL := $B0; // PERL - Period Register L Bite 7..0 TCC0PERH := $04; // PERH - Period Register H 15..8 // TCC0CTRLA := $03; // 3..0 Clock.select Prescaler 03= Clk/4 04: clk/8 05: clk/64 06: clk/256 07 : clk/1024 TCC0CTRLA := $03; // 3..0 Clock.select Prescaler 03= Clk/4 04: clk/8 05: clk/64 06: clk/256 07 : clk/1024 TCC0INTCTRLA := $02; TCC0CTRLA := $00; // Timer Off ! //......................... bei Hopperbetrieb ........................................................................................................................
Dateiname:	ATX256A3UTest.PAS
Dateigröße:	3.42 KB
Titel:
Heruntergeladen:	143

Error bei aktueller Version

duplicate label

Error bei aktueller Version

Anhänge an diesem Beitrag

Re: Error bei aktueller Version

Re: Error bei aktueller Version

Registrierte in diesem Thema