X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=testprograms%2Fcall_str_example.c;h=604a1d7e6d502056fd0ef671bf23423f6897c607;hb=b860150027a71b0812b6c9f697ecce0464963419;hp=ff4f0badde78c67ef946db23bcf2c673f8325967;hpb=8a828c064c24643f30d68b67808a62e8a7ae1d80;p=libfirm

diff --git a/testprograms/call_str_example.c b/testprograms/call_str_example.c
index ff4f0badd..604a1d7e6 100644
--- a/testprograms/call_str_example.c
+++ b/testprograms/call_str_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/call_str_example.c
+ * Purpose:     Shows representation of constant string.
+ * 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.
+ */
 
 # include <string.h>
 # include <stdio.h>
@@ -14,14 +18,16 @@
 # include "firm.h"
 
 /**
-*  This file constructs the ir for the following pseudo-program:
-*
-*  void f(char *);
-*
-*  main() {
-*    f("Hello world !");
-*  }
-**/
+ *  This file constructs the ir for the following pseudo-program:
+ *
+ *  void f(char *);
+ *
+ *  void CALL_STR_EXAMPLE_main () {
+ *      f("Hello World\n");
+ *  }
+ *
+ *  This program demonstrates how to represent string constants.
+ */
 
 int main(int argc, char **argv)
 {
@@ -29,19 +35,33 @@ int main(int argc, char **argv)
   type     *owner;       /* the class in which this method is defined */
   type     *proc_main;   /* type information for the method main */
   type     *proc_called; /* type information for called method f */
-  type     *string_ptr;  /* type for pointers to strings. */
+  type     *U8, *U8array, *string_ptr;  /* type for pointers to strings. */
   entity   *ent;         /* represents this method as entity of owner */
-  ir_node  *x, *const_str, *proc_ptr, *call;
+  entity   *const_str;   /* represents a constant string. */
+  char     *str = "Hello World\n"; /* The constant string. */
+  ir_node  *x, *str_addr, *proc_ptr, *call;
+  int i;
 
   printf("\nCreating an IR graph: CALL_STR_EXAMPLE...\n");
 
   /* init library */
-  init_firm ();
+  init_firm (NULL);
+
+  /* An unsinged 8 bit type */
+  U8 = new_type_primitive (id_from_str("char", 4), mode_Bu);
+  /* An array containing unsigned 8 bit elements. */
+  U8array = new_type_array (id_from_str ("char_arr", 8), 1, U8);
+  string_ptr = new_type_pointer (id_from_str ("ptr_to_string", 13), U8array);
+
+  /* Make a global entity that represents the constant String. */
+  const_str = new_entity(get_glob_type(), new_id_from_str("constStr"), U8array);
+  set_entity_variability(const_str, variability_constant);
+  for (i = 0; i < strlen(str); i++) {
+    tarval *val = new_tarval_from_long(str[i], mode_Bu);
+    ir_node *con =  new_Const(mode_Bu, val);
+    add_compound_ent_value(const_str, con, get_array_element_entity(U8array));
+  }
 
-  string_ptr = new_type_pointer (
-		 id_from_str ("ptr_to_string", 13),
-		 new_type_array (id_from_str ("char_arr", 8), 1,
-			         new_type_primitive (id_from_str("char", 4), mode_Bu)));
   /* FIRM was designed for oo languages where all methods belong to a class.
    * For imperative languages like C we view a program as a large class containing
    * all functions of the program as methods in this class.  This class is
@@ -65,6 +85,7 @@ int main(int argc, char **argv)
                               F_NRARGS, F_NRES);
   set_method_param_type(proc_called, 0, string_ptr);
 
+
   /* Make the entity for main needed for a correct  ir_graph.  */
 #define ENTITYNAME "CALL_STR_EXAMPLE_main"
   ent = new_entity (owner, id_from_str (ENTITYNAME, strlen(ENTITYNAME)),
@@ -77,30 +98,25 @@ int main(int argc, char **argv)
 #define NUM_OF_LOCAL_VARS 0
   irg = new_ir_graph (ent, NUM_OF_LOCAL_VARS);
 
-  /* the string is entered in the constant table. const_str is a pointer to the string */
-  const_str = new_Const (mode_P, tarval_P_from_str ("Hello world!"));
+  /* get the pointer to the string constant */
+  str_addr = new_Const(mode_P, new_tarval_from_entity(const_str, mode_P));
 
   /* get the pointer to the procedure from the class type */
-  /* this is how a pointer to be fixed by the linker is represented after
-     lowering a Sel node. */
-#define FUNCTIONNAME "f"
-  proc_ptr = new_SymConst ((type_or_id_p)id_from_str (FUNCTIONNAME, strlen(FUNCTIONNAME)),
+  /* this is how a pointer to be fixed by the linker is represented. */
+  proc_ptr = new_SymConst ((type_or_id_p)id_from_str (F_METHODNAME, strlen(F_METHODNAME)),
 			   linkage_ptr_info);
 
   /* call procedure set_a, first built array with parameters */
   {
     ir_node *in[1];
-    in[0] = const_str;
+    in[0] = str_addr;
     call = new_Call(get_store(), proc_ptr, 1, in, proc_called);
   }
   /* make the possible changes by the called method to memory visible */
   set_store(new_Proj(call, mode_M, 0));
 
   /* Make the return node returning the memory. */
-  {
-    ir_node *in[0]; /* this is the array containing the return parameters */
-    x = new_Return (get_store(), 0, in);
-  }
+  x = new_Return (get_store(), 0, NULL);
   /* Now we generated all instructions for this block and all its predecessor blocks
    * so we can mature it. */
   mature_block (get_irg_current_block(irg));
@@ -121,6 +137,7 @@ int main(int argc, char **argv)
 
   printf("Done building the graph.  Dumping it.\n");
   dump_ir_block_graph (irg);
+  dump_all_types();
   printf("Use xvcg to view this graph:\n");
   printf("/ben/goetz/bin/xvcg GRAPHNAME\n\n");