linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cleaned up myc library (M.Z.)

Browse Source
This commit is contained in:
cvs
2003-04-08 13:30:45 +00:00
parent 5ebd84ddc7
commit bfb09e4593
18 changed files with 58 additions and 613 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tecs/myc_err.c
View File

@@ -2,7 +2,7 @@
#include <string.h>
#include <stdlib.h>
#include "sys_util.h"
#include "myc_fortran.h"
#include "myc_str.h"
#include "myc_err.h"
@@ -15,7 +15,7 @@ static int stack_empty=1;
int ErrCode;
char *ErrMessage=NULL;
void (*outrtn)()=NULL;
void (*outrtn)(void *, char *)=NULL;
void *outarg;
void ErrTxt(char *text, int systemError)
@@ -85,7 +85,7 @@ void ErrShort(char *msg) {
outrtn(outarg, msg);
}
void ErrSetOutRtn(void (*rtn)(), void *arg) {
void ErrSetOutRtn(void (*rtn)(void *, char *), void *arg) {
outrtn=rtn;
outarg=arg;
}
@@ -125,7 +125,7 @@ void F_FUN(err_msg)(F_CHAR(text), int text_len) {
ErrMsg(buf);
}
void F_FUN(err_set_outrtn)(void (*rtn)(), void *arg) {
void F_FUN(err_set_outrtn)(void (*rtn)(void *, char*), void *arg) {
ErrSetOutRtn(rtn, arg);
}