堆栈链表删除错误，无法遍历堆栈

一直都是Segmentation fault错误，靠我自己这点水平改不好了。估计别的部分也很有问题，跑不了

#define ERROR 1
#define OK 0 

typedef struct Slinklist//链表实现堆栈
{
    int data;
    struct Slinklist *next;
}Slinklist,*Slist;

int Create(Slist *S){//初始化创建链表堆栈
    (*S) = (Slist)malloc(sizeof(Slinklist));
    (*S)->data = 0;
    (*S)->next = NULL;
    printf("新建成功\n");
    return OK;
}

int Push(Slist *S,int insert){//加入元素
    Slinklist *p = (Slinklist*)malloc(sizeof(Slinklist));
    p->data = insert;
    p->next = (*S)->next;
    printf("插入成功\n");
    return OK;
}

int Pop(Slist *S){//删除栈顶元素
    Slinklist *first = (*S)->next;
    (*S)->next  = first->next;
    free(first);
    printf("删除成功\n");
    return 0;
}

int Show(Slist *S){//遍历
    while((*S)->next != NULL){
        printf("%d,",(*S)->data);
        (*S) = (*S)->next;
    }
}

int main(){
    Slist S;
    Create(&S);
    Push(&S,1);
    Push(&S,2);
    Push(&S,3);
    Show(&S);
    Pop(&S);
    Show(&S);
    system("pause");
}

老样子，编译可以过，但是pop方法调用时一直显示Segmentation fault

int Push(Slist *S,int insert){//加入元素
Slinklist * p = (Slinklist * )malloc(sizeof(Slinklist));
p->data = insert;
p->next = (*S)->next;
printf("插入成功\n");
return OK;
}
光这样是不行的，因为p没有与S连接
printf之前，再加一句，(*S)->next = p;这样就连接起来了
============
show函数也不行，修改如下：
int Show(Slist * S){//遍历
Slist p = ( * S)->next;
while(p != NULL){
printf("%d,",p->data);
p= p->next;
}
}