Commit b74455b1 authored by Martin Wierich's avatar Martin Wierich

bug fix

parent 384b67d3
......@@ -154,28 +154,32 @@ void InitialiseCrossCallTCP (void)
*/
void EvalCcRqCREATETCPWINDOW (CrossCallInfo *pcci) /* No cross call args; no result. */
{
ghTCPWindow = CreateWindow (TCPWindowClassName, /* Class name */
"", /* Window title */
WS_POPUP, /* style flags */
0, 0, /* x, y */
0, 0, /* width, height */
NULL, /* Parent window */
(HMENU) NULL, /* menu handle */
(HANDLE) ghInst, /* Instance that owns the window */
0
);
if (!ghTCPWindow)
ghTCPWindow = CreateWindow (TCPWindowClassName, /* Class name */
"", /* Window title */
WS_POPUP, /* style flags */
0, 0, /* x, y */
0, 0, /* width, height */
NULL, /* Parent window */
(HMENU) NULL, /* menu handle */
(HANDLE) ghInst, /* Instance that owns the window */
0
);
MakeReturn0Cci (pcci);
}
int InstallCrossCallTCP (int ios)
{
CrossCallProcedureTable newTable;
if (!ghTCPWindow)
{
CrossCallProcedureTable newTable;
InitialiseCrossCallTCP ();
InitialiseCrossCallTCP ();
newTable = EmptyCrossCallProcedureTable ();
AddCrossCallEntry (newTable, CcRqCREATETCPWINDOW,EvalCcRqCREATETCPWINDOW);
AddCrossCallEntries (gCrossCallProcedureTable, newTable);
newTable = EmptyCrossCallProcedureTable ();
AddCrossCallEntry (newTable, CcRqCREATETCPWINDOW,EvalCcRqCREATETCPWINDOW);
AddCrossCallEntries (gCrossCallProcedureTable, newTable);
return ios;
}
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