Changeset 3455


Ignore:
Timestamp:
Feb 29, 2008, 7:41:45 PM (13 years ago)
Author:
yura
Message:
  • Woring Alpha version of debugger - lines are in AST.
Location:
to-imperative/trunk/compiler
Files:
6 edited

Legend:

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

    r3366 r3455  
    122122  e.asail : t.item e.rest, t.item : {
    123123    (s.tag UNDEF e) = ;
     124    (LINENUMBER sN) = ;
    124125    (NATIVE s.linkage s.tag (e.name) (e.in) (e.out) e.native) =
    125126        <Del_Pragmas <Gener_Var_Indices 1 (<Vars e.in>) 'arg'>> : e.rfArg s,
  • to-imperative/trunk/compiler/rfp_asail_java.rf

    r3422 r3455  
    121121  e.asail : t.item e.rest, t.item : {
    122122    (s.tag IMPORT e) = /*empty*/;
     123    (LINENUMBER sN) = /*empty*/;
    123124    (NATIVE s.linkage s.tag t.qname (e.in) (e.out) e.native) = <WrapGen s.linkage s.tag t.qname (e.in) (e.out) e.native>;
    124125    (s.tag s.linkage t.name (e.args) (e.ress) e.body),
  • to-imperative/trunk/compiler/rfp_asail_jbc.rf

    r3450 r3455  
    7373$func CW = s;
    7474CW, <Get &CWbox> : s.cv = s.cv;
    75 
    76 $box MethodCallList;
    7775
    7876RFP_ASAIL_To_JBC (MODULE (e.moduleName) e.module) =
     
    306304    t.qname : (e s.name),
    307305    <Check_Name s.name>,
    308     {
    309       <Get &CallList> : e (s.name e.methodCallList) e,
    310         <Store &MethodCallList e.methodCallList>;
    311       <Store &MethodCallList>;
    312     },
    313306    <Add &ACC_STATIC <Access_Mode s.linkage>> :: s.access,
    314307    <Function_Description (e.args) (e.ress) s.retType> :: s.desc,
     
    367360
    368361Body_Item_To_JBC {
     362  (LINENUMBER sN) =
     363    <Label> :: s.line,
     364    <MVvisitLabel <MV> s.line>,
     365    <MVvisitLineNumber <MV> sN s.line>;
    369366  (DECL (INT t.var) e.expr) =
    370367    <Bind_Var Int t.var> :: s.i,
     
    533530        }, $fail;;
    534531    },
    535     {
    536       <Get &MethodCallList> : s.lineNumber e.tail,
    537         <Store &MethodCallList e.tail>,
    538         <Label> :: s.line,
    539         <MVvisitLabel <MV> s.line>,
    540         <MVvisitLineNumber <MV> s.lineNumber s.line>;
    541       ;
    542     },
    543532    <MVvisitMethodInsn <MV> &INVOKESTATIC <GetJBCQName e.module s.name> s.desc>,
    544533    {
     
    681670            <MVvisitVarInsn <MV> &ALOAD s.i>;
    682671        }, $fail;;
    683     },
    684     {
    685       <Get &MethodCallList> : s.lineNumber e.tail,
    686         <Store &MethodCallList e.tail>,
    687         <Label> :: s.line,
    688         <MVvisitLabel <MV> s.line>,
    689         <MVvisitLineNumber <MV> s.lineNumber s.line>;
    690       ;
    691672    },
    692673    <MVvisitMethodInsn <MV> &INVOKESTATIC <GetJBCQName e.module s.name> s.desc>,
  • to-imperative/trunk/compiler/rfp_compile.rf

    r3368 r3455  
    6565$func Comp_Func s.linkage s.tag t.name e.params_and_body = e.compiled_func;
    6666
    67 $func Comp_Sentence e.Sentence = e.asail_sentence;
     67$func Comp_Sentence s.Istail (e.fails) (e.last_Re) e.Sentence = e.asail_sentence;
    6868
    6969$func Save_Snt_State = ;
     
    214214
    215215Comp_Sentence s.Istail (v.fails) (e.last_Re) e.Sentence, e.Sentence : {
     216  (LINENUMBER sN) e.Snt = (LINENUMBER sN) <Comp_Sentence s.Istail (v.fails) (e.last_Re) e.Snt>;
    216217
    217218  /*empty*/ = /*empty*/;
  • to-imperative/trunk/compiler/rfpc.rf

    r3451 r3455  
    8080      (e.jbcs (<ToWord <Intersperse ('/') e.java_module_name>> s.bytecode)) (e.outtail);
    8181  } :: (e.jbcs) (e.out), e.out : /*empty*/, e.jbcs;
    82 
    83 CompileASToJBC2 t.as (e.callList) =
    84   <Store &CallList e.callList>,
    85   <CompileASToJBC t.as>;
    8682
    8783Main =
  • to-imperative/trunk/compiler/rfpc.rfi

    r3451 r3455  
    1414
    1515$func CompileASToJBC t.as = e.jbcs;
    16 $func CompileASToJBC2 t.as t.callList = e.jbcs;
    17 
    18 $box CallList;
    1916
    2017$func RFP_Pretty_Print s.channel (e.indent) e.expr = ;
Note: See TracChangeset for help on using the changeset viewer.