Changeset 4014

Timestamp:

Oct 31, 2008, 1:25:03 AM (12 years ago)

Author:

orlov

Message:

• Print more clear error messages when $native fails.

File:

• to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf (modified) (2 diffs)

to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf

@@ -1570 +1570 @@
       { <ToChars s.javaType> : 'L' e.intName ';', <ToWord e.intName>; s.javaType; } :: s.javaType,
       <IIMVvisitTypeInsn <MV> <CHECKCAST> s.javaType>;
+    e = $error "Can't convert Refal type "t.refType" to Java type "s.javaType;
   };
 
@@ -1591 +1592 @@
       (EVAR e) ('[[' e) = "[Ljava/lang/Object;"; // Array of arrays
       (EVAR e) ('['  e) = s.javaType; // Array of primitive type
+      e = $error "Can't convert Java type "s.javaType" to Refal type "t.refType;
     } :: s.javaType,
     <IIMVvisitMethodInsn <MV> <INVOKESTATIC> "org/refal/plus/Native" "toExpr" <ToWord "("s.javaType")Lorg/refal/plus/Expr;">>;