cl_int clGetCommandQueueInfoFCL (cl_command_queue command_queue,
cl_command_queue_info param_name,
size_t param_value_size,
void *param_value,
size_t *param_value_size_ret)
{
MSG(clGetCommandQueueInfoFCL);
if (!FreeOCL::is_valid(command_queue))
return CL_INVALID_COMMAND_QUEUE;
bool bTooSmall = false;
switch(param_name)
{
case CL_QUEUE_CONTEXT: bTooSmall = SET_VAR(command_queue->context); break;
case CL_QUEUE_DEVICE: bTooSmall = SET_VAR(command_queue->device); break;
case CL_QUEUE_REFERENCE_COUNT: bTooSmall = SET_VAR(command_queue->get_ref_count()); break;
case CL_QUEUE_PROPERTIES: bTooSmall = SET_VAR(command_queue->properties); break;
default:
command_queue->unlock();
return CL_INVALID_VALUE;
}
command_queue->unlock();
if (bTooSmall && param_value != NULL)
return CL_INVALID_VALUE;
return CL_SUCCESS;
}
void RenderStyle::addBindingURI(StringImpl* uri)
{
BindingURI* binding = new BindingURI(uri);
if (!bindingURIs())
SET_VAR(rareNonInheritedData, bindingURI, binding)
else
for (BindingURI* b = bindingURIs(); b; b = b->next()) {
if (!b->next())
b->setNext(binding);
}
}
cl_int clGetMemObjectInfoFCL (cl_mem memobj,
cl_mem_info param_name,
size_t param_value_size,
void *param_value,
size_t *param_value_size_ret)
{
MSG(clGetMemObjectInfoFCL);
FreeOCL::unlocker unlock;
if (!FreeOCL::is_valid(memobj))
return CL_INVALID_MEM_OBJECT;
unlock.handle(memobj);
bool bTooSmall = false;
switch(param_name)
{
case CL_MEM_TYPE: bTooSmall = SET_VAR(memobj->mem_type); break;
case CL_MEM_FLAGS: bTooSmall = SET_VAR(memobj->flags); break;
case CL_MEM_SIZE: bTooSmall = SET_VAR(memobj->size); break;
case CL_MEM_HOST_PTR: bTooSmall = SET_VAR(memobj->host_ptr); break;
case CL_MEM_MAP_COUNT:
{
cl_uint n = memobj->mapped.size();
bTooSmall = SET_VAR(n);
}
break;
case CL_MEM_REFERENCE_COUNT: bTooSmall = SET_VAR(memobj->get_ref_count()); break;
case CL_MEM_CONTEXT: bTooSmall = SET_VAR(memobj->context); break;
case CL_MEM_ASSOCIATED_MEMOBJECT: bTooSmall = SET_VAR(memobj->parent); break;
case CL_MEM_OFFSET: bTooSmall = SET_VAR(memobj->offset); break;
default:
return CL_INVALID_VALUE;
}
if (bTooSmall && param_value != NULL)
return CL_INVALID_VALUE;
return CL_SUCCESS;
}
static void
apply_effect (patch_effect_t *effect, test_entry_t *entry, guint32 offset)
{
gint32 value = 0;
char *ptr = entry->data + offset;
if (effect->expression)
value = expression_eval (effect->expression, entry);
switch (effect->type) {
case EFFECT_SET_BYTE:
DEBUG_PARSER (printf("\tset-byte effect old value [%x] new value [%x]\n", READ_VAR (guint8, ptr), value));
SET_VAR (guint8, ptr, value);
break;
case EFFECT_SET_USHORT:
DEBUG_PARSER (printf("\tset-ushort effect old value [%x] new value [%x]\n", READ_VAR (guint16, ptr), value));
SET_VAR (guint16, ptr, value);
break;
case EFFECT_SET_UINT:
DEBUG_PARSER (printf("\tset-uint effect old value [%x] new value [%x]\n", READ_VAR (guint32, ptr), value));
SET_VAR (guint32, ptr, value);
break;
case EFFECT_SET_TRUNC:
DEBUG_PARSER (printf("\ttrunc effect [%d]\n", offset));
entry->data_size = offset;
break;
case EFFECT_SET_BIT:
DEBUG_PARSER (printf("\tset-bit effect bit %d old value [%x]\n", value, READ_BIT (ptr, value)));
SET_BIT (ptr, value);
break;
case EFFECT_OR_BYTE:
DEBUG_PARSER (printf("\tor-byte effect old value [%x] new value [%x]\n", READ_VAR (guint8, ptr), value));
SET_VAR (guint8, ptr, READ_VAR (guint8, ptr) | value);
break;
case EFFECT_OR_USHORT:
DEBUG_PARSER (printf("\tor-ushort effect old value [%x] new value [%x]\n", READ_VAR (guint16, ptr), value));
SET_VAR (guint16, ptr, READ_VAR (guint16, ptr) | value);
break;
case EFFECT_OR_UINT:
DEBUG_PARSER (printf("\tor-uint effect old value [%x] new value [%x]\n", READ_VAR (guint32, ptr), value));
SET_VAR (guint32, ptr, READ_VAR (guint32, ptr) | value);
break;
default:
printf ("Invalid effect type %d\n", effect->type);
exit (INVALID_EFFECT);
}
}
void load_e_values()
{
int i;
FILE *f = fopen("eval_values.json", "r");
char *var_name = malloc(sizeof(char) * 1000);
fseek(f, 2, SEEK_CUR);
while(fscanf(f, "%s", var_name) != EOF) {
SET_VAR(EARLY_DEVELOPMENT, "\"EARLY_DEVELOPMENT\"");
SET_VAR(BISHOP_MOB, "\"BISHOP_MOB\"");
SET_VAR(DOUBLE_BISHOP, "\"DOUBLE_BISHOP\"");
SET_VAR(FIANCHETTO, "\"FIANCHETTO\"");
SET_VAR(ROOK_MOB, "\"ROOK_MOB\"");
SET_VAR(OPEN_FILE, "\"OPEN_FILE\"");
SET_VAR(SEMI_OPEN_FILE, "\"SEMI_OPEN_FILE\"");
SET_VAR(OPEN_RANK, "\"OPEN_RANK\"");
SET_VAR(SEMI_OPEN_RANK, "\"SEMI_OPEN_RANK\"");
SET_VAR(KNIGHT_MOB, "\"KNIGHT_MOB\"");
SET_VAR(KNIGHT_OUTPOST, "\"KNIGHT_OUTPOST\"");
SET_VAR(KING_SHIELD, "\"KING_SHIELD\"");
SET_VAR(POPULATION_SCALING, "\"POPULATION_SCALING\"");
SET_VAR(PAWN_STORM, "\"PAWN_STORM\"");
SET_VAR(KQ_TROPISM, "\"KQ_TROPISM\"");
SET_VAR(KR_TROPISM, "\"KR_TROPISM\"");
SET_VAR(KB_TROPISM, "\"KB_TROPISM\"");
SET_VAR(Q_CASTLE, "\"Q_CASTLE\"");
SET_VAR(K_CASTLE, "\"K_CASTLE\"");
SET_VAR(PAWN_FORWARDS, "\"PAWN_FORWARDS\"");
SET_VAR(ISOLATED_PAWN, "\"ISOLATED_PAWN\"");
SET_VAR(SEMI_ISOLATED_PAWN, "\"SEMI_ISOLATED_PAWN\"");
SET_VAR(PAWN_PAWN_DEFENCE, "\"PAWN_PAWN_DEFENCE\"");
SET_VAR(DEFENDING_OTHER_PAWN, "\"DEFENDING_OTHER_PAWN\"");
SET_VAR(PASSED_PAWN, "\"PASSED_PAWN\"");
SET_VAR(DOUBLE_PAWN, "\"DOUBLE_PAWN\"");
SET_VAR(LATERAL_PAWN, "\"LATERAL_PAWN\"");
SET_VAR(CAN_CASTLE_KING, "\"CAN_CASTLE_KING\"");
SET_VAR(CAN_CASTLE_QUEEN, "\"CAN_CASTLE_QUEEN\"");
SET_VAR_64(QUEEN_SQ, "\"QUEEN_SQ\"");
SET_VAR_64(BISHOP_SQ, "\"BISHOP_SQ\"");
SET_VAR_64(ROOK_SQ, "\"ROOK_SQ\"");
SET_VAR_64(KNIGHT_SQ, "\"KNIGHT_SQ\"");
SET_VAR_64(KING_SQ, "\"KING_SQ\"");
SET_VAR_64(PAWN_SQ, "\"PAWN_SQ\"");
SET_VAR_16(KNIGHT_VAL, "\"KNIGHT_VAL\"");
SET_VAR_16(ROOK_VAL, "\"ROOK_VAL\"");
SET_VAR_16(BISHOP_VAL, "\"BISHOP_VAL\"");
SET_VAR_32(PAWN_VAL, "\"PAWN_VAL\"");
}
free(var_name);
fclose(f);
}
void RenderStyle::setVerticalBorderSpacing(short v) { SET_VAR(inherited, vertical_border_spacing, v); }
void RenderStyle::setHorizontalBorderSpacing(short v) { SET_VAR(inherited, horizontal_border_spacing, v); }
void RenderStyle::setColor(const Color& v) { SET_VAR(inherited, color, v); }
