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

Subversion Repositories openrisc

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

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

#include <stdio.h>
 
#ifndef GC_DEBUG
# define GC_DEBUG
#endif
 
#include "gc.h"
 
struct treenode {
    struct treenode *x;
    struct treenode *y;
} * root[10];
 
struct treenode * libsrl_mktree(int i)
{
  struct treenode * r = GC_MALLOC(sizeof(struct treenode));
  if (0 == i) return 0;
  if (1 == i) r = GC_MALLOC_ATOMIC(sizeof(struct treenode));
  r -> x = libsrl_mktree(i-1);
  r -> y = libsrl_mktree(i-1);
  return r;
}
 
void * libsrl_init(void)
{
  GC_INIT();
  return GC_MALLOC(sizeof(struct treenode));
}
 
void * libsrl_collect (void)
{
  GC_gcollect();
}
 

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.