[NF] Minor fixes.

Belonging to [master]:
  - #2801

Author: perost

Compiler/NFFrontEnd/NFCall.mo

@@ -1062,7 +1062,7 @@ protected
           next_origin := ExpOrigin.setFlag(origin, ExpOrigin.SUBEXPRESSION);
 
           for arg in call.arguments loop
-            (arg, arg_ty, arg_var) := Typing.typeExp(arg, origin, info);
+            (arg, arg_ty, arg_var) := Typing.typeExp(arg, next_origin, info);
             typedArgs := (arg, arg_ty, arg_var) :: typedArgs;
           end for;
 
@@ -1071,7 +1071,7 @@ protected
           typedNamedArgs := {};
           for narg in call.named_args loop
             (name,arg) := narg;
-            (arg, arg_ty, arg_var) := Typing.typeExp(arg, origin, info);
+            (arg, arg_ty, arg_var) := Typing.typeExp(arg, next_origin, info);
             typedNamedArgs := (name, arg, arg_ty, arg_var) :: typedNamedArgs;
           end for;
 

Compiler/NFFrontEnd/NFTyping.mo

@@ -1089,6 +1089,12 @@ algorithm
       then
         (e1, ty, var1);
 
+    case Expression.CAST()
+      algorithm
+        next_origin := ExpOrigin.setFlag(origin, ExpOrigin.SUBEXPRESSION);
+      then
+        typeExp(exp.exp, next_origin, info);
+
     // Subscripted expressions are assumed to already be typed.
     case Expression.SUBSCRIPTED_EXP()
       then (exp, exp.ty, Expression.variability(exp));