X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=testprograms%2Fconst_eval_example.c;h=dc0bce07e4780b077bd808bc54eadfb48d64e1e7;hb=478dcb4a03eec4c6fe63b5aa9e4ee70f11bdd93e;hp=66c21f4371e1beb879dbd5506f18db41c4edc527;hpb=9fbc46dc213871984b377a2b622a7ca8817fb0ad;p=libfirm diff --git a/testprograms/const_eval_example.c b/testprograms/const_eval_example.c index 66c21f437..dc0bce07e 100644 --- a/testprograms/const_eval_example.c +++ b/testprograms/const_eval_example.c @@ -1,10 +1,14 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -* All rights reserved. -* -* Authors: Christian Schaefer, Goetz Lindenmaier -* -* testprogram -*/ +/* + * Project: libFIRM + * File name: testprograms/const_eval_example.c + * Purpose: Test constant evaluation. + * Author: Christian Schaefer, 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. + */ #include # include @@ -57,8 +61,8 @@ main(void) irg = new_ir_graph (ent, 4); - a = new_Const (mode_Is, tarval_from_long (mode_Is, 7)); - b = new_Const (mode_Is, tarval_from_long (mode_Is, 5)); + a = new_Const (mode_Is, new_tarval_from_long (7, mode_Is)); + b = new_Const (mode_Is, new_tarval_from_long (5, mode_Is)); x = new_Jmp (); mature_block (get_irg_current_block(irg)); @@ -70,11 +74,11 @@ main(void) c = new_Proj(c, mode_Is, 2); */ - c = new_Add (new_Const (mode_Is, tarval_from_long (mode_Is, 5)), - new_Const (mode_Is, tarval_from_long (mode_Is, 7)), + c = new_Add (new_Const (mode_Is, new_tarval_from_long (5, mode_Is)), + new_Const (mode_Is, new_tarval_from_long (7, mode_Is)), mode_Is); - d = new_Add (new_Const (mode_Is, tarval_from_long (mode_Is, 7)), - new_Const (mode_Is, tarval_from_long (mode_Is, 5)), + d = new_Add (new_Const (mode_Is, new_tarval_from_long (7, mode_Is)), + new_Const (mode_Is, new_tarval_from_long (5, mode_Is)), mode_Is); {