Function: vc-hg--read-u32-be

vc-hg--read-u32-be is a byte-compiled function defined in vc-hg.el.gz.

Signature

(vc-hg--read-u32-be)

Documentation

Read and advance over a big-endian unsigned 32-bit integer.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hg.el.gz
(defsubst vc-hg--read-u32-be ()
  "Read and advance over a big-endian unsigned 32-bit integer."
  ;; Because elisp bytecode has an instruction for multiply and
  ;; doesn't have one for shift, it's somewhat counter-intuitively
  ;; faster to multiply than to shift.
  (+ (* (vc-hg--read-u8) (* 256 256 256))
     (* (vc-hg--read-u8) (* 256 256))
     (* (vc-hg--read-u8) 256)
     (identity (vc-hg--read-u8))))