Error bei aktueller Version

duplicate label

golf
Benutzer
Avatar
Gender:
Location: Donauwörth
Age: 71
Posts: 260
Registered: 11 / 2009
Subject:

Error bei aktueller Version

 ·  Posted: 27.05.2025 - 11:28  ·  #1
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.
Attachments
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 ........................................................................................................................
Filename: ATX256A3UTest.PAS
Filesize: 3.42 KB
Title:
Download counter: 24
Merlin
Administrator
Avatar
Gender:
Age: 25
Posts: 1437
Registered: 03 / 2005
Subject:

Re: Error bei aktueller Version

 ·  Posted: 27.05.2025 - 16:38  ·  #2
Hi Golf.

Can you please send me your complete project via pm and I will check it out.

Thanks
Selected quotes for multi-quoting:   0

Registered users in this topic

Currently no registered users in this section

The statistic shows who was online during the last 5 minutes. Updated every 90 seconds.
MySQL Queries: 16 · Cache Hits: 15   51   66 · Page-Gen-Time: 0.020141s · Memory Usage: 2 MB · GZIP: on · Viewport: SMXL-HiDPI