File: aarch64.c

package info (click to toggle)
haskell-mod 0.2.1.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 148 kB
  • sloc: haskell: 1,422; ansic: 10; makefile: 3
file content (9 lines) | stat: -rw-r--r-- 216 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
#include <stdint.h>

uint64_t umulh(uint64_t x, uint64_t y) {
  return ((unsigned __int128)x * y) >> 64;
}

uint64_t umodh(uint64_t lo, uint64_t hi, uint64_t m) {
  return (((unsigned __int128)hi << 64) + lo) % m;
}