1 //===-- RegisterContextDarwin_i386.cpp --------------------------*- C++ -*-===//
3 // The LLVM Compiler Infrastructure
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
8 //===----------------------------------------------------------------------===//
12 #include <stddef.h> // offsetof
15 // Other libraries and framework includes
16 #include "lldb/Core/DataBufferHeap.h"
17 #include "lldb/Core/DataExtractor.h"
18 #include "lldb/Core/Log.h"
19 #include "lldb/Core/RegisterValue.h"
20 #include "lldb/Core/Scalar.h"
21 #include "lldb/Host/Endian.h"
22 #include "llvm/ADT/STLExtras.h"
23 #include "llvm/Support/Compiler.h"
25 // Support building against older versions of LLVM, this macro was added
27 #ifndef LLVM_EXTENSION
28 #define LLVM_EXTENSION
32 #include "RegisterContextDarwin_i386.h"
35 using namespace lldb_private;
169 gdb_fctrl = 24, gdb_fcw = gdb_fctrl,
170 gdb_fstat = 25, gdb_fsw = gdb_fstat,
171 gdb_ftag = 26, gdb_ftw = gdb_ftag,
172 gdb_fiseg = 27, gdb_fpu_cs = gdb_fiseg,
173 gdb_fioff = 28, gdb_ip = gdb_fioff,
174 gdb_foseg = 29, gdb_fpu_ds = gdb_foseg,
175 gdb_fooff = 30, gdb_dp = gdb_fooff,
196 RegisterContextDarwin_i386::RegisterContextDarwin_i386 (Thread &thread, uint32_t concrete_frame_idx) :
197 RegisterContext(thread, concrete_frame_idx),
203 for (i=0; i<kNumErrors; i++)
211 RegisterContextDarwin_i386::~RegisterContextDarwin_i386()
217 #define GPR_OFFSET(reg) (LLVM_EXTENSION offsetof (RegisterContextDarwin_i386::GPR, reg))
218 #define FPU_OFFSET(reg) (LLVM_EXTENSION offsetof (RegisterContextDarwin_i386::FPU, reg) + sizeof (RegisterContextDarwin_i386::GPR))
219 #define EXC_OFFSET(reg) (LLVM_EXTENSION offsetof (RegisterContextDarwin_i386::EXC, reg) + sizeof (RegisterContextDarwin_i386::GPR) + sizeof (RegisterContextDarwin_i386::FPU))
221 // These macros will auto define the register name, alt name, register size,
222 // register offset, encoding, format and native register. This ensures that
223 // the register state structures are defined correctly and have the correct
224 // sizes and offsets.
225 #define DEFINE_GPR(reg, alt) #reg, alt, sizeof(((RegisterContextDarwin_i386::GPR *)NULL)->reg), GPR_OFFSET(reg), eEncodingUint, eFormatHex
226 #define DEFINE_FPU_UINT(reg) #reg, NULL, sizeof(((RegisterContextDarwin_i386::FPU *)NULL)->reg), FPU_OFFSET(reg), eEncodingUint, eFormatHex
227 #define DEFINE_FPU_VECT(reg, i) #reg#i, NULL, sizeof(((RegisterContextDarwin_i386::FPU *)NULL)->reg[i].bytes), FPU_OFFSET(reg[i]), eEncodingVector, eFormatVectorOfUInt8, { LLDB_INVALID_REGNUM, dwarf_##reg##i, LLDB_INVALID_REGNUM, gdb_##reg##i, fpu_##reg##i }, NULL, NULL
229 #define DEFINE_EXC(reg) #reg, NULL, sizeof(((RegisterContextDarwin_i386::EXC *)NULL)->reg), EXC_OFFSET(reg), eEncodingUint, eFormatHex
230 #define REG_CONTEXT_SIZE (sizeof (RegisterContextDarwin_i386::GPR) + sizeof (RegisterContextDarwin_i386::FPU) + sizeof (RegisterContextDarwin_i386::EXC))
232 static RegisterInfo g_register_infos[] =
234 // Macro auto defines most stuff GCC DWARF GENERIC GDB LLDB VALUE REGS INVALIDATE REGS
235 // =============================== ======================= =================== ========================= ================== ================= ========== ===============
236 { DEFINE_GPR(eax , NULL) , { gcc_eax , dwarf_eax , LLDB_INVALID_REGNUM , gdb_eax , gpr_eax }, NULL, NULL},
237 { DEFINE_GPR(ebx , NULL) , { gcc_ebx , dwarf_ebx , LLDB_INVALID_REGNUM , gdb_ebx , gpr_ebx }, NULL, NULL},
238 { DEFINE_GPR(ecx , NULL) , { gcc_ecx , dwarf_ecx , LLDB_INVALID_REGNUM , gdb_ecx , gpr_ecx }, NULL, NULL},
239 { DEFINE_GPR(edx , NULL) , { gcc_edx , dwarf_edx , LLDB_INVALID_REGNUM , gdb_edx , gpr_edx }, NULL, NULL},
240 { DEFINE_GPR(edi , NULL) , { gcc_edi , dwarf_edi , LLDB_INVALID_REGNUM , gdb_edi , gpr_edi }, NULL, NULL},
241 { DEFINE_GPR(esi , NULL) , { gcc_esi , dwarf_esi , LLDB_INVALID_REGNUM , gdb_esi , gpr_esi }, NULL, NULL},
242 { DEFINE_GPR(ebp , "fp") , { gcc_ebp , dwarf_ebp , LLDB_REGNUM_GENERIC_FP , gdb_ebp , gpr_ebp }, NULL, NULL},
243 { DEFINE_GPR(esp , "sp") , { gcc_esp , dwarf_esp , LLDB_REGNUM_GENERIC_SP , gdb_esp , gpr_esp }, NULL, NULL},
244 { DEFINE_GPR(ss , NULL) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_ss , gpr_ss }, NULL, NULL},
245 { DEFINE_GPR(eflags , "flags") , { gcc_eflags , dwarf_eflags , LLDB_REGNUM_GENERIC_FLAGS , gdb_eflags , gpr_eflags }, NULL, NULL},
246 { DEFINE_GPR(eip , "pc") , { gcc_eip , dwarf_eip , LLDB_REGNUM_GENERIC_PC , gdb_eip , gpr_eip }, NULL, NULL},
247 { DEFINE_GPR(cs , NULL) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_cs , gpr_cs }, NULL, NULL},
248 { DEFINE_GPR(ds , NULL) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_ds , gpr_ds }, NULL, NULL},
249 { DEFINE_GPR(es , NULL) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_es , gpr_es }, NULL, NULL},
250 { DEFINE_GPR(fs , NULL) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_fs , gpr_fs }, NULL, NULL},
251 { DEFINE_GPR(gs , NULL) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_gs , gpr_gs }, NULL, NULL},
253 { DEFINE_FPU_UINT(fcw) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_fcw , fpu_fcw }, NULL, NULL},
254 { DEFINE_FPU_UINT(fsw) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_fsw , fpu_fsw }, NULL, NULL},
255 { DEFINE_FPU_UINT(ftw) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_ftw , fpu_ftw }, NULL, NULL},
256 { DEFINE_FPU_UINT(fop) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_fop , fpu_fop }, NULL, NULL},
257 { DEFINE_FPU_UINT(ip) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_ip , fpu_ip }, NULL, NULL},
258 { DEFINE_FPU_UINT(cs) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_cs , fpu_cs }, NULL, NULL},
259 { DEFINE_FPU_UINT(dp) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_dp , fpu_dp }, NULL, NULL},
260 { DEFINE_FPU_UINT(ds) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_ds , fpu_ds }, NULL, NULL},
261 { DEFINE_FPU_UINT(mxcsr) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , gdb_mxcsr , fpu_mxcsr }, NULL, NULL},
262 { DEFINE_FPU_UINT(mxcsrmask) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, fpu_mxcsrmask}, NULL, NULL},
263 { DEFINE_FPU_VECT(stmm,0) },
264 { DEFINE_FPU_VECT(stmm,1) },
265 { DEFINE_FPU_VECT(stmm,2) },
266 { DEFINE_FPU_VECT(stmm,3) },
267 { DEFINE_FPU_VECT(stmm,4) },
268 { DEFINE_FPU_VECT(stmm,5) },
269 { DEFINE_FPU_VECT(stmm,6) },
270 { DEFINE_FPU_VECT(stmm,7) },
271 { DEFINE_FPU_VECT(xmm,0) },
272 { DEFINE_FPU_VECT(xmm,1) },
273 { DEFINE_FPU_VECT(xmm,2) },
274 { DEFINE_FPU_VECT(xmm,3) },
275 { DEFINE_FPU_VECT(xmm,4) },
276 { DEFINE_FPU_VECT(xmm,5) },
277 { DEFINE_FPU_VECT(xmm,6) },
278 { DEFINE_FPU_VECT(xmm,7) },
280 { DEFINE_EXC(trapno) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, exc_trapno }, NULL, NULL},
281 { DEFINE_EXC(err) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, exc_err }, NULL, NULL},
282 { DEFINE_EXC(faultvaddr) , { LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM , LLDB_INVALID_REGNUM, exc_faultvaddr }, NULL, NULL}
285 static size_t k_num_register_infos = llvm::array_lengthof(g_register_infos);
288 RegisterContextDarwin_i386::InvalidateAllRegisters ()
290 InvalidateAllRegisterStates();
295 RegisterContextDarwin_i386::GetRegisterCount ()
297 assert(k_num_register_infos == k_num_registers);
298 return k_num_registers;
302 RegisterContextDarwin_i386::GetRegisterInfoAtIndex (size_t reg)
304 assert(k_num_register_infos == k_num_registers);
305 if (reg < k_num_registers)
306 return &g_register_infos[reg];
311 RegisterContextDarwin_i386::GetRegisterInfosCount ()
313 return k_num_register_infos;
317 RegisterContextDarwin_i386::GetRegisterInfos ()
319 return g_register_infos;
323 // General purpose registers
345 // Floating point registers
377 // Exception registers
387 // Number of registers in each register set
388 const size_t k_num_gpr_registers = llvm::array_lengthof(g_gpr_regnums);
389 const size_t k_num_fpu_registers = llvm::array_lengthof(g_fpu_regnums);
390 const size_t k_num_exc_registers = llvm::array_lengthof(g_exc_regnums);
392 //----------------------------------------------------------------------
393 // Register set definitions. The first definitions at register set index
394 // of zero is for all registers, followed by other registers sets. The
395 // register information for the all register set need not be filled in.
396 //----------------------------------------------------------------------
397 static const RegisterSet g_reg_sets[] =
399 { "General Purpose Registers", "gpr", k_num_gpr_registers, g_gpr_regnums, },
400 { "Floating Point Registers", "fpu", k_num_fpu_registers, g_fpu_regnums },
401 { "Exception State Registers", "exc", k_num_exc_registers, g_exc_regnums }
404 const size_t k_num_regsets = llvm::array_lengthof(g_reg_sets);
408 RegisterContextDarwin_i386::GetRegisterSetCount ()
410 return k_num_regsets;
414 RegisterContextDarwin_i386::GetRegisterSet (size_t reg_set)
416 if (reg_set < k_num_regsets)
417 return &g_reg_sets[reg_set];
422 //----------------------------------------------------------------------
423 // Register information definitions for 32 bit i386.
424 //----------------------------------------------------------------------
426 RegisterContextDarwin_i386::GetSetForNativeRegNum (int reg_num)
428 if (reg_num < fpu_fcw)
430 else if (reg_num < exc_trapno)
432 else if (reg_num < k_num_registers)
439 RegisterContextDarwin_i386::LogGPR(Log *log, const char *title)
444 log->Printf ("%s", title);
445 for (uint32_t i=0; i<k_num_gpr_registers; i++)
447 uint32_t reg = gpr_eax + i;
448 log->Printf("%12s = 0x%8.8x", g_register_infos[reg].name, (&gpr.eax)[reg]);
456 RegisterContextDarwin_i386::ReadGPR (bool force)
459 if (force || !RegisterSetIsCached(set))
461 SetError(set, Read, DoReadGPR(GetThreadID(), set, gpr));
463 return GetError(set, Read);
467 RegisterContextDarwin_i386::ReadFPU (bool force)
470 if (force || !RegisterSetIsCached(set))
472 SetError(set, Read, DoReadFPU(GetThreadID(), set, fpu));
474 return GetError(set, Read);
478 RegisterContextDarwin_i386::ReadEXC (bool force)
481 if (force || !RegisterSetIsCached(set))
483 SetError(set, Read, DoReadEXC(GetThreadID(), set, exc));
485 return GetError(set, Read);
489 RegisterContextDarwin_i386::WriteGPR ()
492 if (!RegisterSetIsCached(set))
494 SetError (set, Write, -1);
497 SetError (set, Write, DoWriteGPR(GetThreadID(), set, gpr));
498 SetError (set, Read, -1);
499 return GetError(set, Write);
503 RegisterContextDarwin_i386::WriteFPU ()
506 if (!RegisterSetIsCached(set))
508 SetError (set, Write, -1);
511 SetError (set, Write, DoWriteFPU(GetThreadID(), set, fpu));
512 SetError (set, Read, -1);
513 return GetError(set, Write);
517 RegisterContextDarwin_i386::WriteEXC ()
520 if (!RegisterSetIsCached(set))
522 SetError (set, Write, -1);
525 SetError (set, Write, DoWriteEXC(GetThreadID(), set, exc));
526 SetError (set, Read, -1);
527 return GetError(set, Write);
531 RegisterContextDarwin_i386::ReadRegisterSet (uint32_t set, bool force)
535 case GPRRegSet: return ReadGPR(force);
536 case FPURegSet: return ReadFPU(force);
537 case EXCRegSet: return ReadEXC(force);
544 RegisterContextDarwin_i386::WriteRegisterSet (uint32_t set)
546 // Make sure we have a valid context to set.
547 if (RegisterSetIsCached(set))
551 case GPRRegSet: return WriteGPR();
552 case FPURegSet: return WriteFPU();
553 case EXCRegSet: return WriteEXC();
561 RegisterContextDarwin_i386::ReadRegister (const RegisterInfo *reg_info,
562 RegisterValue &value)
564 const uint32_t reg = reg_info->kinds[eRegisterKindLLDB];
565 int set = RegisterContextDarwin_i386::GetSetForNativeRegNum (reg);
570 if (ReadRegisterSet(set, false) != 0)
591 value = (&gpr.eax)[reg - gpr_eax];
631 value = fpu.mxcsrmask;
642 // These values don't fit into scalar types,
643 // RegisterContext::ReadRegisterBytes() must be used for these
645 //::memcpy (reg_value.value.vector.uint8, fpu.stmm[reg - fpu_stmm0].bytes, 10);
656 // These values don't fit into scalar types, RegisterContext::ReadRegisterBytes()
657 // must be used for these registers
658 //::memcpy (reg_value.value.vector.uint8, fpu.xmm[reg - fpu_xmm0].bytes, 16);
670 value = exc.faultvaddr;
681 RegisterContextDarwin_i386::WriteRegister (const RegisterInfo *reg_info,
682 const RegisterValue &value)
684 const uint32_t reg = reg_info->kinds[eRegisterKindLLDB];
685 int set = GetSetForNativeRegNum (reg);
690 if (ReadRegisterSet(set, false) != 0)
711 (&gpr.eax)[reg - gpr_eax] = value.GetAsUInt32();
715 fpu.fcw = value.GetAsUInt16();
719 fpu.fsw = value.GetAsUInt16();
723 fpu.ftw = value.GetAsUInt8();
727 fpu.fop = value.GetAsUInt16();
731 fpu.ip = value.GetAsUInt32();
735 fpu.cs = value.GetAsUInt16();
739 fpu.dp = value.GetAsUInt32();
743 fpu.ds = value.GetAsUInt16();
747 fpu.mxcsr = value.GetAsUInt32();
751 fpu.mxcsrmask = value.GetAsUInt32();
762 // These values don't fit into scalar types, RegisterContext::ReadRegisterBytes()
763 // must be used for these registers
764 ::memcpy (fpu.stmm[reg - fpu_stmm0].bytes, value.GetBytes(), value.GetByteSize());
775 // These values don't fit into scalar types, RegisterContext::ReadRegisterBytes()
776 // must be used for these registers
777 ::memcpy (fpu.xmm[reg - fpu_xmm0].bytes, value.GetBytes(), value.GetByteSize());
781 exc.trapno = value.GetAsUInt32();
785 exc.err = value.GetAsUInt32();
789 exc.faultvaddr = value.GetAsUInt32();
795 return WriteRegisterSet(set) == 0;
799 RegisterContextDarwin_i386::ReadAllRegisterValues (lldb::DataBufferSP &data_sp)
801 data_sp.reset (new DataBufferHeap (REG_CONTEXT_SIZE, 0));
803 ReadGPR (false) == 0 &&
804 ReadFPU (false) == 0 &&
805 ReadEXC (false) == 0)
807 uint8_t *dst = data_sp->GetBytes();
808 ::memcpy (dst, &gpr, sizeof(gpr));
811 ::memcpy (dst, &fpu, sizeof(fpu));
814 ::memcpy (dst, &exc, sizeof(exc));
821 RegisterContextDarwin_i386::WriteAllRegisterValues (const lldb::DataBufferSP &data_sp)
823 if (data_sp && data_sp->GetByteSize() == REG_CONTEXT_SIZE)
825 const uint8_t *src = data_sp->GetBytes();
826 ::memcpy (&gpr, src, sizeof(gpr));
829 ::memcpy (&fpu, src, sizeof(fpu));
832 ::memcpy (&exc, src, sizeof(exc));
833 uint32_t success_count = 0;
840 return success_count == 3;
847 RegisterContextDarwin_i386::ConvertRegisterKindToRegisterNumber (lldb::RegisterKind kind, uint32_t reg)
849 if (kind == eRegisterKindGeneric)
853 case LLDB_REGNUM_GENERIC_PC: return gpr_eip;
854 case LLDB_REGNUM_GENERIC_SP: return gpr_esp;
855 case LLDB_REGNUM_GENERIC_FP: return gpr_ebp;
856 case LLDB_REGNUM_GENERIC_FLAGS: return gpr_eflags;
857 case LLDB_REGNUM_GENERIC_RA:
862 else if (kind == eRegisterKindGCC || kind == eRegisterKindDWARF)
866 case dwarf_eax: return gpr_eax;
867 case dwarf_ecx: return gpr_ecx;
868 case dwarf_edx: return gpr_edx;
869 case dwarf_ebx: return gpr_ebx;
870 case dwarf_esp: return gpr_esp;
871 case dwarf_ebp: return gpr_ebp;
872 case dwarf_esi: return gpr_esi;
873 case dwarf_edi: return gpr_edi;
874 case dwarf_eip: return gpr_eip;
875 case dwarf_eflags: return gpr_eflags;
876 case dwarf_stmm0: return fpu_stmm0;
877 case dwarf_stmm1: return fpu_stmm1;
878 case dwarf_stmm2: return fpu_stmm2;
879 case dwarf_stmm3: return fpu_stmm3;
880 case dwarf_stmm4: return fpu_stmm4;
881 case dwarf_stmm5: return fpu_stmm5;
882 case dwarf_stmm6: return fpu_stmm6;
883 case dwarf_stmm7: return fpu_stmm7;
884 case dwarf_xmm0: return fpu_xmm0;
885 case dwarf_xmm1: return fpu_xmm1;
886 case dwarf_xmm2: return fpu_xmm2;
887 case dwarf_xmm3: return fpu_xmm3;
888 case dwarf_xmm4: return fpu_xmm4;
889 case dwarf_xmm5: return fpu_xmm5;
890 case dwarf_xmm6: return fpu_xmm6;
891 case dwarf_xmm7: return fpu_xmm7;
896 else if (kind == eRegisterKindGDB)
900 case gdb_eax : return gpr_eax;
901 case gdb_ebx : return gpr_ebx;
902 case gdb_ecx : return gpr_ecx;
903 case gdb_edx : return gpr_edx;
904 case gdb_esi : return gpr_esi;
905 case gdb_edi : return gpr_edi;
906 case gdb_ebp : return gpr_ebp;
907 case gdb_esp : return gpr_esp;
908 case gdb_eip : return gpr_eip;
909 case gdb_eflags : return gpr_eflags;
910 case gdb_cs : return gpr_cs;
911 case gdb_ss : return gpr_ss;
912 case gdb_ds : return gpr_ds;
913 case gdb_es : return gpr_es;
914 case gdb_fs : return gpr_fs;
915 case gdb_gs : return gpr_gs;
916 case gdb_stmm0 : return fpu_stmm0;
917 case gdb_stmm1 : return fpu_stmm1;
918 case gdb_stmm2 : return fpu_stmm2;
919 case gdb_stmm3 : return fpu_stmm3;
920 case gdb_stmm4 : return fpu_stmm4;
921 case gdb_stmm5 : return fpu_stmm5;
922 case gdb_stmm6 : return fpu_stmm6;
923 case gdb_stmm7 : return fpu_stmm7;
924 case gdb_fctrl : return fpu_fctrl;
925 case gdb_fstat : return fpu_fstat;
926 case gdb_ftag : return fpu_ftag;
927 case gdb_fiseg : return fpu_fiseg;
928 case gdb_fioff : return fpu_fioff;
929 case gdb_foseg : return fpu_foseg;
930 case gdb_fooff : return fpu_fooff;
931 case gdb_fop : return fpu_fop;
932 case gdb_xmm0 : return fpu_xmm0;
933 case gdb_xmm1 : return fpu_xmm1;
934 case gdb_xmm2 : return fpu_xmm2;
935 case gdb_xmm3 : return fpu_xmm3;
936 case gdb_xmm4 : return fpu_xmm4;
937 case gdb_xmm5 : return fpu_xmm5;
938 case gdb_xmm6 : return fpu_xmm6;
939 case gdb_xmm7 : return fpu_xmm7;
940 case gdb_mxcsr : return fpu_mxcsr;
945 else if (kind == eRegisterKindLLDB)
949 return LLDB_INVALID_REGNUM;
954 RegisterContextDarwin_i386::HardwareSingleStep (bool enable)
956 if (ReadGPR(false) != 0)
959 const uint32_t trace_bit = 0x100u;
962 // If the trace bit is already set, there is nothing to do
963 if (gpr.eflags & trace_bit)
966 gpr.eflags |= trace_bit;
970 // If the trace bit is already cleared, there is nothing to do
971 if (gpr.eflags & trace_bit)
972 gpr.eflags &= ~trace_bit;
977 return WriteGPR() == 0;