Commit fbdd0194 authored by Martin Wierich's avatar Martin Wierich
Browse files

bug fix

parent 75a875a0
......@@ -154,6 +154,7 @@ void InitialiseCrossCallTCP (void)
*/
void EvalCcRqCREATETCPWINDOW (CrossCallInfo *pcci) /* No cross call args; no result. */
{
if (!ghTCPWindow)
ghTCPWindow = CreateWindow (TCPWindowClassName, /* Class name */
"", /* Window title */
WS_POPUP, /* style flags */
......@@ -169,6 +170,8 @@ void EvalCcRqCREATETCPWINDOW (CrossCallInfo *pcci) /* No cross call args; no re
int InstallCrossCallTCP (int ios)
{
if (!ghTCPWindow)
{
CrossCallProcedureTable newTable;
InitialiseCrossCallTCP ();
......@@ -178,4 +181,5 @@ int InstallCrossCallTCP (int ios)
AddCrossCallEntries (gCrossCallProcedureTable, newTable);
return ios;
}
}
\ No newline at end of file
......@@ -65,7 +65,6 @@ openSendNotifier ls (SendNotifier sChan f rAttributes) pSt
= getEndpointDataC chan.bEndpointRef pSt
| hasSendableNotifier
= (ErrorNotifierOpen, sChan, pSt)
# pSt = appPIO (appIOToolbox OSinstallTCP) pSt // PA: added
# (errReport,pSt) = openReceiverGeneral
( newInetStateHandle ls (handleSendableEvent chan.bId f) 0
(close_tcpschan_receiver chan.bEndpointRef)
......@@ -354,6 +353,7 @@ openReceiverGeneral :: .(Id -> .(SelectState -> .([Id] -> .(.a -> .(.b -> Receiv
!.Id [.ReceiverAttribute .e] .a .b !*(PSt .c)
-> *(.ErrorReport,!*PSt .c);
openReceiverGeneral createStateHandleFunc id rAttributes endpointRef isReceiver pState
# pState = appPIO (appIOToolbox OSinstallTCP) pState
# (pState=:{io=ioState}) = receiverFunctions.dOpen pState // MW11++
# (rt,ioState) = ioStGetReceiverTable ioState
(maybe_parent,rt) = getReceiverTableEntry id rt
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment