Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/branches/SMLNJ/src/compiler/FLINT/flint/ppflint.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/FLINT/flint/ppflint.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 1998 UTC
# Line 254  Line 254 
254            say "HANDLE(";  printSval value;  say ")")            say "HANDLE(";  printSval value;  say ")")
255    
256        | pLexp (F.BRANCH ((d, primop, lty, tycs), values, body1, body2)) =        | pLexp (F.BRANCH ((d, primop, lty, tycs), values, body1, body2)) =
257           (* IF PRIM(<primop>, <lty>, [<tycs>]) [<values>] THEN           (* IF PRIM(<primop>, <lty>, [<tycs>]) [<values>]
258              * THEN
259            *   <body1>            *   <body1>
260            * ELSE            * ELSE
261            *   <body2>            *   <body2>
# Line 264  Line 265 
265            say (PO.prPrimop primop);  say ", ";            say (PO.prPrimop primop);  say ", ";
266            printLty lty;  say ", ";            printLty lty;  say ", ";
267            printTycList tycs;  say ") ";            printTycList tycs;  say ") ";
268            printValList values;            printValList values; newline();
269            say " THEN";            dent();
270            newline();  dent(); pLexp body1;            appPrint printBranch (newline & dent)
271            newline();  say "ELSE";                [("THEN", body1), ("ELSE", body2)])
           newline();  dent(); pLexp body2)  
272    
273        | pLexp (F.PRIMOP (p as (_, PO.MKETAG, _, _), [value], lvar, body)) =        | pLexp (F.PRIMOP (p as (_, PO.MKETAG, _, _), [value], lvar, body)) =
274           (* <lvar> = ETAG(<value>[<tyc>])           (* <lvar> = ETAG(<value>[<tyc>])
# Line 343  Line 343 
343           printDecon con;           printDecon con;
344           pLexp lexp; undent 4)           pLexp lexp; undent 4)
345    
346        and printBranch (s, lexp) =
347            (say s;
348             indent 4; newline(); dent();
349             pLexp lexp; undent 4)
350    
351      fun printLexp lexp = pLexp lexp before (newline(); newline())      fun printLexp lexp = pLexp lexp before (newline(); newline())
352    
353      fun printProg prog = (printFundec prog; newline())      fun printProg prog = (printFundec prog; newline())

Legend:
Removed from v.68  
changed lines
  Added in v.69

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0