在Ada中，如何将constraint_error更改为自定义异常？
在Ada中，可以通过使用raise语句将constraint_error更改为自定义异常。raise语句用于引发异常，并且可以指定自定义的异常类型。
以下是将constraint_error更改为自定义异常的示例代码：
with Ada.Text_IO;
procedure Custom_Exception is
-- 自定义异常类型
exception My_Exception;
-- 引发异常的过程
procedure Raise_Exception is
begin
raise My_Exception;
exception
when Constraint_Error =>
Ada.Text_IO.Put_Line("捕获到constraint_error异常");
end Raise_Exception;
begin
-- 调用引发异常的过程
Raise_Exception;
exception
when My_Exception =>
Ada.Text_IO.Put_Line("捕获到自定义异常");
end Custom_Exception;在上述代码中，定义了一个名为My_Exception的自定义异常类型。在Raise_Exception过程中，使用raise语句引发了My_Exception异常。如果在引发异常的过程中发生了constraint_error异常，可以使用when Constraint_Error子句来捕获并处理该异常。在主程序中，使用when My_Exception子句来捕获并处理自定义异常。
请注意，以上示例代码仅用于演示如何将constraint_error更改为自定义异常，并不涉及具体的腾讯云产品和链接地址。如需了解腾讯云相关产品和介绍，请参考腾讯云官方文档或咨询腾讯云官方支持。
相关·内容
3回答
我在找风格指导。在Python中，异常被用作“正常”操作：
try:
z = x/y
except ZeroDivisionError:
z = 73.0 # set z if y is zero
而不是检查y是否接近零，我们做除法并捕获异常。
John Barnes在Ada中的"Programming in Ada 2012“中对这种方法进行了说明：
begin
Tomorrow := Day'Succ(Today);
exception
when Constraint_Error =>
Tomorrow := Da
浏览 2提问于2020-07-22得票数 7
我已经创建了一些单元测试，其中之一需要测试在一系列非法活动发生后抛出异常。这是一组实用程序代码，因此在将来的某个时候，一些程序员将输入无效/非法的值。
我看到了使用Ada单元测试框架的 --在目前的情况下，这不是一种选择；然而，我可能会重新设计它们，以便能够使用它(我的理解是，将单元测试项目添加到现有的遗留代码库是一个耗时的过程)。
所以，我应该在这个函数的主体中填充什么，以便它只在遇到多个异常时返回true？
--* Returns true if an exception is yielded for test cases 5 and 6
function VerifyInvalidVal
浏览 3提问于2017-11-28得票数 0
回答已采纳
当我用127结束的范围定义我自己的类型时，编译器不做上限检查，这允许变量回绕并在其定义的限制下变为负值。如果我将范围定义为126，则会抛出适当的异常。我在下面包含了这些程序和它们的输出。
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure GoodType is
type GOOD_TYPE is range -1..126;
package GOOD_TYPE_IO is new Ada.Text_IO.Integer_IO(GOOD_TYPE);
浏览 1提问于2014-05-08得票数 0
问题陈述
我有一个带有一行和一列的Real_Matrix。我想评估第一行第一列上的单个元素的值。当我试图使用: Matrix(I，J)语法访问矩阵时，我得到了一个错误。见下文：
码
with Ada.Numerics.Real_Arrays; use Ada.Numerics.Real_Arrays;
with Ada.Text_IO; use Ada.Text_IO;
procedure Matrix is
------------------------------------
-- Real_Matrix Division Operation -
浏览 4提问于2016-12-13得票数 2
回答已采纳
我正在读一个简单的文本文件。一切都按其应有的方式工作，除非遇到方括号("[")字符。然后我得到一个CONSTRAINT_ERROR。
我的职责是：
----------------------------------------------
-- GET_FILE_CONTENTS
function Get_File_Contents (File_Name : in String)
return String_Array is
-- Loads the entire file into a dynamically sized
-- array of Un
浏览 3提问于2015-02-12得票数 1
回答已采纳
1回答
我正在尝试寻找在Ada语言中自动标识子类型溢出流错误的方法。
下面是Ada语言的语法。
C := A + B;
-- A is sub type of [-3 3]
-- B is sub type of [-2 2]
-- C is sub type of [-3 3]
我想要的是，工具应该使用输入参数的最小、最大、中值，并记录在目标参数中是否发生溢出。
例如，对于max。A的值是3和最大值。值B (2)，则C变量中将有溢出。
我有5000个文件，我需要确保上述类型的错误不存在。我正在寻找自动完成它的方法。
浏览 11提问于2017-09-19得票数 0
3回答
在程序中显式地引发异常的应用程序和优点是什么？例如，如果我们特别考虑Ada语言，这里提供了一个在程序中引发异常的接口。示例：
raise <Exception>;
但是，我们需要明确提出例外的优点和应用领域是什么呢？
例如，在接受其中一个参数为字符串的过程中：
function Fixed_Str_To_Chr_Ptr (Source_String : String) return C.Strings.Chars_Ptr is
...
begin
...
-- Check whether source string is of acceptable length
if So
浏览 6提问于2016-04-11得票数 3
回答已采纳
我正在尝试用ADA语言为Cheddar编写一个用户定义的任务调度策略。但当我编写以下代码时： mul:=1.0;
for i in tasks_range loop
if tasks.ready(i)=true then
mul:=lcm(tasks.capacity(i),mul);
end if;
end loop; 它给出一个错误:异常引发:CONSTRAINT_ERROR:expressions.adb:1876访问检查失败 我尝试将mul定义为整数，但也失败了。 请帮帮忙。
浏览 16提问于2019-04-17得票数 0
1回答
我对一个ADA程序有异议。下面是我正在编译的测试程序
$ gnatmake divide_by_zero.adb
gcc -c divide_by_zero.adb
divide_by_zero.adb:6:19: warning: division by zero
divide_by_zero.adb:6:19: warning: "Constraint_Error" will be raised at run time
gnatbind -x divide_by_zero.ali
gnatlink divide_by_zero.ali
我的版本是
$ gnatmake --
浏览 1提问于2015-01-11得票数 0
回答已采纳
2回答
我试图在Ada2012中进行一些基本的命令行交互，但我找不到一种方法来捕获从Ada.Command_Line.Command_Name()函数返回的字符串。 我在网上找到的所有示例只需使用Put()打印字符串，而无需首先将其存储在局部变量中。下面是我尝试过的错误代码，它可以编译，但当我试图将返回的字符串值赋给字符串变量时，它会抛出一个CONSTRAINT_ERROR ... length check failed…… with Ada.Command_Line; use Ada.Command_Line;
with Ada.Integer_Text_IO; use Ada.Integer_T
浏览 14提问于2019-08-26得票数 7
回答已采纳
3回答
我应该编写一个子程序，它恰好有一个Integer类型的参数。这个整数表示一周中的某一天，其中1是星期一，2是星期二，依此类推。 子程序应该返回离星期六还有多少天。 这是我的方法(我不应该使用数组)： with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure Test3 is
function Week (Days : in Integer) return Integer is
浏览 31提问于2021-11-12得票数 1
3回答
我试图遵循打开文件的标准引用，但在调用Ada.Text_IO.Create()时遇到了constraint_error。显示"range check failed“。任何感谢的帮助，这是代码：
WITH Ada.Text_IO;
WITH Ada.Integer_Text_IO;
USE Ada.Text_IO;
USE Ada.Integer_Text_IO;
PROCEDURE FileManip IS
--Variables
Start_Int : Integer;
Stop_Int : Integer;
Max_Length : Integer;
浏览 1提问于2010-03-12得票数 2
我遇到了一个问题，即在Ada中使用不能被系统的Storage_Unit (如运行时的system.ads中定义的)整除的模块类型在访问时会在运行时引发Constraint_Error。我最初遇到了这个问题，在使用最小运行时在裸金属系统上工作时，我试图通过在内存中的缓冲区上覆盖12位数组来从缓冲区读取12位值。有人知道为什么会发生这种事吗？
下面的最小示例说明了我遇到的问题。我使用AdaCore的GNAT 2019进行了测试，它是用包含的zfp运行时编译的。使用标准运行时不会重现问题。
with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
浏览 0提问于2020-05-21得票数 6
回答已采纳
1回答
我正在自学Ada编程语言，在我使用的课本中，有一个练习可以打印出用户输入的数字的阶乘值。我的程序编译并运行得很好，我确实得到了预期的输出，但如果我键入值13，程序就会崩溃并引发错误。 我不知道为什么数字13会这样。IDE (我使用GNAT Studio)和我当前使用的Ada 2012标准有问题吗？下面是我的代码： with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
-- procedure main - begins the program
procedure main
浏览 34提问于2021-04-11得票数 4
回答已采纳
3回答
我想编写一个"=“函数，它可以将A_Access与空对象进行比较。我需要如何编写"=“函数才能正常工作？关于我的尝试，请看下面。
该代码生成一个引发的CONSTRAINT_ERROR : main.adb:14访问检查失败的。
with Ada.Tags;
with Ada.Text_IO;
procedure Main is
type A is tagged
record
a : Integer;
end record;
type A_Access is access all A'Class;
funct
浏览 3提问于2014-03-15得票数 0
回答已采纳
1回答
变分Ada函数
、、
我学习Ada是因为我对严格的类型、安全和编程契约的想法感兴趣。“永远编程”的想法很好。不管怎样，真正的问题是Ada是否有各种函数。搜索所以，Ada没有，而正确的方法是使用一个不受约束的数组，其长度在运行时确定。
那么，我的问题不是你是怎么做的，而是正确地做这件事的惯例是什么？
另外，为什么Ada可以执行像+(例如1+2+3)这样的(看起来是基于堆栈的操作)，但是它不能对函数调用的参数执行相同的操作？
不做像Max(1, 2, 3, ..., n)这样的变量表达式更符合惯例，还是简单地应该像Args.len=n; Max(Args[])那样将参数传递给它？
我的直觉和我从各种Ada书中学到的东西
浏览 5提问于2015-10-13得票数 2
回答已采纳
1回答
我刚刚开始学习Ada，当用户输入超出了声明的变量范围时，我不知道如何保持程序运行。我想打印有关不良输入范围的信息，然后再次要求用户输入。
这是我的简单代码：
with Ada.Text_IO;
use Ada.Text_IO;
procedure Main is
type Score is range 0..100;
a : Score;
begin
Put_Line ("Enter value range 0-100: ");
a := Score'Value(Get_Line);
if a'Valid
浏览 3提问于2020-09-25得票数 1
回答已采纳
3回答
应该创建一个加载和处理命令行参数的程序。
下面是几个示例，说明运行它时应该如何(粗体文本是用户将键入的文本)：
Terminal prompt % **./my_program**
No arguments given.
Terminal prompt % **./my_program 123**
Wrong amounts of arguments given.
Terminal prompt % **./my_program 10 XYZ 999 Greetings!**
Wrong amounts of arguments given.
Terminal prompt %
浏览 3提问于2021-11-13得票数 0
2回答
我正在尝试在Ada中实现小学乘法算法，目前我得到了一个索引越界错误。我非常感谢任何关于如何修复错误并成功实现算法的意见。提前感谢！
我有一个定义type BigNum is array(0..Size - 1) of Integer;的包BigNumPkg
我目前正在尝试实现的函数如下所示：
FUNCTION "*" (X, Y : BigNum) RETURN BigNum IS
Product : BigNum:= Zero;
Carry : Natural := 0;
Base : Constant Integer := 10;
BEGIN
FOR I I
浏览 0提问于2018-04-09得票数 0
2回答
使用GNAT Ada和Gnu C++，我将Ada代码与c++包装器进行接口，并希望在运行以下(愚蠢)代码时正确捕获Ada异常：
with ada.text_io;
package body ada_throw is
procedure ada_throw is
begin
ada.text_io.put_line ("hello");
raise program_error;
end ada_throw;
end ada_throw;
相关的规范代码是：
package ada_throw is
proced
浏览 1提问于2018-05-21得票数 13
我试图使用包含Ada中访问类型的空排除数组。示例：
type Integer_Access is access all Integer;
type MyArr is array (1 .. 2) of not null Integer_Access;
我的编译器一直警告我，可能会在运行时抛出一个Costraint_Error (只能声明此类型，而不进行实例化)。宣布这样的数组是非法的(或错误的做法)吗？
浏览 6提问于2022-08-18得票数 4
回答已采纳
如果我将ADA中的范围定义为1 ..1000，如果我的增量超过1000，是否有ADA规范定义的行为？
例如：
type Index is range 1..1000;
idx : Index := 1;
procedure Increment is
begin
idx := idx + 1;
end
当我用idx = 1000调用增量时，我应该期望发生什么呢？
环绕(idx = 1)
超出范围的例外
未定义行为
还有别的吗？
浏览 1提问于2016-01-05得票数 2
回答已采纳
在Ada中，如果我对散列映射中已经存在的键使用insert命令，它会只更新与该键一起存储的值吗？下面是Hashed_Maps包的Ada2005规范：
谢谢
浏览 0提问于2018-09-24得票数 1
with Ada.Text_IO; use Ada.Text_IO;
procedure TF is
function Character_Check return Boolean is
Check : Character;
begin
Get(Check);
if Check = 'T' then
return True;
else
return False;
end if;
end Character_Check;
begin
Put(
浏览 1提问于2021-12-05得票数 0
3回答
Ada字符串比较
、、
我是Ada的新手，目前正在尝试编写一个包含if-else if语句的简单程序。代码如下：
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure Year_Codes is
Year : String(1..9) := " ";
CharsRead : Natural;
function YearCode(Name : in String) return Integer is
begin
if(Nam
浏览 0提问于2013-02-07得票数 3
回答已采纳
在声明部分中实例化对象的过程中可能会引发异常。
例如，下面的代码引发一个由(有意的)堆栈溢出引起的Storage_Error异常。
如何捕获此异常？
(我试图将异常处理放在实例化的对象的主体中，以及在实例化对象的过程中，但未能捕获实例化期间引发的异常。)
谢谢!
---------------------- foo.ads -----------------------
generic
Size : Natural;
package Foo is
type Integer_Array is Array (1..Size) of Integer;
buffer : Inte
浏览 2提问于2019-09-16得票数 3
1回答
我对Ada有点陌生，对这门语言的语法有一些困难。
我已经实现了一个堆栈，并将一个值推送给它，例如，我需要使用一个函数Push(Stack_instance, value)。
我需要许多这样的堆栈实例，而不是固定大小的实例。因此，我想使用指针堆栈，这将创建新的堆栈对象，每次我需要一个。
现在，我遇到的问题是，在创建指向新堆栈的堆栈指针之后，如何将值推送到此堆栈实例？我不能使用Push(Stack, value)，因为Push函数需要输入Stack，而我有Ptr_Stack。例如，在C中，我们有可以访问值的*ptr，但是Ada中有类似的地方吗？
浏览 1提问于2016-02-10得票数 0
回答已采纳
我希望对字符串与枚举进行比较。我已经编写了一个示例代码来说明我正在尝试的内容。由于字符串和枚举类型不同，如何在Ada中正确地执行此操作？
WITH Ada.Text_IO; USE Ada.Text_IO;
PROCEDURE ColorTest IS
TYPE StopLightColor IS (red, yellow, green);
response : String (1 .. 10);
N : Integer;
BEGIN
Put("What color do you see on the stoplight? ");
Get_
浏览 0提问于2015-03-13得票数 1
回答已采纳
我试图通过PHP使用CloudFlare API，但是文档示例显示为命令行curl。
$ curl -X PUT "https://api.cloudflare.com/client/v4/zones/9a7806061c88ada191ed06f989cc3dac/dns_records/9a7806061c88ada191ed06f989cc3dac" \
-H "X-Auth-Email: user@example.com" \
-H "X-Auth-Key: c2547eb745079dac9320b638f5e225cf483cc5cfdda4
浏览 0提问于2015-08-07得票数 3
回答已采纳
3回答
我正在面试潜在的软件工程候选人，并希望将这段C++代码翻译成Ada： #include <iostream>
int main(int argc, char *argv[])
{
int *W = NULL;
try { *W = 3; }
catch (...) { std::cout << "default exception"; }
} 与C++代码一样，我希望Ada代码的结果是"terminated by signal SIGSEGV“。 顺便说一句，我使用的是最新的GNAT (GNAT 9.1.1 20190503 (R
浏览 50提问于2019-06-13得票数 0
我在Python中遇到了这个异常，
Exception AttributeError: "type object 'instance' has no attribute 'jumlah_ada'" in <bound method kucing.__del__ of <__main__.kucing instance at 0x7fe39d827e18>> ignored
当我运行语法时：
class kucing:
jumlah_ada = 0
def __init__(self, tip
浏览 0提问于2015-10-14得票数 1
FUNCTION "=" (lString1, lString2 : IN lString) RETURN boolean IS
IF lString1 = NULL AND lString2 = NULL THEN
RETURN true;
ELSIF lString1 = NULL OR lString2 = NULL THEN
RETURN false;
END IF;
我正在尝试重载Ada中的相等运算符。每次我在函数中使用运算符'=‘时，它都会导致递归，从而导致堆栈溢出，而不是使用我需要的a
浏览 1提问于2011-05-22得票数 5
Java有finalize块，它允许在保留块后执行一些语句(即使引发异常也会执行)。示例：
try {
...
} catch (Exception e) {
...
} finally {
... // any code here
}
Ada有受控对象，它允许实现 finalize 操作，但是没有像java中那样等效的终结块。这对于日志记录、关闭文件、事务等非常有用(不必为每个可能的块创建特定的标记类型)。
您将如何在Ada 2005中实现这样的终结块(同时保持代码的可读性)？在Ada 2012中有允许轻松执行任何终结代码的计划吗？
浏览 5提问于2011-01-26得票数 6
回答已采纳
我正在用Ada编写这段代码，用于一个我们必须自学代码的课程。我理解堆排序，但是Ada语法真的把我搞糊涂了。我不明白为什么我在这个排序函数中得到一个约束错误。从本质上讲，我们必须将数组"A“传递到这个过程中，它应该组织它。我在siftDown(A(Start...A‘’Last))得到约束错误；
提前谢谢你
Procedure sort_3(A : in out array_type) is
procedure swap(Left : in out Integer; Right : in out Integer) is
temp : Integer;
begin
浏览 5提问于2021-03-27得票数 1
2回答
-- Date: 11/06/2022
with Ada.Text_IO; Use Ada.Text_Io;
procedure Masques is
type XX is record
X1 : character range 'A'..'D';
X2 : character range 'E'..'H';
X3 : character range 'I'..'L';
end record;
begin
Get_Lin
浏览 1提问于2022-06-11得票数 0
2回答
Ada -空文件
、、
我正在用Ada语言编写一个程序，创建一个WEP密钥字典用于五层测试。代码如下：
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure CreateWepDict is
type IntegerTab is array (1..29) of integer;
-- Initializes the password
procedure PasswdInit (Passwd : in out IntegerTab; LgPasswd : in Inte
浏览 0提问于2013-12-25得票数 0
2回答
在Ada标准库中是否存在与相同的值？如果不是，对于这种操作，Ada社区是否有一些非标准算法库的共识？我找到了，但它是1996年概念的证明，不包括数组的旋转(不过，它适用于树)。
我在上面链接的cp首选项页面上压缩了演示：
#include <algorithm>
#include <iostream>
#include <vector>
auto print = [](auto const& remark, auto const& v) {
std::cout << remark;
for (int n : v)
浏览 7提问于2022-07-08得票数 2
我正试图将名为"Arr“的整数数组传递给函数"collect”。一旦用户输入100个整型数，或者给出值为0或负数，数组将停止收集。我做错了什么？
with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO;
procedure helloworld is
procedure PrintHelloWorld is
begin
Put_Line ("Enter Integers, up to 100 individual ints.");
end PrintHelloWorld;
浏览 4提问于2020-05-05得票数 1
4回答
我将从Ada中的一个通用过程的经典示例开始：
-------------------------
-- swaps.ads
-------------------------
package Swaps is
generic
type E is private;
procedure Generic_Swap (Left, Right : in out E);
end Swaps;
-------------------------
-- swaps.adb
-------------------------
package body Swaps is
procedure
浏览 0提问于2018-02-23得票数 1
回答已采纳
3回答
我很抱歉打扰你，我知道已经被问了相当多，但从来没有与艾达…我想知道在Ada标准库中是否有一种方法来生成O(n)中的唯一随机数列表(你永远不会挑选两个相同的数)，在某种程度上，Ada中是否有Knuth-Fisher-Yates算法的实现？
浏览 0提问于2011-03-19得票数 5
回答已采纳
在中，我问到如何定义一个范围的无限上限(结果是答案是相当明显的，但对刚认识Ada的人来说不是这样)。在回答中，有人建议为此创建一个特定的子类型。
问题中提到的那类的一个特定的子类型如下所示：
Type Speed is Float range 0 .. Float'Last
此外，我注意到这个Ada项目中的大部分代码都有特定的类型--比如Feet_Float和Meters_Float等等。为什么这是首选的做法，而不是仅仅在类/包中的基本float成员变量上添加范围约束？
浏览 9提问于2017-11-22得票数 6
回答已采纳
为什么Ada编译器允许范围冲突通过？它确实会给出警告，但为什么在任何情况下它都会让它通过错误呢？这是一种有用的行为，有没有实际的情况？
最重要的是:为什么类型声明是运行时实体？我的意思是代码示例的第三行是我希望提前评估的东西。我以为只有第五行会“成功”进入可执行文件。为什么不行？这是有用的东西吗？我是不是漏掉了什么或者误解了什么？
with Ada.Text_IO;
procedure question is
subtype Test is Natural range -1 .. 10;
begin
Ada.Text_IO.Put_Line ("foobar")
浏览 0提问于2013-01-26得票数 3
回答已采纳
首先我要说的是，这是我创建的第一个ada程序。我不知道它是如何工作的，而且我的任务非常简单。但是，输出不能正常工作。它适用于第一个变量，但不适用于后两个变量。它还会输出第一个变量weird。下面是我的代码：
with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
Author, Title, Pages: String := " ";
begin
Put("Enter Author: ");
Get(Author);
Put("Enter Title: ");
浏览 2提问于2018-04-11得票数 0
3回答
我第一次遇到异常是在ADA 83中。据我所知，ADA的设计者发明了异常的概念。这是真的吗，或者之前出现的编程语言也使用异常吗？
浏览 1提问于2009-08-20得票数 4
回答已采纳
我有一句台词：
myobject.Ada = result.FirstOrDefault(m => m.Name == "Ada No").Value;
有时结果没有"Ada No“，而我
对象引用未设置为对象的实例。
我编写了一个if语句以避免空引用异常：
if(result.FirstOrDefault(m => m.Name == "Ada No").Value != null)
{
myobject.Ada = result.FirstOrDefault(m => m.Name == "Ada No"
浏览 2提问于2016-11-02得票数 0
回答已采纳
我想用Ada制作添加数组元素的子程序。子程序"Add_Data“有3个参数-第一个参数=泛型数组(整数数组或实数数组)第二个参数=整数(数组大小)第三个参数=泛型sum (整数数组-> sum将是整数，实数-> sum数组将是实数)
我从ideone.com编写的。(我只想看到整型数组的结果。之后，我将通过REAL的数组进行测试)
With Ada.Text_IO; Use Ada.Text_IO;
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
procedure test is
generic
浏览 0提问于2018-06-02得票数 0
我有以下代码，它将两个字节组合成一个字节数组：
pragma Restrictions (No_Exception_Propagation);
with Interfaces; use Interfaces;
procedure No_Propagation is
type Byte is new Unsigned_8;
type Byte_Array is array (Natural range <>) of Byte;
function Concat (Input_1 : Byte;
Input_2 : Byte
浏览 7提问于2017-02-15得票数 2
回答已采纳
问题是:使用派生类型/子类型还是使用条件和异常处理来限制Ada中子程序的可接受输入是更好的做法吗？我知道在Ada2012中您可以使用契约，但是对于Ada95这样的早期版本呢？
上下文:我想做一系列的过程，这些过程可以读取/写入包中的特定字段(由私有的无符号字节数组表示)，以便从嵌入式设备广播到ASIC。许多字段大小不同，不与字节边界对齐，因此使用标准类型将允许使用这些过程的程序在不检查的情况下输入非法值。
额外注意事项:除了通过这些子程序操作数据包内容之外，这些类型不会在其他地方使用。此外，如果它产生了影响，此代码将用于安全关键系统。
浏览 0提问于2018-11-27得票数 4
回答已采纳
2回答
我的代码有错误。这个错误并不总是会出现，我也不知道如何调试它。
错误是：
异常名称: CONSTRAINT_ERROR
消息: myFile.adb:42无效数据
数值84不在0.1
引用的行是以下一行：
procedure myProcedure (ObjectA : in Ptr_Type;
ObjectB : in out T_Type) is
Begin
ObjectB.BOOL := ObjectA.BOOL; (line 42)
end procedure;
使用
-- How myProcedure is c
浏览 0提问于2019-09-11得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
