Changeset 698 for src/LIN


Ignore:
Timestamp:
Mar 18, 2011, 1:47:53 PM (9 years ago)
Author:
mulligan
Message:

Commit with changes to files to get our files to typecheck.

Location:
src/LIN
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • src/LIN/LIN.ma

    r696 r698  
    1818
    1919inductive LINStatement (globals: list (Identifier × nat)): Type[0] ≝
    20   | LIN_St_Goto: Label → LINStatement globals
    21   | LIN_St_Label: Label → LINStatement globals
     20  | LIN_St_Goto: Identifier → LINStatement globals
     21  | LIN_St_Label: Identifier → LINStatement globals
    2222  | LIN_St_Comment: String → LINStatement globals
    2323  | LIN_St_CostLabel: CostLabel → LINStatement globals
     
    3535  | LIN_St_Store: LINStatement globals
    3636  | LIN_St_CallId: Identifier → LINStatement globals
    37   | LIN_St_CondAcc: Label → LINStatement globals
     37  | LIN_St_CondAcc: Identifier → LINStatement globals
    3838  | LIN_St_Return: LINStatement globals.
    3939 
  • src/LIN/LINToASM.ma

    r696 r698  
    1 include "cerco/Util.ma".
    2 include "cerco-intermediate-languages/utilities/BitVectorTrieSet.ma".
    3 include "cerco-intermediate-languages/LIN/LIN.ma".
     1include "ASM/Util.ma".
     2include "utilities/BitVectorTrieSet.ma".
     3include "LIN/LIN.ma".
    44 
    55let rec association (i: Identifier) (l: list (Identifier × nat))
     
    267267  λl.
    268268    foldl ? ? globals_addr_internal 〈[ ], 0〉 l.
    269        
     269     
     270(*   
    270271definition translate ≝
    271272  λp.
     
    284285      ASM.phas_main = p.LIN.main <> None } in
    285286  ASMInterpret.assembly p
     287  *)
Note: See TracChangeset for help on using the changeset viewer.