github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-01 06:12:31 +00:00
Code Issues Projects Releases Wiki Activity

Remove RISCOS platform support. (#39)

Browse Source
This commit is contained in:
Bruce Mitchener
2020-12-14 08:38:57 +07:00
committed by GitHub
parent 7313de4274
commit 7119613aee
12 changed files with 7 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/unixcomm.c
View File

@@ -936,16 +936,13 @@ LispPTR Unix_handlecomm(LispPTR *args) {
case 10: /* Change window */
{
int rows, cols, pgrp, pty;
#if !defined(RISCOS)
struct winsize w;
#endif /* !RISCOS */
/* Get job #, rows, columns */
N_GETNUMBER(args[1], slot, bad);
N_GETNUMBER(args[2], rows, bad);
N_GETNUMBER(args[3], cols, bad);
#if !defined(RISCOS)
if (valid_slot(slot) && (UJ[slot].type == UJSHELL) && (UJ[slot].status == -1)) {
w.ws_row = rows;
w.ws_col = cols;
@@ -965,12 +962,11 @@ LispPTR Unix_handlecomm(LispPTR *args) {
(kill(-pgrp, SIGWINCH) >= 0))
#else
(killpg(pgrp, SIGWINCH) >= 0))
#endif /* RISCOS */
#endif /* SYSVONLY */
return (ATOM_T);
return (GetSmallp(errno));
}
#endif /* !RISCOS */
return (NIL);
}