From fc534034cc3403f3e597c49a0daa9965c07a0f72 Mon Sep 17 00:00:00 2001 From: Michal Krol Date: Wed, 25 May 2005 14:23:00 +0000 Subject: more slang code --- src/mesa/shader/slang/slang_assemble.c | 299 +++++----------------- src/mesa/shader/slang/slang_assemble.h | 2 +- src/mesa/shader/slang/slang_assemble_assignment.c | 185 +++++++++++++ src/mesa/shader/slang/slang_assemble_assignment.h | 45 ++++ src/mesa/shader/slang/slang_compile.c | 30 ++- src/mesa/shader/slang/slang_storage.c | 6 +- 6 files changed, 312 insertions(+), 255 deletions(-) create mode 100644 src/mesa/shader/slang/slang_assemble_assignment.c create mode 100644 src/mesa/shader/slang/slang_assemble_assignment.h (limited to 'src/mesa/shader/slang') diff --git a/src/mesa/shader/slang/slang_assemble.c b/src/mesa/shader/slang/slang_assemble.c index 03672b2fca..d4f635cd0f 100644 --- a/src/mesa/shader/slang/slang_assemble.c +++ b/src/mesa/shader/slang/slang_assemble.c @@ -36,6 +36,7 @@ #include "slang_assemble_constructor.h" #include "slang_assemble_typeinfo.h" #include "slang_assemble_conditional.h" +#include "slang_assemble_assignment.h" /* slang_assembly */ @@ -117,8 +118,8 @@ int slang_assembly_file_push_literal (slang_assembly_file *file, slang_assembly_ /* utility functions */ -static int sizeof_variable (slang_type_specifier *spec, slang_operation *array_size, - slang_assembly_name_space *space, unsigned int *size) +static int sizeof_variable (slang_type_specifier *spec, slang_type_qualifier qual, + slang_operation *array_size, slang_assembly_name_space *space, unsigned int *size) { slang_storage_aggregate agg; @@ -129,6 +130,8 @@ static int sizeof_variable (slang_type_specifier *spec, slang_operation *array_s return 0; } *size += _slang_sizeof_aggregate (&agg); + if (qual == slang_qual_out || qual == slang_qual_inout) + *size += 4; slang_storage_aggregate_destruct (&agg); return 1; } @@ -137,7 +140,10 @@ static int sizeof_variable2 (slang_variable *var, slang_assembly_name_space *spa unsigned int *size) { var->address = *size; - return sizeof_variable (&var->type.specifier, var->array_size, space, size); + if (var->type.qualifier == slang_qual_out || var->type.qualifier == slang_qual_inout) + var->address += 4; + return sizeof_variable (&var->type.specifier, var->type.qualifier, var->array_size, space, + size); } static int sizeof_variables (slang_variable_scope *vars, unsigned int start, unsigned int stop, @@ -197,8 +203,8 @@ slang_function *_slang_locate_function (const char *name, slang_operation *param slang_assembly_typeinfo_destruct (&ti); /* "out" and "inout" formal parameter requires the actual parameter to be l-value */ if (!ti.can_be_referenced && - f->parameters->variables[j].type.qualifier != slang_qual_out && - f->parameters->variables[j].type.qualifier != slang_qual_inout) + (f->parameters->variables[j].type.qualifier == slang_qual_out || + f->parameters->variables[j].type.qualifier == slang_qual_inout)) break; } if (j == num_params) @@ -235,7 +241,8 @@ int _slang_assemble_function (slang_assembly_file *file, slang_function *fun, /* calculate return value and parameters size */ param_size = 0; if (fun->header.type.specifier.type != slang_spec_void) - if (!sizeof_variable (&fun->header.type.specifier, NULL, space, ¶m_size)) + if (!sizeof_variable (&fun->header.type.specifier, slang_qual_none, NULL, space, + ¶m_size)) return 0; info.ret_size = param_size; if (!sizeof_variables (fun->parameters, 0, fun->param_count, space, ¶m_size)) @@ -312,7 +319,7 @@ int _slang_cleanup_stack (slang_assembly_file *file, slang_operation *op, int re else { size = 0; - if (!sizeof_variable (&ti.spec, NULL, space, &size)) + if (!sizeof_variable (&ti.spec, slang_qual_none, NULL, space, &size)) { slang_assembly_typeinfo_destruct (&ti); return 0; @@ -381,7 +388,7 @@ static int dereference_aggregate (slang_assembly_file *file, const slang_storage return 1; } /* XXX: general swizzle! */ -static int dereference (slang_assembly_file *file, slang_operation *op, +int dereference (slang_assembly_file *file, slang_operation *op, slang_assembly_name_space *space, slang_assembly_local_info *info) { slang_assembly_typeinfo ti; @@ -416,15 +423,15 @@ static int call_function (slang_assembly_file *file, slang_function *fun, slang_ unsigned int param_count, int assignment, slang_assembly_name_space *space, slang_assembly_local_info *info) { - unsigned int ret_size, i; + unsigned int i; slang_assembly_stack_info stk; /* make room for the return value, if any */ - ret_size = 0; - if (!sizeof_variable (&fun->header.type.specifier, NULL, space, &ret_size)) - return 0; - if (ret_size > 0) + if (fun->header.type.specifier.type != slang_spec_void) { + unsigned int ret_size = 0; + if (!sizeof_variable (&fun->header.type.specifier, slang_qual_none, NULL, space, &ret_size)) + return 0; if (!slang_assembly_file_push_label (file, slang_asm_local_alloc, ret_size)) return 0; } @@ -434,22 +441,27 @@ static int call_function (slang_assembly_file *file, slang_function *fun, slang_ { slang_assembly_flow_control flow; - if (i == 0 && assignment) + if (fun->parameters->variables[i].type.qualifier == slang_qual_inout || + fun->parameters->variables[i].type.qualifier == slang_qual_out) { if (!slang_assembly_file_push_label2 (file, slang_asm_local_addr, info->addr_tmp, 4)) return 0; /* TODO: optimize the "out" parameter case */ /* TODO: inspect stk */ - if (!_slang_assemble_operation (file, params, 1, &flow, space, info, &stk)) + if (!_slang_assemble_operation (file, params + i, 1, &flow, space, info, &stk)) return 0; if (!slang_assembly_file_push (file, slang_asm_addr_copy)) return 0; if (!slang_assembly_file_push (file, slang_asm_addr_deref)) return 0; - if (!slang_assembly_file_push_label2 (file, slang_asm_local_addr, info->addr_tmp, 4)) - return 0; - if (!slang_assembly_file_push (file, slang_asm_addr_deref)) - return 0; + if (i == 0 && assignment) + { + if (!slang_assembly_file_push_label2 (file, slang_asm_local_addr, info->addr_tmp, + 4)) + return 0; + if (!slang_assembly_file_push (file, slang_asm_addr_deref)) + return 0; + } if (!dereference (file, params, space, info)) return 0; } @@ -470,15 +482,26 @@ static int call_function (slang_assembly_file *file, slang_function *fun, slang_ /* pop the parameters from the stack */ for (i = param_count; i > 0; i--) { - /* XXX: copy inout/out params back to the actual variables */ - if (!_slang_cleanup_stack (file, params + i - 1, 0, space)) - return 0; + unsigned int j = i - 1; + if (fun->parameters->variables[j].type.qualifier == slang_qual_inout || + fun->parameters->variables[j].type.qualifier == slang_qual_out) + { + if (!_slang_assemble_assignment (file, params + j, space, info)) + return 0; + if (!slang_assembly_file_push_label (file, slang_asm_local_free, 4)) + return 0; + } + else + { + if (!_slang_cleanup_stack (file, params + j, 0, space)) + return 0; + } } return 1; } -static int call_function_name (slang_assembly_file *file, const char *name, slang_operation *params, +int call_function_name (slang_assembly_file *file, const char *name, slang_operation *params, unsigned int param_count, int assignment, slang_assembly_name_space *space, slang_assembly_local_info *info) { @@ -543,82 +566,7 @@ static int call_asm_instruction (slang_assembly_file *file, const char *name) return 1; } -/* XXX: general swizzle! */ -static int assign_aggregate (slang_assembly_file *file, const slang_storage_aggregate *agg, - unsigned int *index, unsigned int size, slang_assembly_local_info *info) -{ - unsigned int i; - for (i = 0; i < agg->count; i++) - { - const slang_storage_array *arr = agg->arrays + i; - unsigned int j; - - for (j = 0; j < arr->length; j++) - { - if (arr->type == slang_stor_aggregate) - { - if (!assign_aggregate (file, arr->aggregate, index, size, info)) - return 0; - } - else - { - switch (arr->type) - { - case slang_stor_bool: - if (!slang_assembly_file_push_label2 (file, slang_asm_bool_copy, - size - *index, *index)) - return 0; - break; - case slang_stor_int: - if (!slang_assembly_file_push_label2 (file, slang_asm_int_copy, - size - *index, *index)) - return 0; - break; - case slang_stor_float: - if (!slang_assembly_file_push_label2 (file, slang_asm_float_copy, - size - *index, *index)) - return 0; - break; - } - *index += 4; - } - } - } - return 1; -} -/* XXX: general swizzle! */ -static int assignment (slang_assembly_file *file, slang_operation *op, - slang_assembly_name_space *space, slang_assembly_local_info *info) -{ - slang_assembly_typeinfo ti; - int result; - slang_storage_aggregate agg; - unsigned int index, size; - - slang_assembly_typeinfo_construct (&ti); - if (!_slang_typeof_operation (op, space, &ti)) - { - slang_assembly_typeinfo_destruct (&ti); - return 0; - } - - slang_storage_aggregate_construct (&agg); - if (!_slang_aggregate_variable (&agg, &ti.spec, NULL, space->funcs, space->structs)) - { - slang_storage_aggregate_destruct (&agg); - slang_assembly_typeinfo_destruct (&ti); - return 0; - } - - index = 0; - size = _slang_sizeof_aggregate (&agg); - result = assign_aggregate (file, &agg, &index, size, info); - - slang_storage_aggregate_destruct (&agg); - slang_assembly_typeinfo_destruct (&ti); - return result; -} /* XXX: general swizzle! */ static int equality_aggregate (slang_assembly_file *file, const slang_storage_aggregate *agg, unsigned int *index, unsigned int size, slang_assembly_local_info *info, unsigned int z_label) @@ -798,7 +746,7 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i if (!_slang_assemble_operation (file, op->children, 0, flow, space, info, &stk)) return 0; /* TODO: inspect stk */ - if (!assignment (file, op->children, space, info)) + if (!_slang_assemble_assignment (file, op->children, space, info)) return 0; if (!slang_assembly_file_push_label (file, slang_asm_local_free, 4)) return 0; @@ -852,7 +800,8 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i if (var == NULL) return 0; size = 0; - if (!sizeof_variable (&var->type.specifier, var->array_size, space, &size)) + if (!sizeof_variable (&var->type.specifier, slang_qual_none, var->array_size, space, + &size)) return 0; if (var->initializer != NULL) { @@ -897,75 +846,20 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i } break; case slang_oper_assign: - { - slang_assembly_stack_info stk; - if (!reference) - if (!slang_assembly_file_push_label2 (file, slang_asm_local_addr, info->addr_tmp, - 4)) - return 0; - if (!_slang_assemble_operation (file, op->children, 1, flow, space, info, &stk)) - return 0; - /* TODO: inspect stk */ - if (!_slang_assemble_operation (file, op->children + 1, 0, flow, space, info, &stk)) - return 0; - /* TODO: inspect stk */ - if (!assignment (file, op->children, space, info)) - return 0; - if (!reference) - { - if (!slang_assembly_file_push (file, slang_asm_addr_copy)) - return 0; - if (!slang_assembly_file_push_label (file, slang_asm_local_free, 4)) - return 0; - if (!dereference (file, op->children, space, info)) - return 0; - } - } + if (!_slang_assemble_assign (file, op, "=", reference, space, info)) + return 0; break; case slang_oper_addassign: - /* TODO: posprawdzaj czy zadziała dereferencja */ - if (!call_function_name (file, "+=", op->children, 2, 1, space, info)) + if (!_slang_assemble_assign (file, op, "+=", reference, space, info)) return 0; - if (reference) - { - /* TODO: stack is address */ - } - else - { - if (!dereference (file, op->children, space, info)) - return 0; - /* TODO: stack is operation type */ - } break; case slang_oper_subassign: - /* TODO: posprawdzaj czy zadziała dereferencja */ - if (!call_function_name (file, "-=", op->children, 2, 1, space, info)) + if (!_slang_assemble_assign (file, op, "-=", reference, space, info)) return 0; - if (reference) - { - /* TODO: stack is address */ - } - else - { - if (!dereference (file, op->children, space, info)) - return 0; - /* TODO: stack is operation type */ - } break; case slang_oper_mulassign: - /* TODO: posprawdzaj czy zadziała dereferencja */ - if (!call_function_name (file, "*=", op->children, 2, 1, space, info)) + if (!_slang_assemble_assign (file, op, "*=", reference, space, info)) return 0; - if (reference) - { - /* TODO: stack is address */ - } - else - { - if (!dereference (file, op->children, space, info)) - return 0; - /* TODO: stack is operation type */ - } break; /*case slang_oper_modassign:*/ /*case slang_oper_lshassign:*/ @@ -974,19 +868,8 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i /*case slang_oper_xorassign:*/ /*case slang_oper_andassign:*/ case slang_oper_divassign: - /* TODO: posprawdzaj czy zadziała dereferencja */ - if (!call_function_name (file, "/=", op->children, 2, 1, space, info)) + if (!_slang_assemble_assign (file, op, "/=", reference, space, info)) return 0; - if (reference) - { - /* TODO: stack is address */ - } - else - { - if (!dereference (file, op->children, space, info)) - return 0; - /* TODO: stack is operation type */ - } break; case slang_oper_select: if (!_slang_assemble_select (file, op, flow, space, info)) @@ -1069,32 +952,12 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i } break; case slang_oper_preincrement: - /* TODO: posprawdzaj czy zadziała dereferencja */ - if (!call_function_name (file, "++", op->children, 1, 1, space, info)) + if (!_slang_assemble_assign (file, op, "++", reference, space, info)) return 0; - if (reference) - { - /* TODO: stack is address */ - } - else - { - /* TODO: dereference */ - /* TODO: stack is operation type */ - } break; case slang_oper_predecrement: - /* TODO: posprawdzaj czy zadziała dereferencja */ - if (!call_function_name (file, "--", op->children, 1, 1, space, info)) + if (!_slang_assemble_assign (file, op, "--", reference, space, info)) return 0; - if (reference) - { - /* TODO: stack is address */ - } - else - { - /* TODO: dereference */ - /* TODO: stack is operation type */ - } break; case slang_oper_plus: if (!call_function_name (file, "+", op->children, 1, 0, space, info)) @@ -1125,7 +988,7 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i slang_assembly_typeinfo_destruct (&ti_arr); return 0; } - if (!sizeof_variable (&ti_arr.spec, NULL, space, &arr_size)) + if (!sizeof_variable (&ti_arr.spec, slang_qual_none, NULL, space, &arr_size)) { slang_assembly_typeinfo_destruct (&ti_arr); return 0; @@ -1137,7 +1000,7 @@ int _slang_assemble_operation (slang_assembly_file *file, slang_operation *op, i slang_assembly_typeinfo_destruct (&ti_elem); return 0; } - if (!sizeof_variable (&ti_elem.spec, NULL, space, &elem_size)) + if (!sizeof_variable (&ti_elem.spec, slang_qual_none, NULL, space, &elem_size)) { slang_assembly_typeinfo_destruct (&ti_arr); slang_assembly_typeinfo_destruct (&ti_elem); @@ -1336,50 +1199,10 @@ void xxx_first (slang_assembly_file *file) slang_assembly_file_push (file, slang_asm_jump); } -void xxx_prolog (slang_assembly_file *file) +void xxx_prolog (slang_assembly_file *file, unsigned int addr) { file->code[0].param[0] = file->count; - - /* allocate local storage for inout/out params */ - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_label (file, slang_asm_enter, 4); - -/* slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f);*/ - slang_assembly_file_push_literal (file, slang_asm_int_push, 777.777f); -/* slang_assembly_file_push_literal (file, slang_asm_float_push, 16.16f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 15.15f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 14.14f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 13.13f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 12.12f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 11.11f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 10.10f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 9.9f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 8.8f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 7.7f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 6.6f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 5.5f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 4.4f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 3.3f); - slang_assembly_file_push_literal (file, slang_asm_float_push, 2.2f);*/ - slang_assembly_file_push_literal (file, slang_asm_float_push, 1.1f); - - slang_assembly_file_push_label (file, slang_asm_call, file->count + 3); - slang_assembly_file_push_label (file, slang_asm_local_free, 4); - + slang_assembly_file_push_label (file, slang_asm_call, addr); slang_assembly_file_push (file, slang_asm_exit); } diff --git a/src/mesa/shader/slang/slang_assemble.h b/src/mesa/shader/slang/slang_assemble.h index 21721c4273..69e81d6af6 100644 --- a/src/mesa/shader/slang/slang_assemble.h +++ b/src/mesa/shader/slang/slang_assemble.h @@ -135,7 +135,7 @@ int _slang_assemble_operation (slang_assembly_file *, struct slang_operation_ *, slang_assembly_stack_info *); void xxx_first (slang_assembly_file *); -void xxx_prolog (slang_assembly_file *); +void xxx_prolog (slang_assembly_file *, unsigned int); #ifdef __cplusplus } diff --git a/src/mesa/shader/slang/slang_assemble_assignment.c b/src/mesa/shader/slang/slang_assemble_assignment.c new file mode 100644 index 0000000000..fdd4355566 --- /dev/null +++ b/src/mesa/shader/slang/slang_assemble_assignment.c @@ -0,0 +1,185 @@ +/* + * Mesa 3-D graphics library + * Version: 6.3 + * + * Copyright (C) 2005 Brian Paul All Rights Reserved. + * + * Permission is hereby granted, free of charge, to any person obtaining a + * copy of this software and associated documentation files (the "Software"), + * to deal in the Software without restriction, including without limitation + * the rights to use, copy, modify, merge, publish, distribute, sublicense, + * and/or sell copies of the Software, and to permit persons to whom the + * Software is furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included + * in all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS + * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL + * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN + * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN + * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + */ + +/** + * \file slang_assemble_assignment.c + * slang assignment expressions assembler + * \author Michal Krol + */ + +#include "imports.h" +#include "slang_assemble_assignment.h" +#include "slang_assemble_typeinfo.h" +#include "slang_storage.h" +#include "slang_utility.h" + +/* + _slang_assemble_assignment() + + copies values on the stack ( to ) to a memory + location pointed by ; + + in: + +------------------+ + | addr of variable | + +------------------+ + | component N-1 | + | ... | + | component 0 | + +------------------+ + + out: + +------------------+ + | addr of variable | + +------------------+ +*/ +/* TODO: add support for swizzle mask */ +static int assign_aggregate (slang_assembly_file *file, const slang_storage_aggregate *agg, + unsigned int *index, unsigned int size, slang_assembly_local_info *info) +{ + unsigned int i; + + for (i = 0; i < agg->count; i++) + { + const slang_storage_array *arr = agg->arrays + i; + unsigned int j; + + for (j = 0; j < arr->length; j++) + { + if (arr->type == slang_stor_aggregate) + { + if (!assign_aggregate (file, arr->aggregate, index, size, info)) + return 0; + } + else + { + slang_assembly_type ty; + + switch (arr->type) + { + case slang_stor_bool: + ty = slang_asm_bool_copy; + break; + case slang_stor_int: + ty = slang_asm_int_copy; + break; + case slang_stor_float: + ty = slang_asm_float_copy; + break; + } + if (!slang_assembly_file_push_label2 (file, ty, size - *index, *index)) + return 0; + *index += 4; + } + } + } + return 1; +} + +int _slang_assemble_assignment (slang_assembly_file *file, slang_operation *op, + slang_assembly_name_space *space, slang_assembly_local_info *info) +{ + slang_assembly_typeinfo ti; + int result; + slang_storage_aggregate agg; + unsigned int index, size; + + slang_assembly_typeinfo_construct (&ti); + if (!_slang_typeof_operation (op, space, &ti)) + { + slang_assembly_typeinfo_destruct (&ti); + return 0; + } + + slang_storage_aggregate_construct (&agg); + if (!_slang_aggregate_variable (&agg, &ti.spec, NULL, space->funcs, space->structs)) + { + slang_storage_aggregate_destruct (&agg); + slang_assembly_typeinfo_destruct (&ti); + return 0; + } + + index = 0; + size = _slang_sizeof_aggregate (&agg); + result = assign_aggregate (file, &agg, &index, size, info); + + slang_storage_aggregate_destruct (&agg); + slang_assembly_typeinfo_destruct (&ti); + return result; +} + +/* + _slang_assemble_assign() + + performs unary (pre ++ and --) or binary (=, +=, -=, *=, /=) assignment on the operation's + children +*/ + +int dereference (slang_assembly_file *file, slang_operation *op, + slang_assembly_name_space *space, slang_assembly_local_info *info); + +int call_function_name (slang_assembly_file *file, const char *name, slang_operation *params, + unsigned int param_count, int assignment, slang_assembly_name_space *space, + slang_assembly_local_info *info); + +int _slang_assemble_assign (slang_assembly_file *file, slang_operation *op, const char *oper, + int ref, slang_assembly_name_space *space, slang_assembly_local_info *info) +{ + slang_assembly_stack_info stk; + slang_assembly_flow_control flow; + + if (!ref) + { + if (!slang_assembly_file_push_label2 (file, slang_asm_local_addr, info->addr_tmp, 4)) + return 0; + } + + if (slang_string_compare ("=", oper) == 0) + { + if (!_slang_assemble_operation (file, op->children, 1, &flow, space, info, &stk)) + return 0; + if (!_slang_assemble_operation (file, op->children + 1, 0, &flow, space, info, &stk)) + return 0; + if (!_slang_assemble_assignment (file, op->children, space, info)) + return 0; + } + else + { + if (!call_function_name (file, oper, op->children, op->num_children, 1, space, info)) + return 0; + } + + if (!ref) + { + if (!slang_assembly_file_push (file, slang_asm_addr_copy)) + return 0; + if (!slang_assembly_file_push_label (file, slang_asm_local_free, 4)) + return 0; + if (!dereference (file, op->children, space, info)) + return 0; + } + + return 1; +} + diff --git a/src/mesa/shader/slang/slang_assemble_assignment.h b/src/mesa/shader/slang/slang_assemble_assignment.h new file mode 100644 index 0000000000..06972ad176 --- /dev/null +++ b/src/mesa/shader/slang/slang_assemble_assignment.h @@ -0,0 +1,45 @@ +/* + * Mesa 3-D graphics library + * Version: 6.3 + * + * Copyright (C) 2005 Brian Paul All Rights Reserved. + * + * Permission is hereby granted, free of charge, to any person obtaining a + * copy of this software and associated documentation files (the "Software"), + * to deal in the Software without restriction, including without limitation + * the rights to use, copy, modify, merge, publish, distribute, sublicense, + * and/or sell copies of the Software, and to permit persons to whom the + * Software is furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included + * in all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS + * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL + * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN + * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN + * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + */ + +#if !defined SLANG_ASSEMBLE_ASSIGNMENT_H +#define SLANG_ASSEMBLE_ASSIGNMENT_H + +#include "slang_assemble.h" + +#if defined __cplusplus +extern "C" { +#endif + +int _slang_assemble_assignment (slang_assembly_file *, slang_operation *, + slang_assembly_name_space *, slang_assembly_local_info *); + +int _slang_assemble_assign (slang_assembly_file *, slang_operation *, const char *, int ref, + slang_assembly_name_space *, slang_assembly_local_info *); + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/src/mesa/shader/slang/slang_compile.c b/src/mesa/shader/slang/slang_compile.c index 6835adea6d..ed82712b20 100644 --- a/src/mesa/shader/slang/slang_compile.c +++ b/src/mesa/shader/slang/slang_compile.c @@ -2093,7 +2093,6 @@ static int parse_function (slang_parse_ctx *C, int definition, slang_struct_scop if (definition) { static int x = 0; -const int y = 61; /* core 437 */ static slang_assembly_file file; slang_assembly_name_space space; @@ -2104,16 +2103,16 @@ if (x == 1) space.structs = structs; space.vars = scope; if (x == 1) - xxx_first (&file); -if (x == y) - xxx_prolog (&file); +xxx_first (&file); + (**parsed_func_ret).address = file.count; if (!_slang_assemble_function (&file, *parsed_func_ret, &space)) { slang_assembly_file_destruct (&file); return 0; } -if (x == y) -{ +if (slang_string_compare ("main", (**parsed_func_ret).header.name) == 0) +{ +xxx_prolog (&file, (**parsed_func_ret).address); _slang_execute (&file); slang_assembly_file_destruct (&file); exit (0); @@ -2251,10 +2250,13 @@ static int compile_with_grammar (grammar id, const char *source, slang_translati static const char *slang_shader_syn = #include "library/slang_shader_syn.h" ; - +/* static const byte slang_core_gc_bin[] = { #include "library/slang_core_gc_bin.h" -}; +};*/ +static const byte slang_core_gc[] = { +#include "library/slang_core_gc.h" +}; static const byte slang_common_builtin_gc_bin[] = { #include "library/slang_common_builtin_gc_bin.h" @@ -2267,7 +2269,7 @@ static const byte slang_fragment_builtin_gc_bin[] = { static const byte slang_vertex_builtin_gc_bin[] = { #include "library/slang_vertex_builtin_gc_bin.h" }; - + int _slang_compile (const char *source, slang_translation_unit *unit, slang_unit_type type, slang_info_log *log) { @@ -2298,8 +2300,10 @@ int _slang_compile (const char *source, slang_translation_unit *unit, slang_unit /* if parsing user-specified shader, load built-in library */ if (type == slang_unit_fragment_shader || type == slang_unit_vertex_shader) { - if (!compile_binary (slang_core_gc_bin, builtin_units, - slang_unit_fragment_builtin, log, NULL)) + /*if (!compile_binary (slang_core_gc_bin, builtin_units, + slang_unit_fragment_builtin, log, NULL))*/ + if (!compile_with_grammar (id, slang_core_gc, builtin_units, slang_unit_fragment_builtin, + log, NULL)) { grammar_destroy (id); return 0; @@ -2314,7 +2318,7 @@ int _slang_compile (const char *source, slang_translation_unit *unit, slang_unit if (type == slang_unit_fragment_shader) { if (!compile_binary (slang_fragment_builtin_gc_bin, builtin_units + 2, - slang_unit_fragment_builtin, log, NULL)) + slang_unit_fragment_builtin, log, NULL)) { slang_translation_unit_destruct (builtin_units); slang_translation_unit_destruct (builtin_units + 1); @@ -2325,7 +2329,7 @@ int _slang_compile (const char *source, slang_translation_unit *unit, slang_unit else if (type == slang_unit_vertex_shader) { if (!compile_binary (slang_vertex_builtin_gc_bin, builtin_units + 2, - slang_unit_vertex_builtin, log, NULL)) + slang_unit_vertex_builtin, log, NULL)) { slang_translation_unit_destruct (builtin_units); slang_translation_unit_destruct (builtin_units + 1); diff --git a/src/mesa/shader/slang/slang_storage.c b/src/mesa/shader/slang/slang_storage.c index 84af8d575c..f06147556e 100644 --- a/src/mesa/shader/slang/slang_storage.c +++ b/src/mesa/shader/slang/slang_storage.c @@ -95,19 +95,19 @@ static int aggregate_vector (slang_storage_aggregate *agg, slang_storage_type ba } static int aggregate_matrix (slang_storage_aggregate *agg, slang_storage_type basic_type, - unsigned int order) + unsigned int dimension) { slang_storage_array *arr = slang_storage_aggregate_push_new (agg); if (arr == NULL) return 0; arr->type = slang_stor_aggregate; - arr->length = order; + arr->length = dimension; arr->aggregate = (slang_storage_aggregate *) slang_alloc_malloc (sizeof ( slang_storage_aggregate)); if (arr->aggregate == NULL) return 0; slang_storage_aggregate_construct (arr->aggregate); - if (!aggregate_vector (arr->aggregate, basic_type, order)) + if (!aggregate_vector (arr->aggregate, basic_type, dimension)) return 0; return 1; } -- cgit v1.2.3