comment style

git-svn-id: file:///svnroot/lcore/trunk@147 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/binipstuff.pas b/binipstuff.pas
index 227c6f4965d99af2966c9fb50644a4f91c9e8363..e7d891c1eade8ac98448bcbc1d3ce5810f92cdad 100644 (file)
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -78,8 +78,8 @@ type
    Adding "4" to non IPv6 record names improves code clarity }\r
 \r
   {$ifndef mswindows}\r
    Adding "4" to non IPv6 record names improves code clarity }\r
 \r
   {$ifndef mswindows}\r

-    {zipplet 20170204: Do we still need to support ver1_0? Perhaps a cleanup is in order.\r
-     For now keep supporting it for compatibility. }\r
+    //zipplet 20170204: Do we still need to support ver1_0? Perhaps a cleanup is in order.\r
+    //For now keep supporting it for compatibility.\r

     {$ifdef ver1_0}\r
       cuint16 = word;\r
       cuint32 = dword;\r
     {$ifdef ver1_0}\r
       cuint16 = word;\r
       cuint32 = dword;\r


@@ -91,7 +91,7 @@ type
     family:Word;\r
     port  :Word;\r
     addr  :uint32;\r
     family:Word;\r
     port  :Word;\r
     addr  :uint32;\r

-    pad   :array [0..7] of byte; {zipplet 20170204 - originally this was 1..8 for some reason}\r
+    pad   :array [0..7] of byte;   //zipplet 20170204 - originally this was 1..8 for some reason\r

   end;\r
   \r
   {$ifdef ipv6}\r
   end;\r
   \r
   {$ifdef ipv6}\r


@@ -104,7 +104,7 @@ type
     end;\r
   {$endif}\r
 \r
     end;\r
   {$endif}\r
 \r

-  {zipplet 20170204: I did not rename the unioned record. We might want to rename this to TLinetSockAddrv }\r
+  //zipplet 20170204: I did not rename the unioned record. We might want to rename this to TLinetSockAddrv\r

   TinetSockAddrv = packed record\r
     case integer of\r
       0: (InAddr:TLInetSockAddr4);\r
   TinetSockAddrv = packed record\r
     case integer of\r
       0: (InAddr:TLInetSockAddr4);\r

diff --git a/dnswin.pas b/dnswin.pas
index ac1a6877a5b7cda60824d03738ae706ef126bed5..1f6263df3f42e7ad4d89f60afe993bfd48cc444f 100644 (file)
--- a/dnswin.pas
+++ b/dnswin.pas
@@ -43,7 +43,7 @@ procedure init;
 \r
 implementation\r
 uses\r
 \r
 implementation\r
 uses\r

-  { zipplet: moved pgtypes to interface because it's needed for the string definitions }\r
+  // zipplet: moved pgtypes to interface because it's needed for the string definitions\r

   lsocket,sysutils,winsock,windows,messages;\r
 \r
 type\r
   lsocket,sysutils,winsock,windows,messages;\r
 \r
 type\r