extern fint gdi_restore_c(fint *,fint *);