Error (file 'test.m', line 7): 'class' expected after 'public' keyword.
public crap
          ^
Preprocessing failed: 1 errors, 0 warnings.

Error (file 'test.m', line 7): unexpected 'final' keyword after 'public' keyword. 'final' was already specified in this class declaration.
public final abstract final class int
                          ^
Preprocessing failed: 1 errors, 0 warnings.

struct foo {int toto};
struct foo *global;
void f(struct foo *bar)
{
  global=bar;
}
void g(void)
{
  global->toto=123;
}
void h(void)
{
  struct foo baz;
  f(&baz);
  g();
}

struct ObjList {
void **l; //listes des objets
void (**fcts) (void *obj); // liste des fonctions de finalisation
size_t maxSize; //Taille maximale de la liste dynamique
void **l_top; //Pointe sur le dernier objet.
void **f_top; //Pointe sur la dernière fonction.
};

struct ErrStk {
void ***tries; // Pointeurs vers la liste des objets
size_t maxSize; //Taille maximale de la liste dynamique
void ***top; //Pointe sur le dessus de la pile tries
};

struct ObjList objList;
struct ErrStk errStk;

/* ... */

//initialisation

objList.l = malloc(TAILLE_INITIALE * sizeof(void *));
objList.l_top = objList.l;
objList.fcts = malloc(TAILLE_INITIALE * sizeof(void (*) (void*)));
objList.f_top = objList.fcts;
objList.maxSize = TAILLE_INITIALE;
errStk.tries = malloc(TAILLE_INITIALE * sizeof(void **));
errStk.maxSize = TAILLE_INITIALE;
errStk.top = errStk.tries;

/* ... */

void add_localObject(void *obj, void (*fct) (void *obj)) {
  /*routine de l'allocation dynamique*/
  *(objList.l_top++) = obj;
  *(objList.f_top++) = fct;
}

void remove_localObject() {
  (*(--objList.f_top))(--objList.l_top);//utiliser la fonction pour finaliser le dernier objet dans la liste
}

void stack_try() {
  /*routine de l'allocation dynamique*/

  *(errStk.top++) = objList.l_top;
}

void unstack_try() {
  void **p = *(--errStk.l);

  while (objList.l_top != p) {
    remove_localObject();
  }
}

void prem() {
 Object a;
  TRY
    /* code */
    deus();
    /* code */
  ONERR
   /*code*/
  ENDTRY
}

void deus() {

  TRY
    /* code */
    tres();
    /* code */
  FINALLY
   /*code*/
  ENDTRY

tres();
}

void tres() {
 Object o1, o2;

  Er_throw(1);
}

void prem() {
  Object a;
  add_local_object(&a, desctructeur_de_a);

  TRY
    stack_try();
    /* code */
    deus();
    /* code */
  ONERR
  unstack_try();
   /*code*/
  ENDTRY

  remove_localObject();
}

void deus() {

  TRY
    stack_try();
    /* code */
    tres();
    /* code */
   FINALLY
   /*code*/
  unstack_try();
  ENDTRY

  tres();
}

void tres() {
 Object o1, o2;
  add_local_object(&o1, desctructeur_de_o1);
  add_local_object(&o1, desctructeur_de_o1);

  Er_throw(1);


  remove_localObject();
  remove_localObject();
}