trident.dat

一种将c高级语言转化给VHDL的编译器

;LA-CC 05-135 Trident 0.7.1
;
;Copyright Notice
;Copyright 2006 (c) the Regents of the University of California.
;
;This Software was produced under a U.S. Government contract 
;(W-7405-ENG-36) by Los Alamos National Laboratory, which is operated by 
;the University of California for the U.S. Department of Energy. The U.S. 
;Government is licensed to use, reproduce, and distribute this Software. 
;Permission is granted to the public to copy and use this Software without 
;charge, provided that this Notice and any statement of authorship are 
;reproduced on all copies. Neither the Government nor the University makes 
;any warranty, express or implied, or assumes any liability or 
;responsibility for the user of this Software.


(library Trident
  (libname tr)
  (libinclude Trident.TridentComps.all)  

  (libobject fpinv tr_fpinv
    (generic ew (integer 8))
    (generic mw (integer 24))
    (port in 
      (name a) 
      (type std_logic) 
      (size (mw ew +)))
    (port out 
      (name q) 
      (type std_logic) 
      (size (mw ew +)))
    (map a in0)
    (map q out)
    (gmap ew 8)
    (gmap mw 24)
  )

  (libobject fpinv tr_dpinv
    (generic ew (integer 11))
    (generic mw (integer 53))
    (port in 
      (name a) 
      (type std_logic) 
      (size (mw ew +)))
    (port out 
      (name q) 
      (type std_logic) 
      (size (mw ew +)))
    (map a in0)
    (map q out)
    (gmap ew 11)
    (gmap mw 53)
  )

  (libobject fpabs tr_fpabs
    (generic ew (integer 8))
    (generic mw (integer 24))
    (port in 
      (name a) 
      (type std_logic) 
      (size (mw ew +)))
    (port out 
      (name q) 
      (type std_logic) 
      (size (mw ew +)))
    (map a in0)
    (map q out)
    (gmap ew 8)
    (gmap mw 24)
  )

  (libobject fpabs tr_dpabs
    (generic ew (integer 11))
    (generic mw (integer 53))
    (port in 
      (name a) 
      (type std_logic) 
      (size (mw ew +)))
    (port out 
      (name q) 
      (type std_logic) 
      (size (mw ew +)))
    (map a in0)
    (map q out)
    (gmap ew 11)
    (gmap mw 53)
  )
  
  (libobject i_to_fp tr_itofp
    (port in 
      (name vec_int) 
      (type std_logic) 
      (size 32))
    (port in 
      (name clk) 
      (type std_logic) 
      (size 1))
    (port out 
      (name vec_fp) 
      (type std_logic) 
      (size 32))
    (map vec_int in0)
    (map clk clk)
    (map vec_fp out)
  )
  
  (libobject i_to_dp tr_itodp
    (port in 
      (name vec_int) 
      (type std_logic) 
      (size 64))
    (port in 
      (name clk) 
      (type std_logic) 
      (size 1))
    (port out 
      (name vec_dp) 
      (type std_logic) 
      (size 64))
    (map vec_int in0)
    (map clk clk)
    (map vec_dp out)
  )
  
  (libobject fp_to_dp tr_fptodp
    (port in 
      (name vec_fp) 
      (type std_logic) 
      (size 32))
    (port in 
      (name clk) 
      (type std_logic) 
      (size 1))
    (port out 
      (name vec_dp) 
      (type std_logic) 
      (size 64))
    (map vec_fp in0)
    (map clk clk)
    (map vec_dp out)
  )
  
  (libobject dp_to_fp tr_dptofp
    (port in 
      (name vec_dp) 
      (type std_logic) 
      (size 64))
    (port in 
      (name clk) 
      (type std_logic) 
      (size 1))
    (port out 
      (name vec_fp) 
      (type std_logic) 
      (size 32))
    (map vec_dp in0)
    (map clk clk)
    (map vec_fp out)
  )
  
  (libobject fp_to_i tr_fptoi
    (port in 
      (name vec_fp) 
      (type std_logic) 
      (size 32))
    (port in 
      (name clk) 
      (type std_logic) 
      (size 1))
    (port out 
      (name vec_int) 
      (type std_logic) 
      (size 32))
    (map vec_fp in0)
    (map clk clk)
    (map vec_int out)
  )
  
  (libobject dp_to_i tr_dptoi
    (port in 
      (name vec_dp) 
      (type std_logic) 
      (size 64))
    (port in 
      (name clk) 
      (type std_logic) 
      (size 1))
    (port out 
      (name vec_int) 
      (type std_logic) 
      (size 64))
    (map vec_dp in0)
    (map clk clk)
    (map vec_int out)
  )


)