OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*******************************************************************************/
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*******************************************************************************/
struct psi_let_exp *psi_let_exp_init_ex(struct psi_decl_var *var,
enum psi_let_exp_kind kind, void *data)
{
struct psi_let_exp *psi_let_exp_init_ex(struct psi_decl_var *var,
enum psi_let_exp_kind kind, void *data)
{
-void psi_let_exp_dump(int fd, struct psi_let_exp *val, unsigned level, int last)
+void psi_let_exp_dump(struct psi_dump *dump, struct psi_let_exp *val, unsigned level, int last)
- psi_decl_var_dump(fd, val->data.var);
- dprintf(fd, "\t/* fqn=%s */", val->data.var->fqn);
+ psi_decl_var_dump(dump, val->data.var);
+ PSI_DUMP(dump, "\t/* fqn=%s */", val->data.var->fqn->val);
if (!psi_decl_var_validate(data, val->data.var, scope)) {
data->error(data, dvar->token ? : **(struct psi_token ***) &val->data,
PSI_WARNING, "Unknown variable '%s' in temp let statment of implementation '%s'",
if (!psi_decl_var_validate(data, val->data.var, scope)) {
data->error(data, dvar->token ? : **(struct psi_token ***) &val->data,
PSI_WARNING, "Unknown variable '%s' in temp let statment of implementation '%s'",
if (!psi_decl_var_validate(data, dvar, scope)) {
data->error(data, dvar->token ? : **(struct psi_token ***) &val->data,
PSI_WARNING, "Unknown variable '%s' in let statement of implementation '%s'",
if (!psi_decl_var_validate(data, dvar, scope)) {
data->error(data, dvar->token ? : **(struct psi_token ***) &val->data,
PSI_WARNING, "Unknown variable '%s' in let statement of implementation '%s'",
struct psi_impl *impl = psi_call_frame_get_impl(frame);
struct psi_let_stmt *let_temp = psi_impl_get_let(impl, val->data.var);
struct psi_call_frame_symbol *temp_arg;
struct psi_impl *impl = psi_call_frame_get_impl(frame);
struct psi_let_stmt *let_temp = psi_impl_get_let(impl, val->data.var);
struct psi_call_frame_symbol *temp_arg;
- frame_sym->temp_val = *deref_impl_val(temp_arg->ptr, val->data.var);
+ src = deref_impl_val(temp_arg->ptr, val->data.var);
+ memcpy(&frame_sym->temp_val, src, psi_decl_var_get_size(let_temp->exp->var));