Advertisement
ramswa02

PrimeTime - Find registers of ARM CoreLink ADB-400, AMBA Dom

Jun 9th, 2015
509
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 2.00 KB | None | 0 0
  1. #=================================================
  2. # File          : PrimeTime - Find registers of ARM CoreLink ADB-400, AMBA Domain Bridge IP
  3. # Date          : 09-June-2015
  4. # Author        : Ramnath Swamy
  5. # Company       : ARM Ltd
  6. #=================================================
  7.  
  8.  
  9. proc rm_find_adb400_registers { type } {
  10.  
  11.   # Find destination registers instances
  12.   if {$type == "destination_registers"} {
  13.     set all_pld_regs    [lsort -dictionary -increasing [get_object_name [get_cells -hier *payld_reg_* -filter "is_sequential==true"]]]
  14.  
  15.     foreach i $all_pld_regs {
  16.       if {[string match *adb400_mst* $i]} {
  17.         puts $i
  18.       }
  19.     }
  20.   }
  21.  
  22.   # Find Slave synchronizer modules
  23.   if {$type == "slv_synchronizer_modules"} {
  24.     set all_ptr_regs    [lsort -dictionary -increasing [get_object_name [get_cells -hier *ptr_async* -filter "is_sequential==true"]]]
  25.  
  26.     foreach i $all_ptr_regs {
  27.       if {[string match *adb400_slv* $i]} {
  28.         puts $i
  29.       }
  30.     }
  31.   }
  32.  
  33.   # Find Master synchronizer modules
  34.   if {$type == "mst_synchronizer_modules"} {
  35.     set all_ptr_regs    [lsort -dictionary -increasing [get_object_name [get_cells -hier *ptr_async*]]]
  36.  
  37.     foreach i $all_ptr_regs {
  38.       if {[string match *adb400_mst* $i]} {
  39.         puts $i
  40.       }
  41.     }
  42.   }
  43.  
  44.   # Find slot registers
  45.   if {$type == "slot_registers"} {
  46.     set all_slot_regs    [lsort -dictionary -increasing [get_object_name [get_cells -hier *data_reg* -filter "is_sequential==true"]]]
  47.  
  48.     foreach i $all_slot_regs {
  49.       if {[string match *u_adb400_slv* $i]} {
  50.         puts $i
  51.       }
  52.     }
  53.   }
  54.  
  55.   if {$type != "destination_registers" && $type != "slv_synchronizer_modules" && $type != "mst_synchronizer_modules"  && $type != "slot_registers"} {
  56.     puts ""
  57.     puts "Error: rm_find_adb400_registers: type = $type is not a valid entry.  Specify one of the following"
  58.     puts "\n         type = destination_registers | slv_synchronizer_modules | mst_synchronizer_modules | slot_registers"
  59.     puts ""
  60.   }
  61. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement