jw@sics.se (Johan Widen) (10/10/87)
When I compiled vt100 with the Lattice compiler the following bug was
reported: WaitIO was called with a structure argument.
I have also added a few extern declarations. These are needed to get vt100
through blink.
*** script.c Wed Oct 7 17:15:30 1987
--- script.c.new Thu Oct 8 19:34:52 1987
***************
*** 119,125 ****
/* NB: The structures referenced in the structure may be found in
** init.c */
! struct filecmd {
char ac; /* ASCII Capture */
char as; /* ASCII Send */
char xs; /* Xmodem Send */
--- 119,125 ----
/* NB: The structures referenced in the structure may be found in
** init.c */
! extern struct filecmd {
char ac; /* ASCII Capture */
char as; /* ASCII Send */
char xs; /* Xmodem Send */
***************
*** 131,137 ****
char nl;
} filecmd_chars;
! struct baducmd {
char b03; /* 0300 */
char b12; /* 1200 */
char b24; /* 2400 */
--- 131,137 ----
char nl;
} filecmd_chars;
! extern struct baducmd {
char b03; /* 0300 */
char b12; /* 1200 */
char b24; /* 2400 */
***************
*** 140,146 ****
char bnl;
} baudcmd_chars;
! struct parcmd {
char no; /* NOne */
char ma; /* MArk */
char sp; /* SPace */
--- 140,146 ----
char bnl;
} baudcmd_chars;
! extern struct parcmd {
char no; /* NOne */
char ma; /* MArk */
char sp; /* SPace */
***************
*** 149,155 ****
char nl;
} parcmd_chars;
! struct modcmd {
char im; /* IMage */
char tx; /* TeXt */
char cn; /* CoNvert */
--- 149,155 ----
char nl;
} parcmd_chars;
! extern struct modcmd {
char im; /* IMage */
char tx; /* TeXt */
char cn; /* CoNvert */
***************
*** 364,370 ****
if (*p != 's' && script_wait == WAIT_TIMER) {
AbortIO((char *) &Script_Timer);
Wait (1L << Script_Timer_Port->mp_SigBit);
! WaitIO(Script_Timer);
/* script will proceed after on command */
script_wait = FALSE;
--- 364,370 ----
if (*p != 's' && script_wait == WAIT_TIMER) {
AbortIO((char *) &Script_Timer);
Wait (1L << Script_Timer_Port->mp_SigBit);
! WaitIO(&Script_Timer);
/* script will proceed after on command */
script_wait = FALSE;
***************
*** 415,421 ****
if (script_wait == WAIT_TIMER) { /* timer not done yet */
AbortIO((char *) &Script_Timer); /* so abort it */
Wait (1L << Script_Timer_Port->mp_SigBit); /* Wait for the sig */
! WaitIO(Script_Timer); /* Get my reply back */
}
InfoMsg1Line("Script - terminated");
script_on = FALSE;
--- 415,421 ----
if (script_wait == WAIT_TIMER) { /* timer not done yet */
AbortIO((char *) &Script_Timer); /* so abort it */
Wait (1L << Script_Timer_Port->mp_SigBit); /* Wait for the sig */
! WaitIO(&Script_Timer); /* Get my reply back */
}
InfoMsg1Line("Script - terminated");
script_on = FALSE;
--
Johan Widen
SICS, PO Box 1263, S-163 13 SPANGA, SWEDEN
{mcvax,munnari,cernvax,diku,inria,prlb2,penet,ukc,unido}!enea!sics.se!jw
Internet: jw@sics.se