call TCPRelease in netclose

This commit is contained in:
chombier 2002-04-24 08:16:01 +00:00
parent e8b2ccc45e
commit bf762aa9ef
1 changed files with 7 additions and 0 deletions

View File

@ -1104,6 +1104,13 @@ short netclose(short pnum)
if ( (i = WindByPort(pnum)) >= 0 && screens[i].protocol == 4 ) {
WindRec *wind = &screens[i];
TRACEN(PRINTF("netclose\n"));
pbp = getPB( TCPd, TCPStatus, p->stream, 11 ); /* Make status call */
if (pbp) {
clearPB( pbp, TCPd, TCPRelease, p->stream ); /* Make Release call */
xPBControlSync( pbp );
}
DisposePtr( p->buffer); /* Free Receive Buffer */
DisposePtr( p->sbuffer); /* Free Send Buffer */
DisposePtr((Ptr) p); /* Free Stream Structure */