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

bug fix

parent 75a875a0
...@@ -154,28 +154,32 @@ void InitialiseCrossCallTCP (void) ...@@ -154,28 +154,32 @@ void InitialiseCrossCallTCP (void)
*/ */
void EvalCcRqCREATETCPWINDOW (CrossCallInfo *pcci) /* No cross call args; no result. */ void EvalCcRqCREATETCPWINDOW (CrossCallInfo *pcci) /* No cross call args; no result. */
{ {
ghTCPWindow = CreateWindow (TCPWindowClassName, /* Class name */ if (!ghTCPWindow)
"", /* Window title */ ghTCPWindow = CreateWindow (TCPWindowClassName, /* Class name */
WS_POPUP, /* style flags */ "", /* Window title */
0, 0, /* x, y */ WS_POPUP, /* style flags */
0, 0, /* width, height */ 0, 0, /* x, y */
NULL, /* Parent window */ 0, 0, /* width, height */
(HMENU) NULL, /* menu handle */ NULL, /* Parent window */
(HANDLE) ghInst, /* Instance that owns the window */ (HMENU) NULL, /* menu handle */
0 (HANDLE) ghInst, /* Instance that owns the window */
); 0
);
MakeReturn0Cci (pcci); MakeReturn0Cci (pcci);
} }
int InstallCrossCallTCP (int ios) int InstallCrossCallTCP (int ios)
{ {
CrossCallProcedureTable newTable; if (!ghTCPWindow)
{
CrossCallProcedureTable newTable;
InitialiseCrossCallTCP (); InitialiseCrossCallTCP ();
newTable = EmptyCrossCallProcedureTable (); newTable = EmptyCrossCallProcedureTable ();
AddCrossCallEntry (newTable, CcRqCREATETCPWINDOW,EvalCcRqCREATETCPWINDOW); AddCrossCallEntry (newTable, CcRqCREATETCPWINDOW,EvalCcRqCREATETCPWINDOW);
AddCrossCallEntries (gCrossCallProcedureTable, newTable); AddCrossCallEntries (gCrossCallProcedureTable, newTable);
return ios; return ios;
} }
}
\ No newline at end of file
...@@ -65,7 +65,6 @@ openSendNotifier ls (SendNotifier sChan f rAttributes) pSt ...@@ -65,7 +65,6 @@ openSendNotifier ls (SendNotifier sChan f rAttributes) pSt
= getEndpointDataC chan.bEndpointRef pSt = getEndpointDataC chan.bEndpointRef pSt
| hasSendableNotifier | hasSendableNotifier
= (ErrorNotifierOpen, sChan, pSt) = (ErrorNotifierOpen, sChan, pSt)
# pSt = appPIO (appIOToolbox OSinstallTCP) pSt // PA: added
# (errReport,pSt) = openReceiverGeneral # (errReport,pSt) = openReceiverGeneral
( newInetStateHandle ls (handleSendableEvent chan.bId f) 0 ( newInetStateHandle ls (handleSendableEvent chan.bId f) 0
(close_tcpschan_receiver chan.bEndpointRef) (close_tcpschan_receiver chan.bEndpointRef)
...@@ -354,6 +353,7 @@ openReceiverGeneral :: .(Id -> .(SelectState -> .([Id] -> .(.a -> .(.b -> Receiv ...@@ -354,6 +353,7 @@ openReceiverGeneral :: .(Id -> .(SelectState -> .([Id] -> .(.a -> .(.b -> Receiv
!.Id [.ReceiverAttribute .e] .a .b !*(PSt .c) !.Id [.ReceiverAttribute .e] .a .b !*(PSt .c)
-> *(.ErrorReport,!*PSt .c); -> *(.ErrorReport,!*PSt .c);
openReceiverGeneral createStateHandleFunc id rAttributes endpointRef isReceiver pState openReceiverGeneral createStateHandleFunc id rAttributes endpointRef isReceiver pState
# pState = appPIO (appIOToolbox OSinstallTCP) pState
# (pState=:{io=ioState}) = receiverFunctions.dOpen pState // MW11++ # (pState=:{io=ioState}) = receiverFunctions.dOpen pState // MW11++
# (rt,ioState) = ioStGetReceiverTable ioState # (rt,ioState) = ioStGetReceiverTable ioState
(maybe_parent,rt) = getReceiverTableEntry id rt (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