"hex_str_to_bytes()" modifies the GByteArray supplied to it, so don't
[obnox/wireshark/wip.git] / packet-ip.c
index 51cc36dc8a0720d21686e7cd78b8e83811675ddb..f43f977a28a354ef7c5d8731c8a57ceb65ec2c83 100644 (file)
@@ -1,7 +1,7 @@
 /* packet-ip.c
  * Routines for IP and miscellaneous IP protocol packet disassembly
  *
- * $Id: packet-ip.c,v 1.178 2003/01/14 18:54:29 guy Exp $
+ * $Id: packet-ip.c,v 1.201 2003/11/13 08:16:52 sahlberg Exp $
  *
  * Ethereal - Network traffic analyzer
  * By Gerald Combs <gerald@ethereal.com>
@@ -37,6 +37,7 @@
 #include <epan/packet.h>
 #include <epan/resolv.h>
 #include "ipproto.h"
+#include "ip_opts.h"
 #include "prefs.h"
 #include "reassemble.h"
 #include "etypes.h"
@@ -49,6 +50,9 @@
 #include "packet-ipsec.h"
 #include "in_cksum.h"
 #include "nlpid.h"
+#include "tap.h"
+
+static int ip_tap = -1;
 
 static void dissect_icmp(tvbuff_t *, packet_info *, proto_tree *);
 
@@ -94,6 +98,7 @@ static int hf_ip_fragment_overlap_conflict = -1;
 static int hf_ip_fragment_multiple_tails = -1;
 static int hf_ip_fragment_too_long_fragment = -1;
 static int hf_ip_fragment_error = -1;
+static int hf_ip_reassembled_in = -1;
 
 static gint ett_ip = -1;
 static gint ett_ip_dsfield = -1;
@@ -116,11 +121,11 @@ static const fragment_items ip_frag_items = {
        &hf_ip_fragment_multiple_tails,
        &hf_ip_fragment_too_long_fragment,
        &hf_ip_fragment_error,
+       &hf_ip_reassembled_in,
        "fragments"
 };
 
-/* Used by IPv6 as well, so not static */
-dissector_table_t ip_dissector_table;
+static dissector_table_t ip_dissector_table;
 
 static dissector_handle_t ip_handle;
 static dissector_handle_t data_handle;
@@ -130,6 +135,11 @@ static int hf_icmp_type = -1;
 static int hf_icmp_code = -1;
 static int hf_icmp_checksum = -1;
 static int hf_icmp_checksum_bad = -1;
+static int hf_icmp_ident = -1;
+static int hf_icmp_seq_num = -1;
+static int hf_icmp_mtu = -1;
+static int hf_icmp_redir_gw = -1;
+
 
 /* Mobile ip */
 static int hf_icmp_mip_type = -1;
@@ -318,11 +328,13 @@ static gint ett_icmp_mip_flags = -1;
  * defragmentation of IPv4
  */
 static GHashTable *ip_fragment_table = NULL;
+static GHashTable *ip_reassembled_table = NULL;
 
 static void
 ip_defragment_init(void)
 {
   fragment_table_init(&ip_fragment_table);
+  reassembled_table_init(&ip_reassembled_table);
 }
 
 void
@@ -791,11 +803,6 @@ static const true_false_string tos_set_high = {
   "Normal"
 };
 
-static const true_false_string flags_set_truth = {
-  "Set",
-  "Not set"
-};
-
 static guint16 ip_checksum(const guint8 *ptr, int len)
 {
        vec_t cksum_vec[1];
@@ -808,41 +815,42 @@ static guint16 ip_checksum(const guint8 *ptr, int len)
 static void
 dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
 {
-  guint8  ip_v_hl; /* combines ip_v and ip_hl */
-  guint8  ip_tos;
-  guint16 ip_len;
-  guint16 ip_id;
-  guint16 ip_off;
-  guint8  ip_p;
-  guint16 ip_sum;
-  guint32 ip_src;
-  guint32 ip_dst;
   proto_tree *ip_tree = NULL, *field_tree;
   proto_item *ti = NULL, *tf;
+  guint32    addr;
   int        offset = 0;
   guint      hlen, optlen;
   guint16    flags;
   guint8     nxt;
   guint16    ipsum;
-  fragment_data *ipfd_head;
+  fragment_data *ipfd_head=NULL;
   tvbuff_t   *next_tvb;
   gboolean   update_col_info = TRUE;
   gboolean   save_fragmented;
+  static e_ip eip_arr[4];
+  static int eip_current=0;
+  e_ip *iph;
+
+  eip_current++;
+  if(eip_current==4){
+     eip_current=0;
+  }
+  iph=&eip_arr[eip_current];
 
   if (check_col(pinfo->cinfo, COL_PROTOCOL))
     col_set_str(pinfo->cinfo, COL_PROTOCOL, "IP");
   if (check_col(pinfo->cinfo, COL_INFO))
     col_clear(pinfo->cinfo, COL_INFO);
 
-  ip_v_hl = tvb_get_guint8(tvb, offset);
-  hlen = lo_nibble(ip_v_hl) * 4;       /* IP header length, in bytes */
+  iph->ip_v_hl = tvb_get_guint8(tvb, offset);
+  hlen = lo_nibble(iph->ip_v_hl) * 4;  /* IP header length, in bytes */
 
   if (tree) {
     ti = proto_tree_add_item(tree, proto_ip, tvb, offset, hlen, FALSE);
     ip_tree = proto_item_add_subtree(ti, ett_ip);
 
     proto_tree_add_uint(ip_tree, hf_ip_version, tvb, offset, 1,
-       hi_nibble(ip_v_hl));
+       hi_nibble(iph->ip_v_hl));
   }
 
   if (hlen < IPH_MIN_LEN) {
@@ -854,7 +862,7 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
        "Header length: %u bytes (bogus, must be at least %u)", hlen,
        IPH_MIN_LEN);
     }
-    return;
+    goto end_of_ip;
   }
 
   if (tree) {
@@ -862,29 +870,29 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
        "Header length: %u bytes", hlen);
   }
 
-  ip_tos = tvb_get_guint8(tvb, offset + 1);
+  iph->ip_tos = tvb_get_guint8(tvb, offset + 1);
   if (tree) {
     if (g_ip_dscp_actif) {
-      tf = proto_tree_add_uint_format(ip_tree, hf_ip_dsfield, tvb, offset + 1, 1, ip_tos,
-          "Differentiated Services Field: 0x%02x (DSCP 0x%02x: %s; ECN: 0x%02x)", ip_tos,
-          IPDSFIELD_DSCP(ip_tos), val_to_str(IPDSFIELD_DSCP(ip_tos), dscp_vals,
-          "Unknown DSCP"),IPDSFIELD_ECN(ip_tos));
+      tf = proto_tree_add_uint_format(ip_tree, hf_ip_dsfield, tvb, offset + 1, 1, iph->ip_tos,
+          "Differentiated Services Field: 0x%02x (DSCP 0x%02x: %s; ECN: 0x%02x)", iph->ip_tos,
+          IPDSFIELD_DSCP(iph->ip_tos), val_to_str(IPDSFIELD_DSCP(iph->ip_tos), dscp_vals,
+          "Unknown DSCP"),IPDSFIELD_ECN(iph->ip_tos));
 
       field_tree = proto_item_add_subtree(tf, ett_ip_dsfield);
-      proto_tree_add_uint(field_tree, hf_ip_dsfield_dscp, tvb, offset + 1, 1, ip_tos);
-      proto_tree_add_uint(field_tree, hf_ip_dsfield_ect, tvb, offset + 1, 1, ip_tos);
-      proto_tree_add_uint(field_tree, hf_ip_dsfield_ce, tvb, offset + 1, 1, ip_tos);
+      proto_tree_add_uint(field_tree, hf_ip_dsfield_dscp, tvb, offset + 1, 1, iph->ip_tos);
+      proto_tree_add_uint(field_tree, hf_ip_dsfield_ect, tvb, offset + 1, 1, iph->ip_tos);
+      proto_tree_add_uint(field_tree, hf_ip_dsfield_ce, tvb, offset + 1, 1, iph->ip_tos);
     } else {
-      tf = proto_tree_add_uint_format(ip_tree, hf_ip_tos, tvb, offset + 1, 1, ip_tos,
-         "Type of service: 0x%02x (%s)", ip_tos,
-         val_to_str( IPTOS_TOS(ip_tos), iptos_vals, "Unknown") );
+      tf = proto_tree_add_uint_format(ip_tree, hf_ip_tos, tvb, offset + 1, 1, iph->ip_tos,
+         "Type of service: 0x%02x (%s)", iph->ip_tos,
+         val_to_str( IPTOS_TOS(iph->ip_tos), iptos_vals, "Unknown") );
 
       field_tree = proto_item_add_subtree(tf, ett_ip_tos);
-      proto_tree_add_uint(field_tree, hf_ip_tos_precedence, tvb, offset + 1, 1, ip_tos);
-      proto_tree_add_boolean(field_tree, hf_ip_tos_delay, tvb, offset + 1, 1, ip_tos);
-      proto_tree_add_boolean(field_tree, hf_ip_tos_throughput, tvb, offset + 1, 1, ip_tos);
-      proto_tree_add_boolean(field_tree, hf_ip_tos_reliability, tvb, offset + 1, 1, ip_tos);
-      proto_tree_add_boolean(field_tree, hf_ip_tos_cost, tvb, offset + 1, 1, ip_tos);
+      proto_tree_add_uint(field_tree, hf_ip_tos_precedence, tvb, offset + 1, 1, iph->ip_tos);
+      proto_tree_add_boolean(field_tree, hf_ip_tos_delay, tvb, offset + 1, 1, iph->ip_tos);
+      proto_tree_add_boolean(field_tree, hf_ip_tos_throughput, tvb, offset + 1, 1, iph->ip_tos);
+      proto_tree_add_boolean(field_tree, hf_ip_tos_reliability, tvb, offset + 1, 1, iph->ip_tos);
+      proto_tree_add_boolean(field_tree, hf_ip_tos_cost, tvb, offset + 1, 1, iph->ip_tos);
     }
   }
 
@@ -894,51 +902,51 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
      inside an ICMP datagram; we need to somehow let the
      dissector we call know that, as it might want to avoid
      doing its checksumming. */
-  ip_len = tvb_get_ntohs(tvb, offset + 2);
+  iph->ip_len = tvb_get_ntohs(tvb, offset + 2);
 
   /* Adjust the length of this tvbuff to include only the IP datagram. */
-  set_actual_length(tvb, ip_len);
+  set_actual_length(tvb, iph->ip_len);
 
-  if (ip_len < hlen) {
+  if (iph->ip_len < hlen) {
     if (check_col(pinfo->cinfo, COL_INFO))
       col_add_fstr(pinfo->cinfo, COL_INFO, "Bogus IP length (%u, less than header length %u)",
-       ip_len, hlen);
+       iph->ip_len, hlen);
     if (tree) {
-      proto_tree_add_uint_format(ip_tree, hf_ip_len, tvb, offset + 2, 2, ip_len,
-       "Total length: %u bytes (bogus, less than header length %u)", ip_len,
+      proto_tree_add_uint_format(ip_tree, hf_ip_len, tvb, offset + 2, 2, iph->ip_len,
+       "Total length: %u bytes (bogus, less than header length %u)", iph->ip_len,
        hlen);
     }
-    return;
+    goto end_of_ip;
   }
   if (tree)
-    proto_tree_add_uint(ip_tree, hf_ip_len, tvb, offset + 2, 2, ip_len);
+    proto_tree_add_uint(ip_tree, hf_ip_len, tvb, offset + 2, 2, iph->ip_len);
 
-  ip_id  = tvb_get_ntohs(tvb, offset + 4);
+  iph->ip_id  = tvb_get_ntohs(tvb, offset + 4);
   if (tree)
-    proto_tree_add_uint(ip_tree, hf_ip_id, tvb, offset + 4, 2, ip_id);
+    proto_tree_add_uint_format(ip_tree, hf_ip_id, tvb, offset + 4, 2, iph->ip_id, "Identification: 0x%04x (%d)", iph->ip_id, iph->ip_id);
 
-  ip_off = tvb_get_ntohs(tvb, offset + 6);
+  iph->ip_off = tvb_get_ntohs(tvb, offset + 6);
   if (tree) {
-    flags = (ip_off & (IP_DF|IP_MF)) >> 12;
+    flags = (iph->ip_off & (IP_DF|IP_MF)) >> 12;
     tf = proto_tree_add_uint(ip_tree, hf_ip_flags, tvb, offset + 6, 1, flags);
     field_tree = proto_item_add_subtree(tf, ett_ip_off);
     proto_tree_add_boolean(field_tree, hf_ip_flags_df, tvb, offset + 6, 1, flags),
     proto_tree_add_boolean(field_tree, hf_ip_flags_mf, tvb, offset + 6, 1, flags),
 
     proto_tree_add_uint(ip_tree, hf_ip_frag_offset, tvb, offset + 6, 2,
-      (ip_off & IP_OFFSET)*8);
+      (iph->ip_off & IP_OFFSET)*8);
   }
 
   if (tree)
     proto_tree_add_item(ip_tree, hf_ip_ttl, tvb, offset + 8, 1, FALSE);
 
-  ip_p = tvb_get_guint8(tvb, offset + 9);
+  iph->ip_p = tvb_get_guint8(tvb, offset + 9);
   if (tree) {
-    proto_tree_add_uint_format(ip_tree, hf_ip_proto, tvb, offset + 9, 1, ip_p,
-       "Protocol: %s (0x%02x)", ipprotostr(ip_p), ip_p);
+    proto_tree_add_uint_format(ip_tree, hf_ip_proto, tvb, offset + 9, 1, iph->ip_p,
+       "Protocol: %s (0x%02x)", ipprotostr(iph->ip_p), iph->ip_p);
   }
 
-  ip_sum = tvb_get_ntohs(tvb, offset + 10);
+  iph->ip_sum = tvb_get_ntohs(tvb, offset + 10);
 
   /*
    * If we have the entire IP header available, check the checksum.
@@ -947,40 +955,47 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
     ipsum = ip_checksum(tvb_get_ptr(tvb, offset, hlen), hlen);
     if (tree) {
       if (ipsum == 0) {
-       proto_tree_add_uint_format(ip_tree, hf_ip_checksum, tvb, offset + 10, 2, ip_sum,
-              "Header checksum: 0x%04x (correct)", ip_sum);
+       proto_tree_add_uint_format(ip_tree, hf_ip_checksum, tvb, offset + 10, 2, iph->ip_sum,
+              "Header checksum: 0x%04x (correct)", iph->ip_sum);
       }
       else {
        proto_tree_add_boolean_hidden(ip_tree, hf_ip_checksum_bad, tvb, offset + 10, 2, TRUE);
-       proto_tree_add_uint_format(ip_tree, hf_ip_checksum, tvb, offset + 10, 2, ip_sum,
-          "Header checksum: 0x%04x (incorrect, should be 0x%04x)", ip_sum,
-         in_cksum_shouldbe(ip_sum, ipsum));
+       proto_tree_add_uint_format(ip_tree, hf_ip_checksum, tvb, offset + 10, 2, iph->ip_sum,
+          "Header checksum: 0x%04x (incorrect, should be 0x%04x)", iph->ip_sum,
+         in_cksum_shouldbe(iph->ip_sum, ipsum));
       }
     }
   } else {
     ipsum = 0;
     if (tree)
-      proto_tree_add_uint(ip_tree, hf_ip_checksum, tvb, offset + 10, 2, ip_sum);
+      proto_tree_add_uint(ip_tree, hf_ip_checksum, tvb, offset + 10, 2, iph->ip_sum);
   }
 
-  tvb_memcpy(tvb, (guint8 *)&ip_src, offset + 12, 4);
+  SET_ADDRESS(&pinfo->net_src, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_SRC, 4));
+  SET_ADDRESS(&pinfo->src, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_SRC, 4));
+  SET_ADDRESS(&iph->ip_src, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_SRC, 4));
   if (tree) {
+    memcpy(&addr, iph->ip_src.data, 4);
     if (ip_summary_in_tree) {
       proto_item_append_text(ti, ", Src Addr: %s (%s)",
-               get_hostname(ip_src), ip_to_str((guint8 *) &ip_src));
+               get_hostname(addr), ip_to_str((guint8 *) iph->ip_src.data));
     }
-    proto_tree_add_ipv4(ip_tree, hf_ip_src, tvb, offset + 12, 4, ip_src);
-    proto_tree_add_ipv4_hidden(ip_tree, hf_ip_addr, tvb, offset + 12, 4, ip_src);
+    proto_tree_add_ipv4(ip_tree, hf_ip_src, tvb, offset + 12, 4, addr);
+    proto_tree_add_ipv4_hidden(ip_tree, hf_ip_addr, tvb, offset + 12, 4, addr);
   }
 
-  tvb_memcpy(tvb, (guint8 *)&ip_dst, offset + 16, 4);
+  SET_ADDRESS(&pinfo->net_dst, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_DST, 4));
+  SET_ADDRESS(&pinfo->dst, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_DST, 4));
+  SET_ADDRESS(&iph->ip_dst, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_DST, 4));
+
   if (tree) {
+    memcpy(&addr, iph->ip_dst.data, 4);
     if (ip_summary_in_tree) {
       proto_item_append_text(ti, ", Dst Addr: %s (%s)",
-               get_hostname(ip_dst), ip_to_str((guint8 *) &ip_dst));
+               get_hostname(addr), ip_to_str((guint8 *) iph->ip_dst.data));
     }
-    proto_tree_add_ipv4(ip_tree, hf_ip_dst, tvb, offset + 16, 4, ip_dst);
-    proto_tree_add_ipv4_hidden(ip_tree, hf_ip_addr, tvb, offset + 16, 4, ip_dst);
+    proto_tree_add_ipv4(ip_tree, hf_ip_dst, tvb, offset + 16, 4, addr);
+    proto_tree_add_ipv4_hidden(ip_tree, hf_ip_addr, tvb, offset + 16, 4, addr);
   }
 
   if (tree) {
@@ -997,62 +1012,40 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
     }
   }
 
-  pinfo->ipproto = ip_p;
-
-  pinfo->iplen = ip_len;
+  pinfo->ipproto = iph->ip_p;
 
-  pinfo->iphdrlen = lo_nibble(ip_v_hl);
+  pinfo->iplen = iph->ip_len;
 
-  SET_ADDRESS(&pinfo->net_src, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_SRC, 4));
-  SET_ADDRESS(&pinfo->src, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_SRC, 4));
-  SET_ADDRESS(&pinfo->net_dst, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_DST, 4));
-  SET_ADDRESS(&pinfo->dst, AT_IPv4, 4, tvb_get_ptr(tvb, offset + IPH_DST, 4));
+  pinfo->iphdrlen = hlen;
 
   /* Skip over header + options */
   offset += hlen;
-  nxt = ip_p;  /* XXX - what if this isn't the same for all fragments? */
+  nxt = iph->ip_p;     /* XXX - what if this isn't the same for all fragments? */
 
   /* If ip_defragment is on, this is a fragment, we have all the data
    * in the fragment, and the header checksum is valid, then just add
    * the fragment to the hashtable.
    */
   save_fragmented = pinfo->fragmented;
-  if (ip_defragment && (ip_off & (IP_MF|IP_OFFSET)) &&
-       tvb_reported_length(tvb) <= tvb_length(tvb) && ipsum == 0) {
-    ipfd_head = fragment_add(tvb, offset, pinfo, ip_id,
+  if (ip_defragment && (iph->ip_off & (IP_MF|IP_OFFSET)) &&
+      tvb_bytes_exist(tvb, offset, pinfo->iplen - pinfo->iphdrlen) &&
+      ipsum == 0) {
+    ipfd_head = fragment_add_check(tvb, offset, pinfo, iph->ip_id,
                             ip_fragment_table,
-                            (ip_off & IP_OFFSET)*8,
-                            pinfo->iplen - (pinfo->iphdrlen*4),
-                            ip_off & IP_MF);
-
-    if (ipfd_head != NULL) {
-      /* OK, we have the complete reassembled payload.
-         Allocate a new tvbuff, referring to the reassembled payload. */
-      next_tvb = tvb_new_real_data(ipfd_head->data, ipfd_head->datalen,
-       ipfd_head->datalen);
-
-      /* Add the tvbuff to the list of tvbuffs to which the tvbuff we
-         were handed refers, so it'll get cleaned up when that tvbuff
-         is cleaned up. */
-      tvb_set_child_real_data_tvbuff(tvb, next_tvb);
-
-      /* Add the defragmented data to the data source list. */
-      add_new_data_source(pinfo, next_tvb, "Reassembled IPv4");
-
-      /* show all fragments */
-      update_col_info = !show_fragment_tree(ipfd_head, &ip_frag_items,
-        ip_tree, pinfo, next_tvb);
-    } else {
-      /* We don't have the complete reassembled payload. */
-      next_tvb = NULL;
-    }
+                            ip_reassembled_table,
+                            (iph->ip_off & IP_OFFSET)*8,
+                            pinfo->iplen - pinfo->iphdrlen,
+                            iph->ip_off & IP_MF);
+
+    next_tvb = process_reassembled_data(tvb, offset, pinfo, "Reassembled IPv4",
+      ipfd_head, &ip_frag_items, &update_col_info, ip_tree);
   } else {
     /* If this is the first fragment, dissect its contents, otherwise
        just show it as a fragment.
 
        XXX - if we eventually don't save the reassembled contents of all
        fragmented datagrams, we may want to always reassemble. */
-    if (ip_off & IP_OFFSET) {
+    if (iph->ip_off & IP_OFFSET) {
       /* Not the first fragment - don't dissect it. */
       next_tvb = NULL;
     } else {
@@ -1065,7 +1058,7 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
        * If this is the first fragment, but not the only fragment,
        * tell the next protocol that.
        */
-      if (ip_off & IP_MF)
+      if (iph->ip_off & IP_MF)
         pinfo->fragmented = TRUE;
       else
         pinfo->fragmented = FALSE;
@@ -1074,13 +1067,21 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
 
   if (next_tvb == NULL) {
     /* Just show this as a fragment. */
-    if (check_col(pinfo->cinfo, COL_INFO))
+    if (check_col(pinfo->cinfo, COL_INFO)) {
       col_add_fstr(pinfo->cinfo, COL_INFO, "Fragmented IP protocol (proto=%s 0x%02x, off=%u)",
-       ipprotostr(ip_p), ip_p, (ip_off & IP_OFFSET) * 8);
+       ipprotostr(iph->ip_p), iph->ip_p, (iph->ip_off & IP_OFFSET) * 8);
+    }
+    if( ipfd_head && ipfd_head->reassembled_in != pinfo->fd->num ){
+      if (check_col(pinfo->cinfo, COL_INFO)) {
+        col_append_fstr(pinfo->cinfo, COL_INFO, " [Reassembled in #%u]",
+          ipfd_head->reassembled_in);
+      }
+    }
+
     call_dissector(data_handle, tvb_new_subset(tvb, offset, -1, -1), pinfo,
                    tree);
     pinfo->fragmented = save_fragmented;
-    return;
+    goto end_of_ip;
   }
 
   /* Hand off to the next protocol.
@@ -1094,11 +1095,15 @@ dissect_ip(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
     /* Unknown protocol */
     if (update_col_info) {
       if (check_col(pinfo->cinfo, COL_INFO))
-        col_add_fstr(pinfo->cinfo, COL_INFO, "%s (0x%02x)", ipprotostr(ip_p), ip_p);
+        col_add_fstr(pinfo->cinfo, COL_INFO, "%s (0x%02x)", ipprotostr(iph->ip_p), iph->ip_p);
     }
     call_dissector(data_handle,next_tvb, pinfo, tree);
   }
   pinfo->fragmented = save_fragmented;
+
+end_of_ip:
+  tap_queue_packet(ip_tap, pinfo, iph);
+
 }
 
 #define ICMP_MIP_EXTENSION_PAD 0
@@ -1276,8 +1281,8 @@ static const gchar *redir_str[] = {"Redirect for network",
 
 #define        N_REDIRECT      (sizeof redir_str / sizeof redir_str[0])
 
-static const gchar *ttl_str[] = {"TTL equals 0 during transit",
-                                 "TTL equals 0 during reassembly"};
+static const gchar *ttl_str[] = {"Time to live exceeded in transit",
+                                 "Fragment reassembly time exceeded"};
 
 #define        N_TIMXCEED      (sizeof ttl_str / sizeof ttl_str[0])
 
@@ -1304,12 +1309,6 @@ dissect_icmp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
   guint8     num_addrs = 0;
   guint8     addr_entry_size = 0;
   int        i;
-  volatile address save_dl_src;
-  volatile address save_dl_dst;
-  volatile address save_net_src;
-  volatile address save_net_dst;
-  volatile address save_src;
-  volatile address save_dst;
   gboolean   save_in_error_pkt;
   tvbuff_t   *next_tvb;
 
@@ -1450,17 +1449,14 @@ dissect_icmp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
       case ICMP_IREQREPLY:
       case ICMP_MASKREQ:
       case ICMP_MASKREPLY:
-       proto_tree_add_text(icmp_tree, tvb, 4, 2, "Identifier: 0x%04x",
-         tvb_get_ntohs(tvb, 4));
-       proto_tree_add_text(icmp_tree, tvb, 6, 2, "Sequence number: %02x:%02x",
-         tvb_get_guint8(tvb, 6), tvb_get_guint8(tvb, 7));
+        proto_tree_add_item(icmp_tree, hf_icmp_ident, tvb, 4, 2, FALSE);
+        proto_tree_add_item(icmp_tree, hf_icmp_seq_num, tvb, 6, 2, FALSE);
        break;
 
       case ICMP_UNREACH:
         switch (icmp_code) {
           case ICMP_FRAG_NEEDED:
-            proto_tree_add_text(icmp_tree, tvb, 6, 2, "MTU of next hop: %u",
-                  tvb_get_ntohs(tvb, 6));
+            proto_tree_add_item(icmp_tree, hf_icmp_mtu, tvb, 6, 2, FALSE);
             break;
        }
         break;
@@ -1482,8 +1478,7 @@ dissect_icmp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
        break;
 
       case ICMP_REDIRECT:
-       proto_tree_add_text(icmp_tree, tvb, 4, 4, "Gateway address: %s",
-         ip_to_str(tvb_get_ptr(tvb, 4, 4)));
+        proto_tree_add_item(icmp_tree, hf_icmp_redir_gw, tvb, 4, 4, FALSE);
        break;
     }
 
@@ -1494,25 +1489,6 @@ dissect_icmp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
       case ICMP_PARAMPROB:
       case ICMP_SOURCEQUENCH:
       case ICMP_REDIRECT:
-       /* Decode the IP header and first 64 bits of data from the
-          original datagram.
-
-          Set the columns non-writable, so that the packet list
-          shows this as an ICMP packet, not as the type of packet
-          for which the ICMP packet was generated. */
-       col_set_writable(pinfo->cinfo, FALSE);
-
-       /* Also, save the current values of the addresses, and restore
-          them when we're finished dissecting the contained packet, so
-          that the address columns in the summary don't reflect the
-          contained packet, but reflect this packet instead. */
-       save_dl_src = pinfo->dl_src;
-       save_dl_dst = pinfo->dl_dst;
-       save_net_src = pinfo->net_src;
-       save_net_dst = pinfo->net_dst;
-       save_src = pinfo->src;
-       save_dst = pinfo->dst;
-
        /* Save the current value of the "we're inside an error packet"
           flag, and set that flag; subdissectors may treat packets
           that are the payload of error packets differently from
@@ -1520,32 +1496,13 @@ dissect_icmp(tvbuff_t *tvb, packet_info *pinfo, proto_tree *tree)
        save_in_error_pkt = pinfo->in_error_pkt;
        pinfo->in_error_pkt = TRUE;
 
-       /* Dissect the contained packet.
-          Catch ReportedBoundsError, and do nothing if we see it,
-          because it's not an error if the contained packet is short;
-          there's no guarantee that all of it was included.
-
-          XXX - should catch BoundsError, and re-throw it after cleaning
-          up. */
+       /* Decode the IP header and first 64 bits of data from the
+          original datagram. */
        next_tvb = tvb_new_subset(tvb, 8, -1, -1);
-       TRY {
-         call_dissector(ip_handle, next_tvb, pinfo, icmp_tree);
-       }
-       CATCH(ReportedBoundsError) {
-         ; /* do nothing */
-       }
-       ENDTRY;
+       call_dissector(ip_handle, next_tvb, pinfo, icmp_tree);
 
        /* Restore the "we're inside an error packet" flag. */
        pinfo->in_error_pkt = save_in_error_pkt;
-
-       /* Restore the addresses. */
-       pinfo->dl_src = save_dl_src;
-       pinfo->dl_dst = save_dl_dst;
-       pinfo->net_src = save_net_src;
-       pinfo->net_dst = save_net_dst;
-       pinfo->src = save_src;
-       pinfo->dst = save_dst;
        break;
 
       case ICMP_ECHOREPLY:
@@ -1731,6 +1688,10 @@ proto_register_ip(void)
                { &hf_ip_fragments,
                { "IP Fragments", "ip.fragments", FT_NONE, BASE_NONE, NULL, 0x0,
                        "IP Fragments", HFILL }},
+
+               { &hf_ip_reassembled_in,
+               { "Reassembled IP in frame", "ip.reassembled_in", FT_FRAMENUM, BASE_NONE, NULL, 0x0,
+                       "This IP packet is reassembled in this frame", HFILL }}
        };
        static gint *ett[] = {
                &ett_ip,
@@ -1764,13 +1725,14 @@ proto_register_ip(void)
                "Reassemble fragmented IP datagrams",
                "Whether fragmented IP datagrams should be reassembled",
                &ip_defragment);
-       prefs_register_bool_preference(ip_module, "ip_summary_in_tree",
+       prefs_register_bool_preference(ip_module, "summary_in_tree",
            "Show IP summary in protocol tree",
            "Whether the IP summary line should be shown in the protocol tree",
            &ip_summary_in_tree);
 
        register_dissector("ip", dissect_ip, proto_ip);
        register_init_routine(ip_defragment_init);
+        ip_tap=register_tap("ip");
 }
 
 void
@@ -1791,7 +1753,8 @@ proto_reg_handoff_ip(void)
        dissector_add("chdlctype", ETHERTYPE_IP, ip_handle);
        dissector_add("fr.ietf", NLPID_IP, ip_handle);
        dissector_add("x.25.spi", NLPID_IP, ip_handle);
-        dissector_add("arcnet.protocol_id", ARCNET_PROTO_IP, ip_handle);
+        dissector_add("arcnet.protocol_id", ARCNET_PROTO_IP_1051, ip_handle);
+        dissector_add("arcnet.protocol_id", ARCNET_PROTO_IP_1201, ip_handle);
 }
 
 void
@@ -1815,6 +1778,22 @@ proto_register_icmp(void)
       { "Bad Checksum",        "icmp.checksum_bad",    FT_BOOLEAN, BASE_NONE,  NULL, 0x0,
        "", HFILL }},
 
+    { &hf_icmp_ident,
+      {"Identifier", "icmp.ident",              FT_UINT16, BASE_HEX,    NULL, 0x0,
+       "", HFILL }},
+
+    { &hf_icmp_seq_num,
+      {"Sequence number", "icmp.seq",           FT_UINT16, BASE_HEX,    NULL, 0x0,
+       "", HFILL }},
+
+    { &hf_icmp_mtu,
+      {"MTU of next hop", "icmp.mtu",           FT_UINT16, BASE_DEC,    NULL, 0x0,
+       "", HFILL}},
+
+    { &hf_icmp_redir_gw,
+      {"Gateway address", "icmp.redir_gw",      FT_IPv4, BASE_NONE,     NULL, 0x0,
+       "", HFILL }},
+
     { &hf_icmp_mip_type,
       { "Extension Type", "icmp.mip.type",     FT_UINT8, BASE_DEC,
        VALS(mip_extensions), 0x0,"", HFILL}},