binutils-2.17/opcodes/m68k-dis.c

61 #define NEXTBYTE(p)  (p += 2, FETCH_DATA (info, p), COERCE_SIGNED_CHAR(p[-1]))
66   (p += 2, FETCH_DATA (info, p), \
72   (p += 4, FETCH_DATA (info, p), \
77   (p += 4, FETCH_DATA (info, p), \
82   (p += 4, FETCH_DATA (info, p), \
87   (p += 8, FETCH_DATA (info, p), \
92   (p += 12, FETCH_DATA (info, p), \
100   (p += 12, FETCH_DATA (info, p), 0.0)
120 #define FETCH_DATA(info, addr) \
121   ((addr) <= ((struct private *) (info->private_data))->max_fetched \
122    ? 1 : fetch_data ((info), (addr)))
125 fetch_data (struct disassemble_info *info, bfd_byte *addr)
128   struct private *priv = (struct private *)info->private_data;
131   status = (*info->read_memory_func) (start,
134 				      info);
137       (*info->memory_error_func) (status, start, info);
157 		     struct disassemble_info *info ATTRIBUTE_UNUSED)
170 	   disassemble_info *info)
219       FETCH_DATA (info, buffer + 3);
224       FETCH_DATA (info, buffer + 3);
229       FETCH_DATA (info, buffer + 3);
235       FETCH_DATA (info, buffer + 3);
242       FETCH_DATA (info, buffer + 3);
247       FETCH_DATA (info, buffer + 5);
253       FETCH_DATA (info, buffer + 5);
259       FETCH_DATA (info, buffer + 5);
264       FETCH_DATA (info, buffer + 3);
270       FETCH_DATA (info, buffer + 3);
276       FETCH_DATA (info, buffer + 3);
444 print_base (int regno, bfd_vma disp, disassemble_info *info)
448       (*info->fprintf_func) (info->stream, "%%pc@(");
449       (*info->print_address_func) (disp, info);
456 	(*info->fprintf_func) (info->stream, "@(");
458 	(*info->fprintf_func) (info->stream, "%%zpc@(");
460 	(*info->fprintf_func) (info->stream, "%s@(", reg_names[regno]);
463       (*info->fprintf_func) (info->stream, "%s", buf);
475 	       disassemble_info *info)
502       print_base (basereg, base_disp, info);
503       (*info->fprintf_func) (info->stream, ",%s)", buf);
533       print_base (basereg, base_disp, info);
535 	(*info->fprintf_func) (info->stream, ",%s", buf);
536       (*info->fprintf_func) (info->stream, ")");
551   print_base (basereg, base_disp, info);
554       (*info->fprintf_func) (info->stream, ",%s", buf);
558   (*info->fprintf_func) (info->stream, ")@(%s", vmabuf);
560     (*info->fprintf_func) (info->stream, ",%s", buf);
561   (*info->fprintf_func) (info->stream, ")");
576 		disassemble_info *info)
594         val = fetch_arg (buffer, place, 2, info);
595         (*info->fprintf_func) (info->stream, cacheFieldName[val]);
601         (*info->fprintf_func)
602 	  (info->stream,
604 	   reg_names[fetch_arg (buffer, place, 3, info) + 8]);
611 	(*info->print_address_func) (uval, info);
616       (*info->fprintf_func) (info->stream, "%%ccr");
620       (*info->fprintf_func) (info->stream, "%%sr");
624       (*info->fprintf_func) (info->stream, "%%usp");
628       (*info->fprintf_func) (info->stream, "%%acc");
632       (*info->fprintf_func) (info->stream, "%%macsr");
636       (*info->fprintf_func) (info->stream, "%%mask");
657 	val = fetch_arg (buffer, place, 12, info);
661 	      (*info->fprintf_func) (info->stream, "%s", names[regno].name);
665 	  (*info->fprintf_func) (info->stream, "%d", val);
670       val = fetch_arg (buffer, place, 3, info);
674       (*info->fprintf_func) (info->stream, "#%d", val);
678       val = fetch_arg (buffer, place, 3, info);
682       (*info->fprintf_func) (info->stream, "#%d", val);
689 	  val = fetch_arg (buffer, place, 1, info);
690 	  (*info->fprintf_func) (info->stream, scalefactor_name[val]);
694 	  val = fetch_arg (buffer, place, 8, info);
697 	  (*info->fprintf_func) (info->stream, "#%d", val);
702       val = fetch_arg (buffer, place, 4, info);
703       (*info->fprintf_func) (info->stream, "#%d", val);
707       (*info->fprintf_func) (info->stream, "%s",
708 			     reg_names[fetch_arg (buffer, place, 3, info)]);
712       (*info->fprintf_func)
713 	(info->stream, "%s",
714 	 reg_names[fetch_arg (buffer, place, 3, info) + 010]);
718       (*info->fprintf_func)
719 	(info->stream, "%s",
720 	 reg_names[fetch_arg (buffer, place, 4, info)]);
724       regno = fetch_arg (buffer, place, 4, info);
726 	(*info->fprintf_func) (info->stream, "%s@", reg_names[regno]);
728 	(*info->fprintf_func) (info->stream, "@(%s)", reg_names[regno]);
732       (*info->fprintf_func)
733 	(info->stream, "%%fp%d",
734 	 fetch_arg (buffer, place, 3, info));
738       val = fetch_arg (buffer, place, 6, info);
740 	(*info->fprintf_func) (info->stream, "%s", reg_names[val & 7]);
742 	(*info->fprintf_func) (info->stream, "%d", val);
746       (*info->fprintf_func)
747 	(info->stream, "%s@+",
748 	 reg_names[fetch_arg (buffer, place, 3, info) + 8]);
752       (*info->fprintf_func)
753 	(info->stream, "%s@-",
754 	 reg_names[fetch_arg (buffer, place, 3, info) + 8]);
759 	(*info->fprintf_func)
760 	  (info->stream, "{%s}",
761 	   reg_names[fetch_arg (buffer, place, 3, info)]);
764 	  val = fetch_arg (buffer, place, 7, info);
767 	  (*info->fprintf_func) (info->stream, "{#%d}", val);
777 	val = fetch_arg (buffer, place, 4, info);
779 	val = fetch_arg (buffer, place, 7, info);
781 	val = fetch_arg (buffer, place, 3, info);
783 	val = fetch_arg (buffer, place, 8, info);
792       (*info->fprintf_func) (info->stream, "#%d", val);
822       (*info->print_address_func) (addr + disp, info);
827       (*info->fprintf_func)
828 	(info->stream, "%s@(%d)",
829 	 reg_names[fetch_arg (buffer, place, 3, info) + 8], val);
833       (*info->fprintf_func) (info->stream, "%s",
834 			     fpcr_names[fetch_arg (buffer, place, 3, info)]);
838       val = fetch_arg(buffer, place, 2, info);
839       (*info->fprintf_func) (info->stream, "%%acc%d", val);
843       val = fetch_arg(buffer, place, 1, info);
844       (*info->fprintf_func) (info->stream, "%%accext%s", val==0 ? "01" : "23");
848       val = fetch_arg(buffer, place, 2, info);
850 	(*info->fprintf_func) (info->stream, "<<");
852 	(*info->fprintf_func) (info->stream, ">>");
859       val = fetch_arg (buffer, 'd', 3, info);
862 	(*info->fprintf_func) (info->stream, "(cpid=%d) ", val);
891 	  val = fetch_arg (buffer, 'x', 6, info);
895 	val = fetch_arg (buffer, 's', 6, info);
907 	  (*info->fprintf_func) (info->stream, "%s", reg_names[val]);
911 	  (*info->fprintf_func) (info->stream, "%s", regname);
915 	  (*info->fprintf_func) (info->stream, "%s@", regname);
919 	  (*info->fprintf_func) (info->stream, "%s@+", regname);
923 	  (*info->fprintf_func) (info->stream, "%s@-", regname);
928 	  (*info->fprintf_func) (info->stream, "%s@(%d)", regname, val);
932 	  p = print_indexed (regno, p, addr, info);
940 	      (*info->print_address_func) (val, info);
945 	      (*info->print_address_func) (uval, info);
950 	      (*info->fprintf_func) (info->stream, "%%pc@(");
951 	      (*info->print_address_func) (addr + val, info);
952 	      (*info->fprintf_func) (info->stream, ")");
956 	      p = print_indexed (-1, p, addr, info);
998 		(*info->fprintf_func) (info->stream, "#%g", flval);
1000 		(*info->fprintf_func) (info->stream, "#%d", val);
1013 	  val = fetch_arg (buffer, place, 1, info);
1015 	    info->fprintf_func (info->stream, "&");
1031 		(*info->fprintf_func) (info->stream, "#0");
1051 		    (*info->fprintf_func) (info->stream, "/");
1053 		  (*info->fprintf_func) (info->stream, "%s", reg_names[regno]);
1058 		    (*info->fprintf_func) (info->stream, "-%s",
1066 	    val = fetch_arg (buffer, place, 8, info);
1069 		(*info->fprintf_func) (info->stream, "#0");
1088 		    (*info->fprintf_func) (info->stream, "/");
1090 		  (*info->fprintf_func) (info->stream, "%%fp%d", regno);
1095 		    (*info->fprintf_func) (info->stream, "-%%fp%d", regno);
1101 	    (*info->fprintf_func) (info->stream, "%s",
1103 							 info)]);
1119 	int val = fetch_arg (buffer, place, 5, info);
1141 	      (*info->fprintf_func)
1142 		(info->stream, val == 0x1c ? "%%bad%d" : "%%bac%d",
1147 	    (*info->fprintf_func) (info->stream, "<mmu register %d>", val);
1150 	  (*info->fprintf_func) (info->stream, "%s", name);
1156 	int fc = fetch_arg (buffer, place, 5, info);
1159 	  (*info->fprintf_func) (info->stream, "%%dfc");
1161 	  (*info->fprintf_func) (info->stream, "%%sfc");
1164 	  (*info->fprintf_func) (info->stream, _("<function code %d>"), fc);
1169       (*info->fprintf_func) (info->stream, "%%val");
1174 	int level = fetch_arg (buffer, place, 3, info);
1176 	(*info->fprintf_func) (info->stream, "%d", level);
1183 	int reg = fetch_arg (buffer, place, 5, info);
1190 	(*info->fprintf_func) (info->stream, "%s%s",
1208 		 disassemble_info * info,
1215   struct private *priv = (struct private *) info->private_data;
1217   fprintf_ftype save_printer = info->fprintf_func;
1219     = info->print_address_func;
1284       FETCH_DATA (info, p);
1289   FETCH_DATA (info, p);
1294   info->print_address_func = dummy_print_address;
1295   info->fprintf_func = (fprintf_ftype) dummy_printer;
1301       int eaten = print_insn_arg (d, buffer, p, memaddr + (p - buffer), info);
1307 	  info->fprintf_func = save_printer;
1308 	  info->print_address_func = save_print_address;
1313 	  info->fprintf_func (info->stream,
1317 	  info->fprintf_func = save_printer;
1318 	  info->print_address_func = save_print_address;
1324   info->fprintf_func = save_printer;
1325   info->print_address_func = save_print_address;
1329   info->fprintf_func (info->stream, "%s", best->name);
1332     info->fprintf_func (info->stream, " ");
1336       p += print_insn_arg (d, buffer, p, memaddr + (p - buffer), info);
1340 	info->fprintf_func (info->stream, ",");
1352 m68k_scan_mask (bfd_vma memaddr, disassemble_info *info,
1362   struct private *priv = (struct private *) info->private_data;
1391   FETCH_DATA (info, buffer + 2);
1405 	      (FETCH_DATA (info, buffer + 4)
1434 		      val = fetch_arg (buffer, d[1], 3, info);
1448 		      val = fetch_arg (buffer, 'd', 3, info);
1456 	    if ((val = match_insn_m68k (memaddr, info, opc)))
1467 print_insn_m68k (bfd_vma memaddr, disassemble_info *info)
1475   info->private_data = (PTR) &priv;
1478   info->bytes_per_chunk = 2;
1479   info->bytes_per_line = 6;
1480   info->display_endian = BFD_ENDIAN_BIG;
1488   arch_mask = bfd_m68k_mach_to_features (info->mach);
1493       val = m68k_scan_mask (memaddr, info, m68k_mask);
1497       val = m68k_scan_mask (memaddr, info, mcf_mask);
1503       val = m68k_scan_mask (memaddr, info, arch_mask);
1509   info->fprintf_func (info->stream, "0%o", (buffer[0] << 8) + buffer[1]);