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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [boehm-gc/] [testsuite/] [boehm-gc.lib/] [staticrootstest.c] - Rev 721

Compare with Previous | Blame | View Log

/* { dg-add-shlib "staticrootslib.c" } */
 
#include <stdio.h>
 
#ifndef GC_DEBUG
# define GC_DEBUG
#endif
 
#include "gc.h"
#include "gc_backptr.h"
 
struct treenode {
    struct treenode *x;
    struct treenode *y;
} * root[10];
 
static char *staticroot = 0;
 
extern struct treenode * libsrl_mktree(int i);
extern void * libsrl_init(void);
extern void * libsrl_collect (void);
 
int main(void)
{
  int i;
  staticroot = libsrl_init();
  for (i = 0; i < sizeof(struct treenode); ++i) {
    staticroot[i] = 0x42;
  }
  libsrl_collect();
  for (i = 0; i < 10; ++i) {
    root[i] = libsrl_mktree(12);
    libsrl_collect();
  }
  for (i = 0; i < sizeof(struct treenode); ++i) {
    if (staticroot[i] != 0x42)
      return -1;
  }
  for (i = 0; i < 10; ++i) {
    root[i] = libsrl_mktree(12);
    libsrl_collect();
  }
  for (i = 0; i < sizeof(struct treenode); ++i) {
    if (staticroot[i] != 0x42)
      return -1;
  }
  return 0;
}
 

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.