Eliminate use of obsolete size/1 in generated code

It is recommended to use byte_size/1 or tuple_size/1 instead of
size/1.

5 files changed, 10 insertions, 10 deletions

diff --git a/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl b/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl
index f3a2486565..de0adef2b2 100644
--- a/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl
+++ b/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl
@@ -1162,7 +1162,7 @@ gen_objset_enc(_,ObjSetName,_UniqueName,['EXTENSIONMARK'],_ClName,
     emit({"'getenc_",ObjSetName,"'(_, _) ->",nl}),
     emit({indent(3),"fun(_, Val, _RestPrimFieldName) ->",nl}),
     emit({indent(6),"Len = case Val of",nl,indent(9),
- 	  "Bin when is_binary(Bin) -> size(Bin);",nl,indent(9),
+	  "Bin when is_binary(Bin) -> byte_size(Bin);",nl,indent(9),
  	  "_ -> length(Val)",nl,indent(6),"end,"}),
     emit({indent(6),"{Val,Len}",nl}),
     emit({indent(3),"end.",nl,nl}),
@@ -1270,7 +1270,7 @@ gen_inlined_enc_funs1(Fields,[{typefield,Name,_}|Rest],ObjSetName,
 		%% treatment.
 		emit([";",nl,indent(9),{asis,Name}," ->",nl]),
 		emit([indent(12),"Len = case Val of",nl,
-		      indent(15),"Bin when is_binary(Bin) -> size(Bin);",nl,
+		      indent(15),"Bin when is_binary(Bin) -> byte_size(Bin);",nl,
 		      indent(15),"_ -> length(Val)",nl,indent(12),"end,",nl,
 		      indent(12),"{Val,Len}"]),
 		{Acc,0}
@@ -1449,7 +1449,7 @@ gen_inlined_dec_funs(Fields,[{typefield,Name,Prop}|Rest],
 		  nl,indent(6),"case Type of",nl,
 		  indent(9),{asis,Name}," ->",nl,
 		  indent(12),"Len = case Bytes of",nl,
-		  indent(15),"B when is_binary(B) -> size(B);",nl,
+		  indent(15),"B when is_binary(B) -> byte_size(B);",nl,
 		  indent(15),"_ -> length(Bytes)",nl,
 		  indent(12),"end,",nl,
 		  indent(12),"{Bytes,[],Len}"]),
diff --git a/lib/asn1/src/asn1ct_gen_per_rt2ct.erl b/lib/asn1/src/asn1ct_gen_per_rt2ct.erl
index 5a409295fb..81d8cdcae6 100644
--- a/lib/asn1/src/asn1ct_gen_per_rt2ct.erl
+++ b/lib/asn1/src/asn1ct_gen_per_rt2ct.erl
@@ -610,9 +610,9 @@ gen_encode_objectfields(Erules,ClassName,[{typefield,Name,OptOrMand}|Rest],
 		emit(["   if",nl,
 		      "     is_list(Val) ->",nl,
 		      "       NewVal = list_to_binary(Val),",nl,
-		      "       [20,size(NewVal),NewVal];",nl,
+		      "       [20,byte_size(NewVal),NewVal];",nl,
 		      "     is_binary(Val) ->",nl,
-		      "       [20,size(Val),Val]",nl,
+		      "       [20,byte_size(Val),Val]",nl,
 		      "   end"]),
 		[];
 	    {false,{'DEFAULT',DefaultType}} ->
@@ -989,7 +989,7 @@ gen_objset_enc(_Erule,ObjSetName,_UniqueName,['EXTENSIONMARK'],_ClName,
     emit({indent(9),"is_list(Val) -> list_to_binary(Val);",nl}),
     emit({indent(9),"true -> Val",nl}),
     emit({indent(6),"end,",nl}),
-    emit({indent(6),"Size = size(BinVal),",nl}),
+    emit({indent(6),"Size = byte_size(BinVal),",nl}),
     emit({indent(6),"if",nl}),
     emit({indent(9),"Size < 256 ->",nl}),
     emit({indent(12),"[20,Size,BinVal];",nl}),
diff --git a/lib/asn1/src/asn1rtt_ber.erl b/lib/asn1/src/asn1rtt_ber.erl
index 88292aca99..5fbf116747 100644
--- a/lib/asn1/src/asn1rtt_ber.erl
+++ b/lib/asn1/src/asn1rtt_ber.erl
@@ -868,7 +868,7 @@ remove_unused_then_dotag(TagIn,Unused,BinBits) ->
 	    encode_tags(TagIn, <<0>>, 1);
 	0 ->
 	    Bin = <<Unused,BinBits/binary>>,
-	    encode_tags(TagIn,Bin,size(Bin));
+	    encode_tags(TagIn, Bin, byte_size(Bin));
 	Num ->
 	    N = byte_size(BinBits)-1,
 	    <<BBits:N/binary,LastByte>> = BinBits,
diff --git a/lib/asn1/src/asn1rtt_per.erl b/lib/asn1/src/asn1rtt_per.erl
index d02f4f548e..84ff809912 100644
--- a/lib/asn1/src/asn1rtt_per.erl
+++ b/lib/asn1/src/asn1rtt_per.erl
@@ -613,11 +613,11 @@ bit_string_trailing_zeros1(BitList,Lb,Ub) ->
 encode_bin_bit_string(C, {Unused,BinBits}, _NamedBitList)
   when is_integer(C),C=<16 ->
     range_check(C, bit_size(BinBits) - Unused),
-    [45,C,size(BinBits),BinBits];
+    [45,C,byte_size(BinBits),BinBits];
 encode_bin_bit_string(C, {Unused,BinBits}, _NamedBitList)
   when is_integer(C), C =< 255 ->
     range_check(C, bit_size(BinBits) - Unused),
-    [2,45,C,size(BinBits),BinBits];
+    [2,45,C,byte_size(BinBits),BinBits];
 encode_bin_bit_string(C, {Unused,BinBits}, _NamedBitList)
   when is_integer(C), C =< 65535 ->
     range_check(C, bit_size(BinBits) - Unused),
diff --git a/lib/asn1/src/asn1rtt_real_common.erl b/lib/asn1/src/asn1rtt_real_common.erl
index 540f0d60a5..d1668f68b2 100644
--- a/lib/asn1/src/asn1rtt_real_common.erl
+++ b/lib/asn1/src/asn1rtt_real_common.erl
@@ -88,7 +88,7 @@ encode_real(_C, {Mantissa, Base, Exponent}) when Base =:= 2 ->
 	      end,
 %%    ok = io:format("SignBitMask: ~w~n",[SignBitMask]),
     SFactor = 0,
-    OctExpLen = size(OctExp),
+    OctExpLen = byte_size(OctExp),
     if OctExpLen > 255 ->
 	    exit({error,{asn1, {to_big_exp_in_encode_real, OctExpLen}}});
        true  -> true %% make real assert later..