anchor.diff:      emit([".",nl]).
   
   gen_encode_constructed_imm(Erule, Typename, #type{}=D) ->
  -    {ExtAddGroup,TmpCompList,TableConsInfo} =
  -	case D#type.def of
  -	    #'SEQUENCE'{tablecinf=TCI,components=CL,extaddgroup=ExtAddGroup0} ->
  -		{ExtAddGroup0,CL,TCI};
  -	    #'SET'{tablecinf=TCI,components=CL} ->
  -		{undefined,CL,TCI}
  -	end,
  -
  -    CompList = case ExtAddGroup of
  -		   undefined ->
  -		       TmpCompList;
  -		   _ when is_integer(ExtAddGroup) ->
  -		       %% This is a fake SEQUENCE representing an ExtensionAdditionGroup
  -		       %% Reset the textual order so we get the right
  -		       %% index of the components
  -		       [Comp#'ComponentType'{textual_order=undefined}||
  -			   Comp<-TmpCompList]
  -	       end,
  +    {CompList,TableConsInfo} = enc_complist(D),
       ExternalImm =
   	case Typename of
   	    ['EXTERNAL'] ->
  
positive.code:     ImmBody = gen_enc_components_call(Erule, Typename, CompList, EncObj, Ext),
      ExternalImm ++ ExtImm ++ ObjSetImm ++
  	asn1ct_imm:enc_append([ImmSetExt] ++ ImmOptionals ++ ImmBody).
  
  gen_encode_extaddgroup(CompList) ->
      case extgroup_pos_and_length(CompList) of
  
negative.code: 		 _ ->
  		     []
  	     end,
      {EncObj,ObjSetImm} = enc_table(Gen, TableConsInfo, D),
      ImmSetExt =
  	case Ext of
  	    {ext,_Pos,NumExt2} when NumExt2 > 0 ->
  