From 45a62f08072d612306a10563808b273b473cb783 Mon Sep 17 00:00:00 2001
From: Hans Svensson <hans.svensson@quviq.com>
Date: Wed, 24 Apr 2019 08:44:05 +0200
Subject: [PATCH] Simplify ast_typerep

---
 src/aeso_ast_to_icode.erl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/aeso_ast_to_icode.erl b/src/aeso_ast_to_icode.erl
index 659cb01..62dc31a 100644
--- a/src/aeso_ast_to_icode.erl
+++ b/src/aeso_ast_to_icode.erl
@@ -696,11 +696,8 @@ ast_typerep({qid, _, Name}, Icode) ->
     lookup_type_id(Name, [], Icode);
 ast_typerep({con, _, _}, _) ->
     word;   %% Contract type
-ast_typerep({bytes_t, _, Len}, _) when Len =< 32 ->
-    word;
 ast_typerep({bytes_t, _, Len}, _) ->
-    Words = (31 + Len) div 32,
-    {tuple, lists:duplicate(Words, word)};
+    bytes_t(Len);
 ast_typerep({app_t, _, {id, _, Name}, Args}, Icode) ->
     ArgReps = [ ast_typerep(Arg, Icode) || Arg <- Args ],
     lookup_type_id(Name, ArgReps, Icode);