github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-03 06:49:22 +00:00
Code Issues Projects Releases Wiki Activity

Minor formatting revisions.

Browse Source
This commit is contained in:
Nick Briggs
2021-02-11 23:35:38 -08:00
parent 2a71f330b5
commit 0d7dcc24bd
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/ldsout.c
View File

@@ -2,11 +2,11 @@
*/ */
/************************************************************************/ /************************************************************************/
/* */ /* */
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1998 Venue. */ /* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1998 Venue. */
/* All Rights Reserved. */ /* All Rights Reserved. */
/* Manufactured in the United States of America. */ /* Manufactured in the United States of America. */
/* */ /* */
/************************************************************************/ /************************************************************************/
#include "version.h" #include "version.h"
@@ -40,16 +40,15 @@
#define MAX_EXPLICIT_SYSOUTSIZE 256 /* Max possible sysout size is 64Mb */ #define MAX_EXPLICIT_SYSOUTSIZE 256 /* Max possible sysout size is 64Mb */
#define MBYTE 0x100000 /* 1 Mbyte */ #define MBYTE 0x100000 /* 1 Mbyte */
/* Flag for indication whether process space /* Flag for indication whether process space is going to expand or not */
is going to expand or not */
int Storage_expanded; /* T or NIL */ int Storage_expanded; /* T or NIL */
/************************************************************************/ /************************************************************************/
/* */ /* */
/* s y s o u t _ l o a d e r */ /* s y s o u t _ l o a d e r */
/* */ /* */
/* Load the sysout file into memory. */ /* Load the sysout file into memory. */
/* */ /* */
/************************************************************************/ /************************************************************************/
#if defined(DOS) || defined(XWINDOW) #if defined(DOS) || defined(XWINDOW)
#include "devif.h" #include "devif.h"
@@ -58,8 +57,7 @@ extern DspInterface currentdsp;
#endif /* DOS || XWINDOW */ #endif /* DOS || XWINDOW */
/* sys_size is sysout size in megabytes */ /* sys_size is sysout size in megabytes */
int sysout_loader(const char * sysout_file_name, int sys_size) int sysout_loader(const char *sysout_file_name, int sys_size) {
{
int sysout; /* SysoutFile descriptor */ int sysout; /* SysoutFile descriptor */
IFPAGE ifpage; /* IFPAGE */ IFPAGE ifpage; /* IFPAGE */
@@ -138,8 +136,9 @@ int sysout_loader(const char * sysout_file_name, int sys_size)
exit(-1); exit(-1);
} }
#endif /* NOVERSION */ #endif /* NOVERSION */
if (sys_size == 0) /* use default or the previous one */
{ /* use default or the previous one */
if (sys_size == 0) {
if (ifpage.process_size == 0) /* Pure LISP.SYSOUT */ if (ifpage.process_size == 0) /* Pure LISP.SYSOUT */
sys_size = DEFAULT_MAX_SYSOUTSIZE; /* default for pure SYSOUT */ sys_size = DEFAULT_MAX_SYSOUTSIZE; /* default for pure SYSOUT */
else else
@@ -221,7 +220,7 @@ int sysout_loader(const char * sysout_file_name, int sys_size)
if ((stat_buf.st_size & (BYTESPER_PAGE - 1)) != 0) if ((stat_buf.st_size & (BYTESPER_PAGE - 1)) != 0)
printf("CAUTION::not an integral number of pages. sysout & 0x1ff = 0x%x\n", printf("CAUTION::not an integral number of pages. sysout & 0x1ff = 0x%x\n",
(int)(stat_buf.st_size & (BYTESPER_PAGE - 1))); (int)(stat_buf.st_size & (BYTESPER_PAGE - 1)));
if (ifpage.nactivepages != (sysout_size / 2)) { if (ifpage.nactivepages != (sysout_size / 2)) {
printf("sysout_loader:IFPAGE says sysout size is %d\n", ifpage.nactivepages); printf("sysout_loader:IFPAGE says sysout size is %d\n", ifpage.nactivepages);
@@ -244,7 +243,7 @@ int sysout_loader(const char * sysout_file_name, int sys_size)
exit(-1); exit(-1);
} }
/* read FPTOVP */ /* read FPTOVP */
#ifdef BIGVM #ifdef BIGVM
/* fptovp is now in cells, not words */ /* fptovp is now in cells, not words */
@@ -256,7 +255,8 @@ int sysout_loader(const char * sysout_file_name, int sys_size)
} }
#ifdef BYTESWAP #ifdef BYTESWAP
word_swap_page((unsigned short *)fptovp, (sysout_size / 2) + 1); /* So space to swap is twice as big, too. */ /* So space to swap is twice as big, too. */
word_swap_page((unsigned short *)fptovp, (sysout_size / 2) + 1);
#endif /* BYTESWAP */ #endif /* BYTESWAP */
#else #else