914     SEXP newvp = VECTOR_ELT(gvp, PVP_PARENT);  in L_unsetviewport()  local
915     if (isNull(newvp))  in L_unsetviewport()
918 	gvp = newvp;  in L_unsetviewport()
919 	newvp = VECTOR_ELT(gvp, PVP_PARENT);  in L_unsetviewport()
920 	if (isNull(newvp))  in L_unsetviewport()
937     PROTECT(gvp); PROTECT(newvp);  in L_unsetviewport()
944 			      VECTOR_ELT(newvp, PVP_CHILDREN),  in L_unsetviewport()
957     if (deviceChanged(devWidthCM, devHeightCM, newvp))  in L_unsetviewport()
958 	calcViewportTransform(newvp, viewportParent(newvp), 1, dd);  in L_unsetviewport()
962     setGridStateElement(dd, GSS_GPAR, viewportgpar(newvp));  in L_unsetviewport()
970         Rf_PrintValue(newvp);  in L_unsetviewport()
973     setGridStateElement(dd, GSS_VP, newvp);  in L_unsetviewport()
981         PROTECT(parentClip = viewportClipRect(newvp));  in L_unsetviewport()
982         PROTECT(parentClipPath = VECTOR_ELT(newvp, PVP_CLIPPATH));              in L_unsetviewport()
1003         resolveMask(VECTOR_ELT(newvp, PVP_MASK), dd);  in L_unsetviewport()
1038     SEXP newvp = VECTOR_ELT(gvp, PVP_PARENT);  in L_upviewport()  local
1039     if (isNull(newvp))  in L_upviewport()
1042 	gvp = newvp;  in L_upviewport()
1043 	newvp = VECTOR_ELT(gvp, PVP_PARENT);  in L_upviewport()
1044 	if (isNull(newvp))  in L_upviewport()
1050     if (deviceChanged(devWidthCM, devHeightCM, newvp))  in L_upviewport()
1051 	calcViewportTransform(newvp, viewportParent(newvp), 1, dd);  in L_upviewport()
1065         Rf_PrintValue(newvp);  in L_upviewport()
1068     setGridStateElement(dd, GSS_VP, newvp);  in L_upviewport()
1076         PROTECT(parentClip = viewportClipRect(newvp));  in L_upviewport()
1077         PROTECT(parentClipPath = VECTOR_ELT(newvp, PVP_CLIPPATH));              in L_upviewport()
1098         resolveMask(VECTOR_ELT(newvp, PVP_MASK), dd);  in L_upviewport()