|
with Interfaces;
--# inherit Interfaces;
package WordOps is
subtype Word is Interfaces.Unsigned_32;
subtype Rotate_Amount is Integer range 0..15;
--# function rotate_left(I : Rotate_Amount; W : Word) return Word;
function Rotate(I : Rotate_Amount; W : Word) return Word;
--# return rotate_left(I, W);
--# accept W, 3, "Expecting this warning";
pragma Inline (Rotate);
--# end accept;
end Wordops;
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
