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

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/backpatch/noDelaySlots.sml
ViewVC logotype

View of /sml/trunk/src/MLRISC/backpatch/noDelaySlots.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 427 - (download) (annotate)
Wed Sep 8 09:40:08 1999 UTC (19 years, 9 months ago) by monnier
File size: 1416 byte(s)
Initial revision
(* 
 * This is a default description for architectures without *any* delay slots.
 * By using this dummy module the architecture can use the spanDep.sml 
 * module for span dependency resolution.
 *
 * -- Allen
 *)

functor NoDelaySlots(I : INSTRUCTIONS) : DELAY_SLOT_PROPERTIES =
struct
   structure I = I

   datatype delay_slot = 
     D_NONE        (* no delay slot *)
   | D_ERROR       (* an error *)    
   | D_ALWAYS      (* one delay slot *)
   | D_TAKEN       (* delay slot is only active when branch is taken *)
   | D_FALLTHRU    (* delay slot is only active when branch is not taken *)

       (* size of delay slot in bytes *)
   val delaySlotSize = 0 

       (* Return the delay slot properties of an instruction *)
   fun delaySlot{instr,backward} =
        { n   = false,   (* is the nullified bit on? *)
          nOn = D_ERROR, (* delay type when nullified *)
          nOff= D_NONE,  (* delay type when not nullified *)
          nop = false    (* is there a nop padded? *) 
        } 

       (* Change the delay slot properties of an instruction *)
   fun enableDelaySlot{instr,n,nop} = instr 

       (* is there any dependency conflict? *)
   fun conflict{regmap,src,dst} = true

       (* can delaySlot fit within the delay slot of jmp? *)
   fun delaySlotCandidate{jmp, delaySlot} = false

       (* change the branch target of an instruction *)
   fun setTarget(instr,label) = instr

end

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