Multiscale simulation of crack tip shielding by a dislocation