github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 08:33:48 +00:00
Code Issues Projects Releases Wiki Activity

Remove #ifdef DEMO. (#116)

Browse Source
This commit is contained in:
Bruce Mitchener 2020-12-23 00:27:59 +07:00 committed by GitHub
parent 254550d111
commit d3cb239091
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/dsk.c
View File

@ -2030,10 +2030,6 @@ sklp2:
return (NIL);
}
#ifdef DEMO
/* Do nothing if this is a demo emulator--not allowed to write files. */
#else
/* OK to write the page. */
#ifdef BYTESWAP
@ -2055,8 +2051,6 @@ wlp:
word_swap_page((DLword *)bufp, (count + 3) >> 2);
#endif /* BYTESWAP */
#endif /* DEMO */
return (ATOM_T);
}

3
src/main.c
View File

@ -743,9 +743,6 @@ void print_info_lines() {
#else
printf("Creation date: %s", ctime(&MDate));
#endif
#ifdef DEMO
printf("Demonstration emulator, not for commercial use\n");
#endif /* DEMO */
#ifdef LPSOLVE
printf("Contains lp_solve LP solver.\n");
#endif /* LPSOLVE */

5
src/vmemsave.c
View File

@ -160,10 +160,6 @@ LispPTR vmem_save0(LispPTR *args)
Lisp_errno = &Dummy_errno;
#ifdef DEMO
return FILECANNOTOPEN;
#else
if ((args[0] != NIL) && lispstringP(args[0])) {
/* Check of lispstringP is safer for LispStringToCString */
LispStringToCString(args[0], pathname, MAXPATHLEN);
@ -203,7 +199,6 @@ LispPTR vmem_save0(LispPTR *args)
}
return (vmem_save(sysout));
}
#endif /* DEMO */
}
/************************************************************************/