From 615a7222972da22fa9f95cdb3bdcaa31cbed4e65 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Mon, 21 Jul 2008 16:43:23 +0000 Subject: [PATCH] 2008-07-21 18:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/ChangeLog * harbour/contrib/hbtip/ChangeLog * replaced TABs with SPACEs * harbour/source/compiler/genobj32.c ! fixed memory leak TODO: disable this module in default builds until it will not be fixed to generate valid OMF .obj files --- harbour/ChangeLog | 22 ++++++++++++++++------ harbour/contrib/hbtip/ChangeLog | 12 ++++++------ harbour/source/compiler/genobj32.c | 7 ++++++- 3 files changed, 28 insertions(+), 13 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c61a86c2ca..139dcd3c48 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,16 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +2008-07-21 18:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/ChangeLog + * harbour/contrib/hbtip/ChangeLog + * replaced TABs with SPACEs + + * harbour/source/compiler/genobj32.c + ! fixed memory leak + TODO: disable this module in default builds until it will not + be fixed to generate valid OMF .obj files + 2008-07-17 18:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbw32/dllcall.c * minor cleanup in return values @@ -1602,14 +1612,14 @@ * contrib/hbtip/mail.prg * contrib/hbtip/sendmail.prg + Added methods setget to interrogate buffer size send/recive - METHOD InetRcvBufSize( SocketCon, nSizeBuff ) - METHOD InetSndBufSize( SocketCon, nSizeBuff ) + METHOD InetRcvBufSize( SocketCon, nSizeBuff ) + METHOD InetSndBufSize( SocketCon, nSizeBuff ) + Added data members to assign default buffer sizes - DATA nDefaultRcvBuffSize - DATA nDefaultSndBuffSize + DATA nDefaultRcvBuffSize + DATA nDefaultSndBuffSize + Asigned default buffer size to 64kb only for FTP transfer, previous to open sockets - ::nDefaultSndBuffSize := 65536 - ::nDefaultRcvBuffSize := 65536 + ::nDefaultSndBuffSize := 65536 + ::nDefaultRcvBuffSize := 65536 * Fixed port ftp protocol. * source/rtl/hbinet.c * now works with default system buffer, for example 8kb at W2000. instead of harcoded 1400 diff --git a/harbour/contrib/hbtip/ChangeLog b/harbour/contrib/hbtip/ChangeLog index 00b60b21d2..b67737b7ca 100644 --- a/harbour/contrib/hbtip/ChangeLog +++ b/harbour/contrib/hbtip/ChangeLog @@ -11,15 +11,15 @@ 2008-06-27 17:13 UTC+0100 Miguel Angel Marchuet * client.prg + Added methods setget to interrogate buffer size send/recive - METHOD InetRcvBufSize( SocketCon, nSizeBuff ) - METHOD InetSndBufSize( SocketCon, nSizeBuff ) + METHOD InetRcvBufSize( SocketCon, nSizeBuff ) + METHOD InetSndBufSize( SocketCon, nSizeBuff ) + Added data members to assign default buffer sizes - DATA nDefaultRcvBuffSize - DATA nDefaultSndBuffSize + DATA nDefaultRcvBuffSize + DATA nDefaultSndBuffSize * ftpcln.prg + Asigned default buffer size to 64kb only for FTP transfer, previous to open sockets - ::nDefaultSndBuffSize := 65536 - ::nDefaultRcvBuffSize := 65536 + ::nDefaultSndBuffSize := 65536 + ::nDefaultRcvBuffSize := 65536 2007-05-20 01:00 UTC+0100 Hannes Ziegler diff --git a/harbour/source/compiler/genobj32.c b/harbour/source/compiler/genobj32.c index cab9925390..56a1994ffc 100644 --- a/harbour/source/compiler/genobj32.c +++ b/harbour/source/compiler/genobj32.c @@ -58,7 +58,7 @@ static void GroupDef( FILE * hObjFile, BYTE bName, BYTE * aSegs ); static BYTE prgFunction[] = { 0x68, 0x00, 0x00, 0x00, 0x00, 0x68, 0x00, 0x00, 0x00, 0x00, 0xE8, 0x00, 0x00, 0x00, 0x00, 0x83, 0xC4, 0x08, 0xC3 }; -static char * * externNames = 0; +static char * * externNames = NULL; static USHORT wExternals = 1; /* _hb_vmExecute is always added */ static char * szPrefix = "_HB_FUN_"; @@ -96,6 +96,11 @@ void hb_compGenObj32( HB_COMP_DECL, PHB_FNAME pFileName ) GenerateDataSegment( HB_COMP_PARAM, hObjFile ); GenerateSymbolsSegment( HB_COMP_PARAM, hObjFile ); End( hObjFile ); + if( externNames ) + { + hb_xfree( externNames ); + externNames = NULL; + } fclose( hObjFile );