From 25a9079a440dca3115aedcc4c22438e187ed9d7d Mon Sep 17 00:00:00 2001 From: =?utf8?q?G=C3=B6tz=20Lindenmaier?= Date: Tue, 19 Aug 2003 14:10:01 +0000 Subject: [PATCH] added copyright information [r1714] --- ir/ir/ircgcons.c | 2 +- ir/ir/irnode.c | 2 +- ir/ir/irop_t.h | 12 +++++++++++- ir/st/Makefile.in | 13 +++++++++---- ir/st/bs.h | 13 +++++++++++-- ir/st/exc.c | 17 ++++++++++------- ir/st/exc.h | 18 +++++++++++------- ir/st/st.c | 17 ++++++++++------- ir/st/st.h | 20 +++++++++++--------- ir/tr/Makefile.in | 15 ++++++++++----- ir/tr/entity.c | 21 ++++++++++++--------- ir/tr/entity.h | 14 ++++++++++---- ir/tr/entity_t.h | 16 +++++++++++----- ir/tr/mangle.c | 32 +++++++++++++++++++------------- ir/tr/mangle.h | 28 ++++++++++++++++++---------- ir/tr/tpop.c | 18 +++++++++++------- ir/tr/tpop.h | 14 +++++++++++--- ir/tr/tpop_t.h | 13 +++++++++++-- ir/tr/trvrfy.c | 11 +++++++++++ ir/tr/trvrfy.h | 14 ++++++++++++-- ir/tr/type.c | 17 ++++++++++++++--- ir/tr/type.h | 14 ++++++++++---- ir/tr/type_or_entity.h | 17 +++++++++++------ ir/tr/type_t.h | 12 +++++++++--- ir/tr/typegmod.c | 22 +++++++++++++--------- ir/tr/typegmod.h | 16 ++++++++++------ ir/tr/typegmod_t.h | 19 ------------------- ir/tr/typewalk.c | 31 +++++++++++++++++++------------ ir/tr/typewalk.h | 41 ++++++++++++++++++++++------------------- ir/tv/Makefile.in | 19 ++++++++++++------- ir/tv/fltcalc.c | 13 +++++++++++-- ir/tv/fltcalc.h | 12 ++++++++++++ ir/tv/strcalc.c | 18 +++++++++++------- ir/tv/strcalc.h | 33 +++++++++++++++++++-------------- ir/tv/tv.c | 26 +++++++++++++++----------- ir/tv/tv.h | 15 +++++++++++++-- ir/tv/tv_t.h | 19 ++++++++++++------- 37 files changed, 424 insertions(+), 230 deletions(-) delete mode 100644 ir/tr/typegmod_t.h diff --git a/ir/ir/ircgcons.c b/ir/ir/ircgcons.c index 1b8377ed5..0d4d0e3e9 100644 --- a/ir/ir/ircgcons.c +++ b/ir/ir/ircgcons.c @@ -1,6 +1,6 @@ /* * Project: libFIRM - * File name: ir/common + * File name: ir/ir/ircgcons.c * Purpose: Construction and removal of interprocedural representation * (explicit interprocedural dependencies). * Author: Hubert Schmid diff --git a/ir/ir/irnode.c b/ir/ir/irnode.c index 018670a3e..af416631a 100644 --- a/ir/ir/irnode.c +++ b/ir/ir/irnode.c @@ -19,7 +19,7 @@ #include "irnode_t.h" #include "irgraph_t.h" #include "irmode_t.h" -#include "typegmod_t.h" +#include "typegmod.h" #include "array.h" #include "irbackedge_t.h" #include "irdump.h" diff --git a/ir/ir/irop_t.h b/ir/ir/irop_t.h index 5d1f23f53..80fc0c157 100644 --- a/ir/ir/irop_t.h +++ b/ir/ir/irop_t.h @@ -1,5 +1,15 @@ +/* + * Project: libFIRM + * File name: ir/ir/irop_t.h + * Purpose: Representation of opcode of intermediate operation -- private header. + * Author: Christian Schaefer + * Modified by: Goetz Lindenmaier + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1998-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ -/* $Id$ */ # ifndef _IROP_T_H_ # define _IROP_T_H_ diff --git a/ir/st/Makefile.in b/ir/st/Makefile.in index d67e17968..2f67e2070 100644 --- a/ir/st/Makefile.in +++ b/ir/st/Makefile.in @@ -1,8 +1,13 @@ -# Hey Emacs, this is a -*- makefile -*- # -# libFIRM Project -# -# $Id$ +# Project: libFIRM +# File name: ir/st/Makefile.in +# Purpose: +# Author: Florian Liekweg, Till Riedel +# Modified by: +# Created: +# CVS-ID: $Id$ +# Copyright: (c) 2001-2003 Universität Karlsruhe +# Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. # top_srcdir := @top_srcdir@ diff --git a/ir/st/bs.h b/ir/st/bs.h index bd9662350..bfe6f48ec 100644 --- a/ir/st/bs.h +++ b/ir/st/bs.h @@ -1,4 +1,14 @@ -/* Copyright (c) 2002 by Universitaet Karlsruhe (TH). All Rights Reserved */ +/* + * Project: libFIRM + * File name: ir/st/bs.h + * Purpose: Provides a simple bit set. + * Author: Florian Liekweg + * Modified by: + * Created: 4.3.2002 + * CVS-ID: $Id$ + * Copyright: (c) 2002-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** @file bs.h @@ -8,7 +18,6 @@ Not quite complete */ -/* $Id$ */ # ifndef _BS_H_ # define _BS_H_ diff --git a/ir/st/exc.c b/ir/st/exc.c index bd8f159e9..53e1185e3 100644 --- a/ir/st/exc.c +++ b/ir/st/exc.c @@ -1,7 +1,14 @@ -/* Copyright (c) 2002 by Universität Karlsruhe (TH). All Rights Reserved */ /* -* Time-stamp: -*/ + * Project: libFIRM + * File name: ir/st/exc.c + * Purpose: Helper functions for jack exceptions. + * Author: Florian Liekweg + * Modified by: + * Created: 4.3.2002 + * CVS-ID: $Id$ + * Copyright: (c) 2002-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** NAME @@ -10,10 +17,6 @@ Helper functions for exceptions S not quite complete - HISTORY - liekweg - Mar 4, 2002: Created. - CVS: - $Id$ ***/ # include "exc.h" diff --git a/ir/st/exc.h b/ir/st/exc.h index f27066491..c2cdc8408 100644 --- a/ir/st/exc.h +++ b/ir/st/exc.h @@ -1,7 +1,15 @@ -/* Copyright (c) 2002 by Universität Karlsruhe (TH). All Rights Reserved */ /* -* Time-stamp: -*/ + * Project: libFIRM + * File name: ir/st/exc.h + * Purpose: Helper functions for jack exceptions. + * Author: Florian Liekweg + * Modified by: + * Created: 4.3.2002 + * CVS-ID: $Id$ + * Copyright: (c) 2002-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + /** NAME @@ -10,10 +18,6 @@ Helper functions for exceptions S not quite complete - HISTORY - liekweg - Mar 4, 2002: Created. - CVS: - $Id$ ***/ # include "irnode.h" diff --git a/ir/st/st.c b/ir/st/st.c index 8fa47495c..ed7d5011e 100644 --- a/ir/st/st.c +++ b/ir/st/st.c @@ -1,7 +1,14 @@ -/* Copyright (c) 2002 by Universität Karlsruhe (TH). All Rights Reserved */ /* -* Time-stamp: -*/ + * Project: libFIRM + * File name: ir/st/st.c + * Purpose: Provide some auxilliary structures for firm graphs. + * Author: Florian Liekweg + * Modified by: + * Created: 26.2.2002 + * CVS-ID: $Id$ + * Copyright: (c) 2002-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** NAME @@ -10,10 +17,6 @@ provide some auxilliary structures for firm graphs. S not quite complete - HISTORY - liekweg - Feb 26, 2002: Created. - CVS: - $Id$ ***/ #ifdef HAVE_CONFIG_H diff --git a/ir/st/st.h b/ir/st/st.h index 309df8ae4..37c74fdbb 100644 --- a/ir/st/st.h +++ b/ir/st/st.h @@ -1,5 +1,14 @@ -/* Copyright (c) 2002 by Universitaet Karlsruhe (TH). All Rights Reserved */ - +/* + * Project: libFIRM + * File name: ir/st/st.h + * Purpose: Provide some auxilliary structures for firm graphs. + * Author: Florian Liekweg + * Modified by: + * Created: 26.2.2002 + * CVS-ID: $Id$ + * Copyright: (c) 2002-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** @file st.h @@ -11,13 +20,6 @@ not quite complete */ -/* - HISTORY - liekweg - Feb 26, 2002: Created. - CVS: - $Id$ -*/ - # ifndef _ST_H_ # define _ST_H_ diff --git a/ir/tr/Makefile.in b/ir/tr/Makefile.in index 490c985e9..8904612dd 100644 --- a/ir/tr/Makefile.in +++ b/ir/tr/Makefile.in @@ -1,8 +1,13 @@ -# Hey Emacs, this is a -*- makefile -*- # -# libFIRM Project -# -# $Id$ +# Project: libFIRM +# File name: ir/tr/Makefile.in +# Purpose: +# Author: Boris Boesler, Till Riedel +# Modified by: +# Created: +# CVS-ID: $Id$ +# Copyright: (c) 1999-2003 Universität Karlsruhe +# Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. # top_srcdir := @top_srcdir@ @@ -17,7 +22,7 @@ SOURCES = $(INSTALL_HEADERS) SOURCES += Makefile.in \ entity.c entity_t.h mangle.c tpop.c tpop_t.h type.c type_t.h \ - typewalk.c typegmod.c typegmod_t.h trvrfy.h trvrfy.c + typewalk.c typegmod.c trvrfy.h trvrfy.c include $(topdir)/MakeRules diff --git a/ir/tr/entity.c b/ir/tr/entity.c index d67d398e4..cf61bdead 100644 --- a/ir/tr/entity.c +++ b/ir/tr/entity.c @@ -1,11 +1,14 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -* -* Authors: Martin Trapp, Christian Schaefer -* -*/ - -/* $Id$ */ +/* + * Project: libFIRM + * File name: ir/tr/entity.c + * Purpose: Representation of all program known entities. + * Author: Martin Trapp, Christian Schaefer + * Modified by: Goetz Lindenmaier + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1998-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ #ifdef HAVE_CONFIG_H # include @@ -17,7 +20,7 @@ # include "entity_t.h" # include "mangle.h" -# include "typegmod_t.h" +# include "typegmod.h" # include "array.h" /* All this is needed to build the constant node for methods: */ # include "irprog_t.h" diff --git a/ir/tr/entity.h b/ir/tr/entity.h index 0544c7032..8d9672735 100644 --- a/ir/tr/entity.h +++ b/ir/tr/entity.h @@ -1,8 +1,14 @@ /* -* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -* -*/ + * Project: libFIRM + * File name: ir/tr/entity.h + * Purpose: Representation of all program known entities. + * Author: Martin Trapp, Christian Schaefer + * Modified by: Goetz Lindenmaier + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1998-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** * @file entity.h diff --git a/ir/tr/entity_t.h b/ir/tr/entity_t.h index f57899fd1..13617ad56 100644 --- a/ir/tr/entity_t.h +++ b/ir/tr/entity_t.h @@ -1,7 +1,14 @@ -/*10 2002/03/19 13:08:33 -* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -*/ +/* + * Project: libFIRM + * File name: ir/tr/entity_t.h + * Purpose: Representation of all program known entities -- private header. + * Author: Martin Trapp, Christian Schaefer + * Modified by: Goetz Lindenmaier + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1998-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** * @file entity_t.h @@ -28,7 +35,6 @@ * enclosing procedure. */ -/* $Id$ */ # ifndef _ENTITY_T_H_ # define _ENTITY_T_H_ diff --git a/ir/tr/mangle.c b/ir/tr/mangle.c index 26987d84b..9bca8227b 100644 --- a/ir/tr/mangle.c +++ b/ir/tr/mangle.c @@ -1,11 +1,16 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -* -* Authors: Martin Trapp, Christian Schaefer -* -*/ +/* + * Project: libFIRM + * File name: ir/tr/mangle.c + * Purpose: Methods to manipulate names. + * Author: Martin Trapp, Christian Schaefer + * Modified by: Goetz Lindenmaier + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1998-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + -/* $Id$ */ #ifdef HAVE_CONFIG_H # include @@ -22,6 +27,13 @@ static struct obstack mangle_obst; +static INLINE ident * +mangle_type (type *tp) +{ + assert (tp->kind == k_type); + return tp->name; +} + ident * mangle_entity (entity *ent) { @@ -41,12 +53,6 @@ mangle_entity (entity *ent) return res; } -ident * -mangle_type (type *tp) -{ - assert (tp->kind == k_type); - return tp->name; -} /* Returns a new ident that represents firstscnd. */ ident *mangle (ident *first, ident* scnd) { diff --git a/ir/tr/mangle.h b/ir/tr/mangle.h index 4a49f7a7e..8f3ded846 100644 --- a/ir/tr/mangle.h +++ b/ir/tr/mangle.h @@ -1,34 +1,42 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -*/ +/* + * Project: libFIRM + * File name: ir/tr/mangle.h + * Purpose: Methods to manipulate names. + * Author: Martin Trapp, Christian Schaefer + * Modified by: Goetz Lindenmaier + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1998-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** * @file mangle.h * -* FIRM name mangling. +* FIRM name mangling -- methods to manipulate names. * * @author Martin Trapp, Christian Schaefer */ -/* $Id$ */ +#ifndef _MANGLE_H_ +#define _MANGLE_H_ # include "ident.h" # include "entity.h" # include "type.h" /** initializes the name mangling code */ -void init_mangle (void); +void init_mangle (void); /** Computes a definite name for this entity by concatenating the name of the owner type and the name of the entity with - a separating "_". f*/ + a separating "_". */ ident *mangle_entity (entity *ent); -/** Sorry, I'm not sure what this does... seems to copy the string. */ -ident *mangle_type (type *tp); - /** mangle underscore: Returns a new ident that represents first_scnd. */ ident *mangle_u (ident *first, ident* scnd); /** mangle: Returns a new ident that represents firstscnd. */ ident *mangle (ident *first, ident* scnd); + +#endif /* _MANGLE_H_ */ diff --git a/ir/tr/tpop.c b/ir/tr/tpop.c index bcf5dd12f..71885e0f6 100644 --- a/ir/tr/tpop.c +++ b/ir/tr/tpop.c @@ -1,11 +1,15 @@ -/* Copyright (C) 2001 by Universitaet Karlsruhe -* All rights reserved. -* -* Authors: Goetz Lindenmaier -* -*/ +/* + * Project: libFIRM + * File name: ir/tr/tpop.c + * Purpose: Opcode of types. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ -/* $Id$ */ #ifdef HAVE_CONFIG_H # include diff --git a/ir/tr/tpop.h b/ir/tr/tpop.h index 63ffcb300..bbd119626 100644 --- a/ir/tr/tpop.h +++ b/ir/tr/tpop.h @@ -1,6 +1,14 @@ -/* (C) 2001 by Universitaet Karlsruhe */ - -/* $Id$ */ +/* + * Project: libFIRM + * File name: ir/tr/tpop.h + * Purpose: Opcode of types. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ # ifndef _TYPEOP_H_ # define _TYPEOP_H_ diff --git a/ir/tr/tpop_t.h b/ir/tr/tpop_t.h index c0a81f196..fe9accc31 100644 --- a/ir/tr/tpop_t.h +++ b/ir/tr/tpop_t.h @@ -1,6 +1,15 @@ -/* (C) 2001 by Universitaet Karlsruhe */ +/* + * Project: libFIRM + * File name: ir/tr/tpop_t.h + * Purpose: Opcode of types -- private header. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ -/* $Id$ */ # ifndef _TPOP_T_H_ # define _TPOP_T_H_ diff --git a/ir/tr/trvrfy.c b/ir/tr/trvrfy.c index 6d9076f59..de44d6c40 100644 --- a/ir/tr/trvrfy.c +++ b/ir/tr/trvrfy.c @@ -1,3 +1,14 @@ +/* + * Project: libFIRM + * File name: ir/tr/trvrfy.c + * Purpose: Check types and entities for correctness. + * Author: Michael Beck, Goetz Lindenmaier + * Modified by: + * Created: 29.1.2003 + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ #include "trvrfy.h" #include "irgraph_t.h" /* for checking whether constant code is allocated diff --git a/ir/tr/trvrfy.h b/ir/tr/trvrfy.h index 2d153afb8..60d57a398 100644 --- a/ir/tr/trvrfy.h +++ b/ir/tr/trvrfy.h @@ -1,3 +1,14 @@ +/* + * Project: libFIRM + * File name: ir/tr/trvrfy.h + * Purpose: Check types and entities for correctness. + * Author: Michael Beck, Goetz Lindenmaier + * Modified by: + * Created: 29.1.2003 + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ #ifndef TRVRFY_H @@ -8,13 +19,12 @@ * * Methods to verify the type representations. * - * @author Goetz Lindenmaier + * @author Michael Beck, Goetz Lindenmaier * * Methods to verify the type representations. * Copyright 2003 University of Karlsruhe. * Created 29.1.2003. * - * $Id$ */ #include "firm.h" diff --git a/ir/tr/type.c b/ir/tr/type.c index 494953db6..b41a6ee0f 100644 --- a/ir/tr/type.c +++ b/ir/tr/type.c @@ -1,9 +1,21 @@ +/* + * Project: libFIRM + * File name: ir/tr/type.c + * Purpose: Representation of types. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + /** * * file type.c - implementation of the datastructure to hold * type information. * (C) 2001 by Universitaet Karlsruhe - * Martin Trapp, Christian Schaefer, Goetz Lindenmaier + * Goetz Lindenmaier * * This module supplies a datastructure to represent all types * known in the compiled program. This includes types specified @@ -23,7 +35,6 @@ * @see type_t.h type tpop */ -/* $Id$ */ #ifdef HAVE_CONFIG_H # include #endif @@ -35,7 +46,7 @@ # include "type_t.h" # include "tpop_t.h" # include "irprog_t.h" -# include "typegmod_t.h" +# include "typegmod.h" # include "array.h" # include "irprog.h" # include "mangle.h" diff --git a/ir/tr/type.h b/ir/tr/type.h index 9e558fd2f..dcf43fca6 100644 --- a/ir/tr/type.h +++ b/ir/tr/type.h @@ -1,5 +1,13 @@ /* - * (C) 2001 by Universitaet Karlsruhe + * Project: libFIRM + * File name: ir/tr/type.h + * Purpose: Representation of types. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. */ /** @@ -25,11 +33,9 @@ * on the level of the programming language, modes at the level of * the target processor. * - * @see tpop.h + * @see tpop.h */ -/* $Id$ */ - # ifndef _TYPE_H_ # define _TYPE_H_ diff --git a/ir/tr/type_or_entity.h b/ir/tr/type_or_entity.h index 4d3fc762f..3e9ac148f 100644 --- a/ir/tr/type_or_entity.h +++ b/ir/tr/type_or_entity.h @@ -1,6 +1,14 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -*/ +/* + * Project: libFIRM + * File name: ir/tr/type_or_entity.h + * Purpose: Provides a datatype to treat types and entities as the same. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1999-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** * @file type_or_entity.h @@ -10,9 +18,6 @@ * @author Goetz Lindenmaier */ -/* $Id$ */ - - # ifndef _TYPE_OR_ENTITY_H_ # define _TYPE_OR_ENTITY_H_ diff --git a/ir/tr/type_t.h b/ir/tr/type_t.h index 42f6d8796..db2968e11 100644 --- a/ir/tr/type_t.h +++ b/ir/tr/type_t.h @@ -1,9 +1,15 @@ /* - * (C) 2001 by Universitaet Karlsruhe + * Project: libFIRM + * File name: ir/tr/type_t.h + * Purpose: Representation of types -- private header. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. */ -/* $Id$ */ - # ifndef _TYPE_T_H_ # define _TYPE_T_H_ # ifdef HAVE_CONFIG_H diff --git a/ir/tr/typegmod.c b/ir/tr/typegmod.c index bc4744a67..e5c445f0f 100644 --- a/ir/tr/typegmod.c +++ b/ir/tr/typegmod.c @@ -1,13 +1,16 @@ -/* Copyright (C) 2001 by Universitaet Karlsruhe -* All rights reserved. -* -* Authors: Goetz Lindenmaier -* -*/ +/* + * Project: libFIRM + * File name: ir/tr/typegmod.c + * Purpose: Functionality to modify the type graph. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ -/* $Id$ */ - -# include "typegmod_t.h" +# include "typegmod.h" # include "type_t.h" # include "tpop_t.h" # include "irmode.h" @@ -37,6 +40,7 @@ INLINE void exchange_types(type *old_type, type *new_type) { } INLINE type *skip_tid(type *tp) { + /* @@@ implement the self cycle killing trick of skip_id(ir_node *) */ while (tp->type_op == type_id) tp = (type *) tp->mode; return tp; diff --git a/ir/tr/typegmod.h b/ir/tr/typegmod.h index 38d468318..379025bf7 100644 --- a/ir/tr/typegmod.h +++ b/ir/tr/typegmod.h @@ -1,12 +1,16 @@ /* - * typegmod.h - * - * (C) 2001 by Universitaet Karlsruhe - * Goetz Lindenmaier - * - * $Id$ + * Project: libFIRM + * File name: ir/tr/typegmod.h + * Purpose: Functionality to modify the type graph. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2001-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. */ + # ifndef _TYPEGMOD_H_ # define _TYPEGMOD_H_ diff --git a/ir/tr/typegmod_t.h b/ir/tr/typegmod_t.h deleted file mode 100644 index 298a87975..000000000 --- a/ir/tr/typegmod_t.h +++ /dev/null @@ -1,19 +0,0 @@ -/* (C) 2001 by Universitaet Karlsruhe */ - -/* $Id$ */ - -# ifndef _TYPEGMOD_T_H_ -# define _TYPEGMOD_T_H_ - -# include "typegmod.h" - -/** - * @file typegmod_t.h - * - * This module supplies routines that support changing the type graph. - * - * @author Goetz Lindenmaier - */ - - -# endif /*_TYPEGMOD_T_H_ */ diff --git a/ir/tr/typewalk.c b/ir/tr/typewalk.c index 193c739ae..e91357a9f 100644 --- a/ir/tr/typewalk.c +++ b/ir/tr/typewalk.c @@ -1,15 +1,22 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -* -* Author: Goetz Lindenmaier -* -* traverse the type information. The walker walks the whole ir graph -* to find the distinct type trees in the type graph forest. -* - execute the pre function before recursion -* - execute the post function after recursion -*/ - -/* $Id$ */ +/* + * Project: libFIRM + * File name: ir/tr/typewalk.c + * Purpose: Traverse the type information. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1999-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + +/* + * traverse the type information. The walker walks the whole ir graph + * to find the distinct type trees in the type graph forest. + * - execute the pre function before recursion + * - execute the post function after recursion + */ + #ifdef HAVE_CONFIG_H # include diff --git a/ir/tr/typewalk.h b/ir/tr/typewalk.h index 85ddef08c..76cf65555 100644 --- a/ir/tr/typewalk.h +++ b/ir/tr/typewalk.h @@ -1,24 +1,27 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -*/ +/* + * Project: libFIRM + * File name: ir/tr/typewalk.h + * Purpose: Traverse the type information. + * Author: Goetz Lindenmaier + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 1999-2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ /** -* @file typewalk.h -* -* Traverse the type information. -* -* @author Goetz Lindenmaier -* -* The walker walks the whole ir graph -* to find the distinct type trees in the type graph forest. -* - execute the pre() function before recursion -* - execute the post() function after recursion -*/ - -/* $Id$ */ - - -/* walk over all type information reachable from the ir graph. */ + * @file typewalk.h + * + * Traverse the type information. + * + * @author Goetz Lindenmaier + * + * The walker walks the whole ir graph + * to find the distinct type trees in the type graph forest. + * - execute the pre() function before recursion + * - execute the post() function after recursion + */ #ifndef _TYPEWALK_H_ #define _TYPEWALK_H_ diff --git a/ir/tv/Makefile.in b/ir/tv/Makefile.in index b5edcddb8..cf9e679e4 100644 --- a/ir/tv/Makefile.in +++ b/ir/tv/Makefile.in @@ -1,8 +1,13 @@ -# Hey Emacs, this is a -*- makefile -*- # -# libFIRM Project -# -# $Id$ +# Project: libFIRM +# File name: ir/tv/Makefile.in +# Purpose: +# Author: Boris Boesler, Till Riedel +# Modified by: +# Created: +# CVS-ID: $Id$ +# Copyright: (c) 1999-2003 Universität Karlsruhe +# Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. # top_srcdir := @top_srcdir@ @@ -18,9 +23,9 @@ SOURCES += Makefile.in tv.c tv_t.h strcalc.c strcalc.h fltcalc.c fltcalc.h include $(topdir)/MakeRules -CPPFLAGS += -I$(top_srcdir)/ir/common -I$(top_srcdir)/ir/tr -I$(top_srcdir)/ir/adt \ - -I$(top_srcdir)/ir/ident -I$(top_srcdir)/ir/ir -I$(top_srcdir)/ir/debug \ - -I$(top_srcdir)/ir/st -I$(top_srcdir)/ir/ana \ +CPPFLAGS += -I$(top_srcdir)/ir/common -I$(top_srcdir)/ir/tr -I$(top_srcdir)/ir/adt \ + -I$(top_srcdir)/ir/ident -I$(top_srcdir)/ir/ir -I$(top_srcdir)/ir/debug \ + -I$(top_srcdir)/ir/st -I$(top_srcdir)/ir/ana tv.o: tv.h tv.c fltcalc.h fltcalc.c strcalc.h strcalc.c diff --git a/ir/tv/fltcalc.c b/ir/tv/fltcalc.c index b3117ef15..77b675d5f 100644 --- a/ir/tv/fltcalc.c +++ b/ir/tv/fltcalc.c @@ -1,7 +1,16 @@ -/* fltcalc.c - * Authors: Matthias Heil +/* + * Project: libFIRM + * File name: ir/tv/fltcalc.c + * Purpose: + * Author: + * Modified by: + * Created: 2003 + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. */ + #include "fltcalc.h" #include "strcalc.h" diff --git a/ir/tv/fltcalc.h b/ir/tv/fltcalc.h index 6c4594519..448ccd7d6 100644 --- a/ir/tv/fltcalc.h +++ b/ir/tv/fltcalc.h @@ -1,3 +1,15 @@ +/* + * Project: libFIRM + * File name: ir/tv/fltcalc.h + * Purpose: + * Author: + * Modified by: + * Created: 2003 + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + #ifndef _FLTCALC_H_ #define _FLTCALC_H_ diff --git a/ir/tv/strcalc.c b/ir/tv/strcalc.c index e26e622bb..bd69ca8ed 100644 --- a/ir/tv/strcalc.c +++ b/ir/tv/strcalc.c @@ -1,10 +1,14 @@ -/****i* strcalc/implementation - * - * AUTHORS - * Matthias Heil - * - * NOTES - ******/ +/* + * Project: libFIRM + * File name: ir/tv/strcalc.c + * Purpose: + * Author: Mathias Heil + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ #include "strcalc.h" diff --git a/ir/tv/strcalc.h b/ir/tv/strcalc.h index 7a33ef5db..68498dd57 100644 --- a/ir/tv/strcalc.h +++ b/ir/tv/strcalc.h @@ -1,19 +1,24 @@ - /****h* tools/strcalc - * - * NAME - * strcalc -- calculations using strings - * Provides basic mathematical operations on values represented as strings - * - * AUTHORS - * Matthias Heil +/* + * Project: libFIRM + * File name: ir/tv/strcalc.h + * Purpose: Provides basic mathematical operations on values represented as strings. + * Author: Mathias Heil + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + +/** + * @file strcalc.h * - * DESCRIPTION - * The module uses a string to represent values, and provides operations - * to perform calculations with these values. - * Results are stored in an internal buffer, so you have to make a copy - * of them if you need to store the result. + * The module uses a string to represent values, and provides operations + * to perform calculations with these values. + * Results are stored in an internal buffer, so you have to make a copy + * of them if you need to store the result. * - ******/ + */ #ifndef _STRCALC_H_ #define _STRCALC_H_ diff --git a/ir/tv/tv.c b/ir/tv/tv.c index 518bc8afd..792725254 100644 --- a/ir/tv/tv.c +++ b/ir/tv/tv.c @@ -1,17 +1,21 @@ -/* TV --- Target Values, aka Constant Table. - Copyright (C) 1995, 1996 Christian von Roques */ - -/* $Id$ */ +/* + * Project: libFIRM + * File name: ir/tv/tv.c + * Purpose: Representation of and static computations on target machine + * values. + * Author: Mathias Heil + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ -/****i* tv/implementation - * - * AUTHORS - * Matthias Heil - * - * NOTES +/* * Values are stored in a format depending upon chosen arithmetic * module. Default uses strcalc and fltcalc. - ******/ + * + */ /* This implementation assumes: * - target has IEEE-754 floating-point arithmetic. */ diff --git a/ir/tv/tv.h b/ir/tv/tv.h index e187be10f..7b93cf847 100644 --- a/ir/tv/tv.h +++ b/ir/tv/tv.h @@ -1,11 +1,22 @@ +/* + * Project: libFIRM + * File name: ir/tv/tv.h + * Purpose: Representation of and static computations on target machine + * values. + * Author: Mathias Heil + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ + /** * @file tv.h * * Declarations for Target Values. */ -/* $Id$ */ - #ifndef _TV_H_ #define _TV_H_ diff --git a/ir/tv/tv_t.h b/ir/tv/tv_t.h index 1f042ab80..8272c7838 100644 --- a/ir/tv/tv_t.h +++ b/ir/tv/tv_t.h @@ -1,12 +1,17 @@ -/* Declarations for Target Values. */ +/* + * Project: libFIRM + * File name: ir/tv/tv_t.h + * Purpose: Representation of and static computations on target machine + * values -- private header. + * Author: Mathias Heil + * Modified by: + * Created: + * CVS-ID: $Id$ + * Copyright: (c) 2003 Universität Karlsruhe + * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + */ -/** -* @file tv_t.h -* -* @author Mathias Heil -*/ -/* $Id$ */ #ifndef _TV_T_H_ #define _TV_T_H_ -- 2.20.1