X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;ds=inline;f=src%2Ftypes%2Flet_stmt.h;h=1ffd56ed5bf8269aa936c60302d4d285c01395eb;hb=2f5af21b263403997e154658635d6b6e6eaab453;hp=8415e49c80e3ec1abe5722e5999c5a8f6edacb28;hpb=898c6dac30d12d7fe56662d66a8e73c340926d64;p=m6w6%2Fext-psi diff --git a/src/types/let_stmt.h b/src/types/let_stmt.h index 8415e49..1ffd56e 100644 --- a/src/types/let_stmt.h +++ b/src/types/let_stmt.h @@ -1,27 +1,46 @@ -#ifndef _PSI_TYPES_LET_STMT_H -#define _PSI_TYPES_LET_STMT_H +/******************************************************************************* + Copyright (c) 2016, Michael Wallner . + All rights reserved. + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" + AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE + FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER + CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, + OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE + OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*******************************************************************************/ + +#ifndef PSI_TYPES_LET_STMT_H +#define PSI_TYPES_LET_STMT_H + +#include "decl_var.h" +#include "let_val.h" typedef struct let_stmt { decl_var *var; let_val *val; } let_stmt; -static inline let_stmt *init_let_stmt(decl_var *var, let_val *val) { - let_stmt *let = calloc(1, sizeof(*let)); - let->var = var; - let->val = val; - return let; -} - -static inline void free_let_stmt(let_stmt *stmt) { - if (stmt->val) { - if (stmt->val->kind == PSI_LET_TMP && stmt->var->arg) { - free_decl_arg(stmt->var->arg); - } - free_let_val(stmt->val); - } - free_decl_var(stmt->var); - free(stmt); -} +let_stmt *init_let_stmt(decl_var *var, let_val *val); +void free_let_stmt(let_stmt *stmt); +void dump_let_stmt(int fd, let_stmt *let); + +struct psi_data; +struct impl; + +int validate_let_stmts(struct psi_data *data, struct impl *impl); #endif