extern fint gdi_save_c(fint *,fint *);