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.1 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|