From: beware Date: Mon, 6 Feb 2017 17:38:48 +0000 (+0000) Subject: comment style X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/9951872c6c46881c8b414bcd04a18320c457b811 comment style git-svn-id: file:///svnroot/lcore/trunk@147 b1de8a11-f9be-4011-bde0-cc7ace90066a --- diff --git a/binipstuff.pas b/binipstuff.pas index 227c6f4..e7d891c 100644 --- a/binipstuff.pas +++ b/binipstuff.pas @@ -78,8 +78,8 @@ type Adding "4" to non IPv6 record names improves code clarity } {$ifndef mswindows} - {zipplet 20170204: Do we still need to support ver1_0? Perhaps a cleanup is in order. - For now keep supporting it for compatibility. } + //zipplet 20170204: Do we still need to support ver1_0? Perhaps a cleanup is in order. + //For now keep supporting it for compatibility. {$ifdef ver1_0} cuint16 = word; cuint32 = dword; @@ -91,7 +91,7 @@ type family:Word; port :Word; addr :uint32; - pad :array [0..7] of byte; {zipplet 20170204 - originally this was 1..8 for some reason} + pad :array [0..7] of byte; //zipplet 20170204 - originally this was 1..8 for some reason end; {$ifdef ipv6} @@ -104,7 +104,7 @@ type end; {$endif} - {zipplet 20170204: I did not rename the unioned record. We might want to rename this to TLinetSockAddrv } + //zipplet 20170204: I did not rename the unioned record. We might want to rename this to TLinetSockAddrv TinetSockAddrv = packed record case integer of 0: (InAddr:TLInetSockAddr4); diff --git a/dnswin.pas b/dnswin.pas index ac1a687..1f6263d 100644 --- a/dnswin.pas +++ b/dnswin.pas @@ -43,7 +43,7 @@ procedure init; implementation uses - { zipplet: moved pgtypes to interface because it's needed for the string definitions } + // zipplet: moved pgtypes to interface because it's needed for the string definitions lsocket,sysutils,winsock,windows,messages; type