_lrotl.gml

开放源码的编译器open watcom 1.6.0版的源代码

.func _lrotl
#include <stdlib.h>
unsigned long _lrotl( 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 left by the number of bits specified in
.arg shift.
.desc end
.return begin
The rotated value is returned.
.return end
.see begin
.seelist _lrotl _lrotr _rotl _rotr
.see end
.exmp begin
#include <stdio.h>
#include <stdlib.h>

unsigned long mask = 0x12345678;

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