OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [s390/] [pr42224.c] - Rev 325

Go to most recent revision | Compare with Previous | Blame | View Log

 
/* { dg-do compile } */
/* { dg-options "-O0" } */
 
typedef char* __char_ptr32 __attribute__ (( mode (SI) ));
typedef __char_ptr32 *__char_ptr_char_ptr32 __attribute__ ((mode (SI)));
 
void to_ptr32 (int x)
{
  __char_ptr32 ptr = (__char_ptr32) x;
}
 
void to_int (__char_ptr32 ptr)
{
  int x = (int) ptr;
}
 
__char_ptr_char_ptr32
to_ptr32_ptr32 (char **ptr64)
{
  int argc;
  __char_ptr_char_ptr32 short_argv;
 
  for (argc=0; ptr64[argc]; argc++);
 
  short_argv = (__char_ptr_char_ptr32) malloc32
    (sizeof (__char_ptr32) * (argc + 1));
 
  for (argc=0; ptr64[argc]; argc++)
    short_argv[argc] = (__char_ptr32) strdup32 (ptr64[argc]);
 
  short_argv[argc] = (__char_ptr32) 0;
  return short_argv;
 
}
 
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.