guile-gcc/tests/cgraph.c

/* Guile-GCC
   Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>

   This file is part of Guile-GCC.

   Guile-GCC is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   Guile-GCC is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with Guile-GCC.  If not, see <http://www.gnu.org/licenses/>.  */

/* (instructions compile (cflags "-fplugin-arg-guile-load=cgraph.scm")) */

#include <stdlib.h>
#include <stdio.h>

static int
fibo (int x)				  /* (note "3 callers, 2 callees") */
{
  if (x <= 1)
    return x;
  else
    return fibo (x - 1)				  /* (note "call to fibo") */
      + fibo (x - 2);				  /* (note "call to fibo") */
}

static int
foo (int x)				   /* (note "1 callers, 1 callee") */
{
  return fibo (x + 1);				  /* (note "call to fibo") */
}

int
bar (int x)				   /* (note "0 callers, 1 callee") */
{
  return foo (x - 1);				   /* (note "call to foo") */
}