diff options
| author | Dan Gudmundsson <dgud@erlang.org> | 2022-01-26 10:59:34 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <dgud@erlang.org> | 2022-01-26 10:59:34 +0100 |
| commit | a8d3dd1b49f590df60e3fec2502d598527dc4a5b (patch) | |
| tree | e386a914f891e31eecc7f611139b3a7ea5227b8c | |
| parent | 3a69aa60e9b78ba4e0206b4fbf147c21b80cd2ef (diff) | |
| parent | 017a323f0480ab537c8b548409655d04c3fc83bf (diff) | |
| download | erlang-a8d3dd1b49f590df60e3fec2502d598527dc4a5b.tar.gz | |
Merge branch 'maint'
| -rw-r--r-- | lib/debugger/src/dbg_iload.erl | 5 | ||||
| -rw-r--r-- | lib/debugger/test/record_SUITE.erl | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lib/debugger/src/dbg_iload.erl b/lib/debugger/src/dbg_iload.erl index d398e0e327..c8b62f6de2 100644 --- a/lib/debugger/src/dbg_iload.erl +++ b/lib/debugger/src/dbg_iload.erl @@ -241,8 +241,9 @@ pattern({cons,Anno,H0,T0}, St) -> pattern({tuple,Anno,Ps0}, St) -> Ps1 = pattern_list(Ps0, St), {tuple,ln(Anno),Ps1}; -pattern({record_index,Anno,Name,Field}, St) -> - index_expr(Anno, Field, Name, record_fields(Name, Anno, St)); +pattern({record_index,Anno,Name,Field} = _DBG, St) -> + Expr = index_expr(Anno, Field, Name, record_fields(Name, Anno, St)), + pattern(Expr, St); pattern({record,Anno,Name,Pfs}, St0) -> Fs = record_fields(Name, Anno, St0), TMs = pattern_list(pattern_fields(Fs, Pfs), St0), diff --git a/lib/debugger/test/record_SUITE.erl b/lib/debugger/test/record_SUITE.erl index a44bcc83b1..f98cb7bc9b 100644 --- a/lib/debugger/test/record_SUITE.erl +++ b/lib/debugger/test/record_SUITE.erl @@ -237,7 +237,9 @@ record_test(Config) when is_list(Config) -> 5 = record_info(size, foo), Foo2 = id(#foo{a=v1, b=true, c=false, d=v4}), 2 = #foo.a, + #foo.a = 2, 5 = #foo.d, + #foo.d = 5, v1 = Foo2#foo.a, v4 = Foo2#foo.d, |