clsparseStatus clsparseGetEvent( clsparseControl control, cl_event *event ) { if( control == NULL ) { return clsparseInvalidControlObject; } //keeps the event valid on the user side ::clRetainEvent( control->event( ) ); *event = control->event( ); return clsparseSuccess; }