[an error occurred while processing this directive]
|
Тьфу, не туда посмотрелл..
function ">"(L: UNSIGNED; R: INTEGER) return BOOLEAN is
constant length: INTEGER := L'length + 1;
begin
return is_less(CONV_SIGNED(R, length),
CONV_SIGNED(L, length));
end;
НО:
function ">"(L: UNSIGNED; R: UNSIGNED) return BOOLEAN is
constant length: INTEGER := max(L'length, R'length);
begin
return unsigned_is_less(CONV_UNSIGNED(R, length),
CONV_UNSIGNED(L, length));
end;
Так кто-то всё-таки дурак?
E-mail: info@telesys.ru