github.com/PDP-10.klh10
1
0
Fork 0
mirror of https://github.com/PDP-10/klh10.git synced 2026-01-11 23:52:54 +00:00
Code Issues Releases Wiki Activity

Issue #7: create a branch for Rich Alderson's changes

Browse Source 
as taken from http://www.panix.com/~alderson/klh10-2.0h_for_OSX.6.8/ .
This commit is contained in:
Olaf Seibert 2016-11-18 21:14:56 +01:00
parent 58b59dbaa1
commit 4962c3accb
7 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Makefile.mk
View File

@ -177,7 +177,7 @@ OFILES_KS = klh10.o prmstr.o fecmd.o feload.o wfio.o osdsup.o \
vmtape.o dvtm03.o \
dvlhdh.o dvdz11.o dvch11.o \
dpsup.o \
dvhost.o dvlites.o
dvhost.o #dvlites.o is NOT needed for the KS-10
# Device Processes (DPs) built concurrently with KN10

4
src/Mk-fbx86.mk
View File

@ -27,7 +27,7 @@ CFLAGS_LINT = -ansi -pedantic -Wall -Wshadow \
-Wmissing-declarations -Wredundant-decls
# Source definitions
CENVFLAGS = -DCENV_CPU_I386=1 -DCENV_SYS_FREEBSD=1
CENVFLAGS = -DCENV_CPU_I686=1 -DCENV_SYS_FREEBSD=1
# Any target with no customized rule here is simply passed on to the
# standard Makefile. If no target is specified, "usage" is passed on
@ -39,7 +39,7 @@ usage:
install:
@make -f $(SRC)/Makefile.mk install-unix
$(.TARGETS):
kn10-ks kn10-kl base-ks-its base-ks base-kl lint-ks-its lint-ks lint-kl port-ks kl0i-sync kl0i-rtmopt tapedd vdkfmt wxtest wfconv udlconv uexbconv enaddr dlmunch clean:
@make -f $(SRC)/Makefile.mk $@ \
"SRC=$(SRC)" \
"CFLAGS=$(CFLAGS)" \

2
src/klh10.c
View File

@ -2759,6 +2759,7 @@ fc_dump(struct cmd_s *cm)
}
#if KLH10_DEV_LITES
/* FC_LIGHTS - Sets console lights I/O base address
** Currently only allow LPT1 and LPT2 ports on PC.
*/
@ -2784,6 +2785,7 @@ fc_lights(struct cmd_s *cm)
}
printf("?Bad address\n");
}
#endif
/* Instruction printing routines */

3
src/kn10def.h
View File

@ -235,7 +235,8 @@ typedef int pcinc_t; /* Type of all instruction routines */
#if KLH10_EXTADR
# define PC_ADDXCT(x) { register pcinc_t i__ = (x); if (i__) PC_ADD(i__); }
#else
# define PC_ADDXCT(x) (cpu.mr_PC += (x)) /* For now; fix up later? */
/* # define PC_ADDXCT(x) (cpu.mr_PC += (x)) /* For now; fix up later? */
# define PC_ADDXCT(x) { register pcinc_t i__ = (x); cpu.mr_PC += i__; } /* gcc4 fix by Roch Kusiak */
#endif
/* Macros for putting PC into a word.

4
src/kn10ops.c
View File

@ -759,7 +759,7 @@ dw10_t op10ashc(register dw10_t d,
** must be done to the argument prior to the call!
*/
static dw10_t
x_ashc(register dw10_t d,
x_ashc(/*register*/ dw10_t d,
register int i)
{
#endif /* IFFLAGS */
@ -3238,7 +3238,7 @@ static int qdivstep(qw10_t *aq,
register dw10_t d,
register int nmagbits)
{
register qw10_t qw;
/*register*/ qw10_t qw;
dw10_t quot;
register int qbit;

5
src/kn10pag.c
View File

@ -32,7 +32,9 @@
#include "osdsup.h"
#include "kn10def.h"
#include "kn10ops.h"
#if KLH10_DEV_LITES
#include "dvlites.h"
#endif
#ifdef RCSID
RCSID(kn10pag_c,"$Id: kn10pag.c,v 2.4 2002/04/26 05:22:21 klh Exp $")
@ -1502,7 +1504,10 @@ ioinsdef(io_do_pi)
register w10_t w;
w = vm_read(e); /* get lights data */
#if KLH10_DEV_LITES
lights_pgmlites(LHGET(w), RHGET(w));
#endif
return PCINC_1;
}

2
src/osdsup.c
View File

@ -1613,7 +1613,7 @@ os_mmcreate(register size_t memsiz,
** Note shmget will lose grossly if on a system where its size arg
** (defined as a u_int) is less than 32 bits!
*/
if ((shmid = shmget(IPC_PRIVATE, (u_int)memsiz, 0600)) == -1) {
if ((shmid = shmget(IPC_PRIVATE, (u_int)memsiz, IPC_CREAT+IPC_PRIVATE+IPC_R+IPC_W)) == -1) {
fprintf(stderr, "[os_mmcreate: shmget failed for %ld bytes - %s]\n",
(long)memsiz, os_strerror(errno));
return FALSE;