Changeset 4014


Ignore:
Timestamp:
Oct 31, 2008, 1:25:03 AM (12 years ago)
Author:
orlov
Message:
  • Print more clear error messages when $native fails.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf

    r3962 r4014  
    15701570      { <ToChars s.javaType> : 'L' e.intName ';', <ToWord e.intName>; s.javaType; } :: s.javaType,
    15711571      <IIMVvisitTypeInsn <MV> <CHECKCAST> s.javaType>;
     1572    e = $error "Can't convert Refal type "t.refType" to Java type "s.javaType;
    15721573  };
    15731574
     
    15911592      (EVAR e) ('[[' e) = "[Ljava/lang/Object;"; // Array of arrays
    15921593      (EVAR e) ('['  e) = s.javaType; // Array of primitive type
     1594      e = $error "Can't convert Java type "s.javaType" to Refal type "t.refType;
    15931595    } :: s.javaType,
    15941596    <IIMVvisitMethodInsn <MV> <INVOKESTATIC> "org/refal/plus/Native" "toExpr" <ToWord "("s.javaType")Lorg/refal/plus/Expr;">>;
Note: See TracChangeset for help on using the changeset viewer.