[PATCH openEuler-1.0-LTS] s390/sclp: Fix sclp_init() cleanup on failure