This is a (slightly more typesafe) transliteration of the C code.

https://github.com/postgres/postgres/blob/2e6578292a9184dcaa...