Changeset 2390


Ignore:
Timestamp:
Feb 11, 2007, 1:14:19 PM (14 years ago)
Author:
yura
Message:
  • Casting to object.
File:
1 edited

Legend:

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

    r2389 r2390  
    114114      <MVvisitLdcInsn <MV> <WordToString s.rf-name>>,
    115115      <MVvisitMethodInsn <MV> &INVOKESPECIAL s.cl-name "<init>" "(Ljava/lang/String;)V">,
     116      <MVvisitTypeInsn <MV> &CHECKCAST "java/lang/Object">,
    116117      <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Expr" "<init>" "(Ljava/lang/Object;)V">,
    117118      <MVvisitFieldInsn <MV> &PUTSTATIC s.class-name s.j-name "Lorg/refal/plus/Expr;">,
     
    556557    <MVvisitInsn <MV> &DUP>,
    557558    <Expr-Ref-To-JBC e.expr>,
     559    <MVvisitTypeInsn <MV> &CHECKCAST "java/lang/Object">,
    558560    <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Expr" "<init>" "(Ljava/lang/Object;)V">;
    559561  (DEREF e.expr (e.pos)) =
     
    763765    <MVvisitInsn <MV> &DUP>,
    764766    <Const-Expr-To-JBC e.expr>,
     767    <MVvisitTypeInsn <MV> &CHECKCAST "java/lang/Object">,
    765768    <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Expr" "<init>" "(Ljava/lang/Object;)V">;
    766769  t.term, t.term : \{
     
    778781    <MVvisitInsn <MV> &DUP>,
    779782    <MVvisitMethodInsn <MV> &INVOKESPECIAL s.cl-name "<init>" "()V">,
     783    <MVvisitTypeInsn <MV> &CHECKCAST "java/lang/Object">,
    780784    <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Expr" "<init>" "(Ljava/lang/Object;)V">;
    781785  s.sym, {
     
    790794          <MVvisitLdcInsn <MV> <WordToString <To-Word s.sym>>>,
    791795          <MVvisitMethodInsn <MV> &INVOKESPECIAL "java/math/BigInteger" "<init>" "(Ljava/lang/String;)V">,
     796          <MVvisitTypeInsn <MV> &CHECKCAST "java/lang/Object">,
    792797          <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Expr" "<init>" "(Ljava/lang/Object;)V">;
    793798        //    () ('new Expr (new '<? &Int>' ("'s.sym'"))');
     
    800805      <MVvisitLdcInsn <MV> <WordToString <To-Word <Symbol-To-JBC s.sym>>>>,
    801806      <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Word" "<init>" "(Ljava/lang/String;)V">,
     807      <MVvisitTypeInsn <MV> &CHECKCAST "java/lang/Object">,
    802808      <MVvisitMethodInsn <MV> &INVOKESPECIAL "org/refal/plus/Expr" "<init>" "(Ljava/lang/Object;)V">;
    803809  };
Note: See TracChangeset for help on using the changeset viewer.