Repository URL to install this package:
|
Version:
3.2.0 ▾
|
{$ifdef CPUAVR}
{ avr uses instruction based init/finalization of units: this does not work if an error happens during finalization,
it results in an endless loop, so skip this test for avr }
begin
end.
{$else CPUAVR}
uses
erroru,uunit1;
begin
if testvar<>1234567 then
do_error(1000);
end.
{$endif CPUAVR}