OpenXM/src/kan96xx/Kan/stackmachine.c - diff

Return to stackmachine.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.31, 2005/06/16 05:07:23

version 1.33, 2005/07/18 10:55:16

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.30 2005/06/09 04:47:16 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.32 2005/07/03 11:08:54 ohara Exp $ */

/* stackmachin.c */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "datatype.h"

#include "stackm.h"

#include "extern.h"

Line 87 int OXlockSaved = 0;

Line 89 int OXlockSaved = 0;

char *UD_str;

int UD_attr;

char *MsgStackTrace = NULL;

char *MsgSourceTrace = NULL;

struct object * newObject()

{

struct object *r;

Line 1109 errorStackmachine(str)

Line 1114 errorStackmachine(str)

extern int RestrictedMode, RestrictedMode_saved;

RestrictedMode = RestrictedMode_saved;

cancelAlarm();

MsgStackTrace = NULL;

MsgSourceTrace = NULL;

if (ErrorMessageMode == 1 || ErrorMessageMode == 2) {

pushErrorStack(KnewErrorPacket(SerialCurrent,-1,str));

}

Line 1142 errorStackmachine(str)

Line 1149 errorStackmachine(str)

fprintf(stderr,str);

}

fprintf(stderr,"\n");

(void) traceShowStack();

MsgStackTrace = traceShowStack();

MsgSourceTrace = traceShowScannerBuf();

}

traceClearStack();

if (GotoP) {