_lrotr.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 35 行

.func _lrotr
#include <stdlib.h>
unsigned long _lrotr( unsigned long value,
                      unsigned int shift );
.ixfunc2 '&Rotate' &func
.funcend
.desc begin
The &func function rotates the unsigned long integer, determined by
.arg value,
to the right by the number of bits specified in
.arg shift.
.desc end
.return begin
The rotated value is returned.
.return end
.see begin
.seelist _lrotr _lrotl _rotl _rotr
.see end
.exmp begin
#include <stdio.h>
#include <stdlib.h>

unsigned long mask = 0x12345678;

void main()
  {
    mask = _lrotr( mask, 4 );
    printf( "%08lX\n", mask );
  }
.exmp output
81234567
.exmp end
.class WATCOM
.system