fix skip/1 and debugging stuff

formatting
This commit is contained in:
Vitor Santos Costa
2017-11-18 00:18:42 +00:00
parent 746a4b4ef8
commit bf78d70d66
10 changed files with 1694 additions and 1668 deletions

View File

@@ -138,7 +138,7 @@ static inline Atom SearchAtom(const unsigned char *p, Atom a) {
/* search atom in chain */
while (a != NIL) {
ae = RepAtom(a);
if (strcmp((char *)ae->StrOfAE, (const char *)p) == 0) {
if (strcmp(ae->UStrOfAE, p) == 0) {
return (a);
}
a = ae->NextOfAE;

View File

@@ -201,7 +201,7 @@ static Int LoadForeign(StringList ofiles, StringList libs, char *proc_name,
if (LOCAL_ErrorMessage == NULL) {
LOCAL_ErrorMessage = malloc(MAX_ERROR_MSG_SIZE);
strcpy(LOCAL_ErrorMessage,
"%% Trying to open unexisting file in LoadForeign");
"%% Trying to open non-existing file in LoadForeign");
}
}
#ifdef __osf__

3258
C/stack.c

File diff suppressed because it is too large Load Diff