source/texk/web2c/luatexdir/luaprofiler/stack.c

   1 /*
   2 ** LuaProfiler
   3 ** Copyright Kepler Project 2005-2007 (http://www.keplerproject.org/luaprofiler)
   4 ** $Id: stack.c,v 1.4 2007/08/22 19:23:53 carregal Exp $
   5 */
   6
   7 /*****************************************************************************
   8 stack.c:
   9    Simple stack manipulation
  10 *****************************************************************************/
  11
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include "stack.h"
  15
  16 void lprofS_push(lprofS_STACK *p, lprofS_STACK_RECORD r) {
  17 lprofS_STACK q;
  18         q=(lprofS_STACK)malloc(sizeof(lprofS_STACK_RECORD));
  19         *q=r;
  20         q->next=*p;
  21         *p=q;
  22 }
  23
  24 lprofS_STACK_RECORD lprofS_pop(lprofS_STACK *p) {
  25 lprofS_STACK_RECORD r;
  26 lprofS_STACK q;
  27
  28         r=**p;
  29         q=*p;
  30         *p=(*p)->next;
  31         free(q);
  32         return r;
  33 }