Update ocl.c