From 982dcc29bf6cd41e967a0befe0c6195811cd6a55 Mon Sep 17 00:00:00 2001 From: Roy Frostig Date: Mon, 9 Aug 2010 15:45:08 -0700 Subject: Get object's captured typarams when calculating sizes in the backend's fn-prologue-generation for object methods. --- src/boot/me/dwarf.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/boot/me/dwarf.ml') diff --git a/src/boot/me/dwarf.ml b/src/boot/me/dwarf.ml index d3fb81de..0ec7af78 100644 --- a/src/boot/me/dwarf.ml +++ b/src/boot/me/dwarf.ml @@ -1677,7 +1677,7 @@ let dwarf_visitor in let record trec = - let rty = referent_type abi (Ast.TY_rec trec) in + let rty = referent_type word_bits (Ast.TY_rec trec) in let rty_sz = Il.referent_ty_size abi.Abi.abi_word_bits in let fix = new_fixup "record type DIE" in let die = DEF (fix, SEQ [| @@ -1926,7 +1926,7 @@ let dwarf_visitor * I'm a bit surprised by that! *) - let rty = referent_type abi (Ast.TY_tag ttag) in + let rty = referent_type word_bits (Ast.TY_tag ttag) in let rty_sz = Il.referent_ty_size abi.Abi.abi_word_bits in let rtys = match rty with -- cgit v1.2.3