X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/51075d051580863ca073aa91883357410b358e40..9951872c6c46881c8b414bcd04a18320c457b811:/binipstuff.pas 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);