aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-expr.adb')
-rw-r--r--src/synth/synth-expr.adb2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 6588bf338..db35e95e4 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -853,6 +853,8 @@ package body Synth.Expr is
when Type_Record =>
-- TODO: handle elements.
return Val;
+ when Type_Access =>
+ return Val;
end case;
end Synth_Subtype_Conversion;