Fix serialising IEEE 754-2008 decimals

Author: ansd

deps/amqp10_common/src/amqp10_binary_generator.erl

@@ -177,8 +177,8 @@ generate1({array, Type, List}) ->
            [16#e0, S + 1, Count, Array]
     end;
 
-generate1({as_is, TypeCode, Bin}) ->
-    <<TypeCode, Bin>>.
+generate1({as_is, TypeCode, Bin}) when is_binary(Bin) ->
+    [TypeCode, Bin].
 
 constructor(symbol) -> 16#b3;
 constructor(ubyte) -> 16#50;

deps/amqp10_common/test/binary_generator_SUITE.erl

@@ -105,6 +105,12 @@ numerals(_Config) ->
     roundtrip({double, 0.0}),
     roundtrip({double, 1.0}),
     roundtrip({double, -1.0}),
+    %% decimal32
+    roundtrip({as_is, 16#74, binary:copy(<<0>>, 4)}),
+    %% decimal64
+    roundtrip({as_is, 16#84, binary:copy(<<0>>, 8)}),
+    %% decimal128
+    roundtrip({as_is, 16#94, binary:copy(<<0>>, 16)}),
     ok.
 
 utf8(_Config) ->