使用 AVR-Ada 执行任务

Question

我正在尝试使用 AVR-Ada 实现任务功能，但是当我运行 make 时，我收到以下错误消息：

C:\avr_test>make
avr-gcc.exe (GCC) 4.3.3
Copyright (C) 2008 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

ADA_PROJECT_PATH= avr-gnatmake -XMCU=atmega8 -p -Pbuild.gpr  -XAVRADA_MAIN=led_on avr-gcc -c --RTS=rts/avr4 -gnatec=C:\avr-ada\lib\gnat\gnat.adc -gdwarf-2 -gnatwp -gnatwu gnatn -gnatp -gnatVn -Os -gnatef -fverbose-asm -frename-registers -mmcu=atmega8 gnateDMCU=atmega8 -fdata-sections -ffunction-sections -I- -gnatA C:\avr_test\led_on.adb
c:\avr_test\led_on.adb:3:06: warning: unit "task_bla" is not referenced
c:\avr_test\task_bla.ads:3:04: construct not allowed in configurable run-time mode
c:\avr_test\task_bla.ads:3:04: violation of restriction "no_tasking" at C:\avr-ada\lib    \gnat\gnat.adc:124
avr-gnatmake: "c:\avr_test\led_on.adb" compilation error
make: ** [led_on.elf] Erro 4

那么，我该怎么做才能启用任务功能？

我的包只有非常简单的测试任务：（我只是想检查任务功能）

-- led_on.adb
with AVR; use AVR;
with AVR.MCU;
with task_bla;
procedure LED_On is
 LED : Boolean renames MCU.PortB_Bits (3);
begin
 MCU.DDRB_Bits := (others => DD_Output);
 LED := Low;
end LED_On;

-- task_bla.ads
package task_bla is
 task test;
end task_bla;

-- task_bla.adb
package task_bla is
 task body test is
  loop
   null;
  end loop;
 end test;
end task_bla;

Answer 1

您必须为 AVR-Ada 的运行时系统实施任务。

我认为硬件不能很好地支持任务，所以这可能相当困难。

Answer 2

在不了解 AVR 的情况下，您的 gnat.adc 文件中的第 124 行似乎有 no_tasking 限制，请查看此内容，看看是否可以安全地删除它。

注意：这可能是有充分理由的，所以这样做的风险由您自己承担。

Answer 3

我找到了可能是这件事的线索。我正在更详细地阅读 AVR-Ada 文档，我在 AVR-Ada Sourceforge 文档 Status 区域中找到了这一点-ada/index.php?title=状态" rel="nofollow">http://sourceforge.net/apps/mediawiki/avr-ada/index.php?title=状态：

AVR-Ada当前是基于gcc-4.3.3的V1.1。

所提供的 Ada 运行时系统 (RTS) 在很大程度上甚至不是运行时系统。它更像是一个编译时系统:-)。 RTS 中的大多数文件仅在编译时需要。因此，我们还不支持异常或任务（多线程）。

有一些 AVR 特定支持。类型和接口定义、定时例程、eeprom 访问、UART，以及最重要的是大多数 AVR 部件所需的端口和中断定义。

因此，任务分配功能一开始并未启用/可用。深入文档，我在 http://sourceforge .net/apps/mediawiki/avr-ada/index.php?title=InstallRunTimeSystem：

安装运行时系统

安装 Ada 运行时系统和 AVR 支持库

构建并安装 Ada 交叉编译器后，您需要一个基本的运行时系统 (RTS)。

解压AVR-Ada源代码发行版后，在顶级目录中运行configure和make。配置从已安装的 gcc 确定安装路径 (PREFIX)。请参阅 Makefile 中不同 make 目标的注释。您应该首先构建并安装 RTS，然后是 AVR 库。 RTS 将安装在 gcc 树中，AVR 库将安装在 PREFIX/avr/ada 中。确保您在这些位置具有写入权限。

<前><代码>配置
制作build_rts
进行安装_rts
制作构建库
制作安装库

仅存在运行时库中的几个文件。目前它仅包含编译时所需的文件。请参阅目录 rts/adainclude。

AVR-Ada 的未来版本应该扩展所提供的 RTS 的可能性。这可能包括：

艾达例外。 AVR-libc 中已经支持 setjmp/longjmp，但我不知道异常在嵌入式系统中有多有用。
简单的任务（就像在Ravenscar 简介中一样）。这可能应该构建在像 AvrX 这样的小型调度程序之上。

不要指望在不久的将来会出现任何事情！

好吧，我还没有时间测试这一切。但很快我就会做到了。也许需要付出一点努力才能启用任务分配。