Ignore:
Timestamp:
Jul 27, 2006, 8:40:44 AM (14 years ago)
Author:
orlov
Message:
  • Proper generation of debug info for use with Debug library (-dbg option).
  • Result expressions can contain blocks.
File:
1 edited

Legend:

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

    r1960 r2034  
    2525$use "rfp_lex"; // rfp_lex.rfi
    2626$use "rfp_parse"; // rfp_parse.rfi
    27 $use "rfp_debug"; // rfp_debug.rfi
    2827$use "rfp_compile"; // rfp_compile.rfi
    2928$use "rfp_asail_cpp"; //rfp_asail_cpp.rfi
     
    198197            <In-Table? &RFP-Options AS-TRANSFORMED>;
    199198          },
    200           {
    201             <In-Table? &RFP-Options DBG> =
    202               <Verbose "debug-text generation started">,
    203               <RFP-Debug e.Items> :: e.Items,
    204               <Verbose "debug-text generation finished">,
    205               e.Items;
    206             e.Items;
    207           } :: e.Items,   
    208199          {
    209200            <In-Table? &RFP-Options NO-TRANSFORM> = e.Items;
     
    592583        <Bind &Fun? (t.FName) (IMPORT FUNC? t.Pragma ((EVAR)) ((EVAR)))>;
    593584    },
    594       $fail;;
     585      $fail;
     586    {
     587      <In-Table? &RFP-Options DBG> =
     588        <Bind &Fun? ((Debug Stop?)) (IMPORT FUNC? (PRAGMA) ((EVAR)) ())>,
     589        <Bind &Fun  ((Debug Debug)) (IMPORT FUNC  (PRAGMA) ((EVAR)) ())>;;
     590    };
    595591  };
    596592
     
    684680  },
    685681    <Extract-Inputs e.items>;
    686   e.items = e.items;
     682  e.items =
     683    {
     684      <In-Table? &RFP-Options DBG> = <Bind &Includes (Debug) (BOOT)>;;
     685    },
     686    e.items;
    687687};
    688688
Note: See TracChangeset for help on using the changeset viewer.