Bypassing machine precision issue when calculating the difference between two extreme probabilities generated by `pnorm()` in R

Question

For examples, let\'s say I have p1 and p2:

p1 <- pnorm(-50)
p2 <- pnorm(-49)

I would like to know their differenc