tests/test_ni_local_ref.nit.c

   1 /* This file is part of NIT ( http://www.nitlanguage.org ).
   2  *
   3  * Copyright 2012 Alexis Laferrière <alexis.laf@xymus.net>
   4  *
   5  * This file is free software, which comes along with NIT.  This software is
   6  * distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
   7  * without  even  the implied warranty of  MERCHANTABILITY or  FITNESS FOR A
   8  * PARTICULAR PURPOSE.  You can modify it is you want,  provided this header
   9  * is kept unaltered, and a notification of the changes is added.
  10  * You  are  allowed  to  redistribute it and sell it, alone or is a part of
  11  * another product.
  12  */
  13
  14 #include "test_ni_local_ref.nit.h"
  15
  16 ToBePreserved global_tbp = NULL;
  17
  18 /*
  19 C implementation of test_ni_references::A::run
  20
  21 Imported methods signatures:
  22         void ToBePreserved_output( ToBePreserved recv ) for test_ni_references::ToBePreserved::(kernel::Object::output)
  23 */
  24 void A_run___impl( A recv, ToBePreserved a, ToBePreserved b, ToBePreserved c, ToBePreserved d )
  25 {
  26         ToBePreserved_output( a );
  27         ToBePreserved_output( b );
  28         ToBePreserved_output( c );
  29         ToBePreserved_output( d );
  30
  31         /* force call to GC */
  32         A_launch_gc( recv );
  33
  34         ToBePreserved_output( a );
  35         ToBePreserved_output( b );
  36         ToBePreserved_output( c );
  37         ToBePreserved_output( d );
  38 }
  39
  40 void A_run2___impl( A recv, ToBePreserved a, ToBePreserved b, ToBePreserved c, ToBePreserved d )
  41 {
  42         ToBePreserved_output( a );
  43         ToBePreserved_output( b );
  44         ToBePreserved_output( c );
  45         ToBePreserved_output( d );
  46
  47         /* force call to GC */
  48         A_launch_gc( recv );
  49
  50         /* go 1 deeper level */
  51         A_run( recv, a, b, c, d );
  52
  53         /* force call to GC */
  54         A_launch_gc( recv );
  55
  56         ToBePreserved_output( a );
  57         ToBePreserved_output( b );
  58         ToBePreserved_output( c );
  59         ToBePreserved_output( d );
  60 }
  61