1 /* Native debugging support for Intel x86 running DJGPP.
2 Copyright (C) 1997, 1999, 2000, 2001, 2005, 2006, 2007
3 Free Software Foundation, Inc.
4 Written by Robert Hoehne.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
29 #include "floatformat.h"
31 #include "i387-tdep.h"
32 #include "i386-tdep.h"
35 #include "gdb_string.h"
38 #include <stdio.h> /* might be required for __DJGPP_MINOR__ */
43 #include <sys/utsname.h>
48 #include <sys/farptr.h>
49 #include <debug/v2load.h>
50 #include <debug/dbgcom.h>
51 #if __DJGPP_MINOR__ > 2
52 #include <debug/redir.h>
55 #if __DJGPP_MINOR__ < 3
56 /* This code will be provided from DJGPP 2.03 on. Until then I code it
64 unsigned short exponent
:15;
65 unsigned short sign
:1;
84 static void save_npx (void); /* Save the FPU of the debugged program */
85 static void load_npx (void); /* Restore the FPU of the debugged program */
87 /* ------------------------------------------------------------------------- */
88 /* Store the contents of the NPX in the global variable `npx'. */
94 asm ("inb $0xa0, %%al \n\
113 /* ------------------------------------------------------------------------- */
114 /* Reload the contents of the NPX from the global variable `npx'. */
119 asm ("frstor %0":"=m" (npx
));
121 /* ------------------------------------------------------------------------- */
122 /* Stubs for the missing redirection functions. */
129 redir_cmdline_delete (cmdline_t
*ptr
)
135 redir_cmdline_parse (const char *args
, cmdline_t
*ptr
)
141 redir_to_child (cmdline_t
*ptr
)
147 redir_to_debugger (cmdline_t
*ptr
)
153 redir_debug_init (cmdline_t
*ptr
)
157 #endif /* __DJGPP_MINOR < 3 */
159 typedef enum { wp_insert
, wp_remove
, wp_count
} wp_op
;
161 /* This holds the current reference counts for each debug register. */
162 static int dr_ref_count
[4];
166 static int prog_has_started
= 0;
167 static void go32_open (char *name
, int from_tty
);
168 static void go32_close (int quitting
);
169 static void go32_attach (char *args
, int from_tty
);
170 static void go32_detach (char *args
, int from_tty
);
171 static void go32_resume (ptid_t ptid
, int step
,
172 enum target_signal siggnal
);
173 static ptid_t
go32_wait (ptid_t ptid
,
174 struct target_waitstatus
*status
);
175 static void go32_fetch_registers (struct regcache
*, int regno
);
176 static void store_register (const struct regcache
*, int regno
);
177 static void go32_store_registers (struct regcache
*, int regno
);
178 static void go32_prepare_to_store (struct regcache
*);
179 static int go32_xfer_memory (CORE_ADDR memaddr
, char *myaddr
, int len
,
181 struct mem_attrib
*attrib
,
182 struct target_ops
*target
);
183 static void go32_files_info (struct target_ops
*target
);
184 static void go32_stop (void);
185 static void go32_kill_inferior (void);
186 static void go32_create_inferior (char *exec_file
, char *args
, char **env
, int from_tty
);
187 static void go32_mourn_inferior (void);
188 static int go32_can_run (void);
190 static struct target_ops go32_ops
;
191 static void go32_terminal_init (void);
192 static void go32_terminal_inferior (void);
193 static void go32_terminal_ours (void);
195 #define r_ofs(x) (offsetof(TSS,x))
204 {r_ofs (tss_eax
), 4}, /* normal registers, from a_tss */
205 {r_ofs (tss_ecx
), 4},
206 {r_ofs (tss_edx
), 4},
207 {r_ofs (tss_ebx
), 4},
208 {r_ofs (tss_esp
), 4},
209 {r_ofs (tss_ebp
), 4},
210 {r_ofs (tss_esi
), 4},
211 {r_ofs (tss_edi
), 4},
212 {r_ofs (tss_eip
), 4},
213 {r_ofs (tss_eflags
), 4},
220 {0, 10}, /* 8 FP registers, from npx.reg[] */
228 /* The order of the next 7 registers must be consistent
229 with their numbering in config/i386/tm-i386.h, which see. */
230 {0, 2}, /* control word, from npx */
231 {4, 2}, /* status word, from npx */
232 {8, 2}, /* tag word, from npx */
233 {16, 2}, /* last FP exception CS from npx */
234 {12, 4}, /* last FP exception EIP from npx */
235 {24, 2}, /* last FP exception operand selector from npx */
236 {20, 4}, /* last FP exception operand offset from npx */
237 {18, 2} /* last FP opcode from npx */
243 enum target_signal gdb_sig
;
247 {0, TARGET_SIGNAL_FPE
},
248 {1, TARGET_SIGNAL_TRAP
},
249 /* Exception 2 is triggered by the NMI. DJGPP handles it as SIGILL,
250 but I think SIGBUS is better, since the NMI is usually activated
251 as a result of a memory parity check failure. */
252 {2, TARGET_SIGNAL_BUS
},
253 {3, TARGET_SIGNAL_TRAP
},
254 {4, TARGET_SIGNAL_FPE
},
255 {5, TARGET_SIGNAL_SEGV
},
256 {6, TARGET_SIGNAL_ILL
},
257 {7, TARGET_SIGNAL_EMT
}, /* no-coprocessor exception */
258 {8, TARGET_SIGNAL_SEGV
},
259 {9, TARGET_SIGNAL_SEGV
},
260 {10, TARGET_SIGNAL_BUS
},
261 {11, TARGET_SIGNAL_SEGV
},
262 {12, TARGET_SIGNAL_SEGV
},
263 {13, TARGET_SIGNAL_SEGV
},
264 {14, TARGET_SIGNAL_SEGV
},
265 {16, TARGET_SIGNAL_FPE
},
266 {17, TARGET_SIGNAL_BUS
},
267 {31, TARGET_SIGNAL_ILL
},
268 {0x1b, TARGET_SIGNAL_INT
},
269 {0x75, TARGET_SIGNAL_FPE
},
270 {0x78, TARGET_SIGNAL_ALRM
},
271 {0x79, TARGET_SIGNAL_INT
},
272 {0x7a, TARGET_SIGNAL_QUIT
},
273 {-1, TARGET_SIGNAL_LAST
}
277 enum target_signal gdb_sig
;
280 {TARGET_SIGNAL_0
, -1},
281 {TARGET_SIGNAL_ILL
, 6}, /* Invalid Opcode */
282 {TARGET_SIGNAL_EMT
, 7}, /* triggers SIGNOFP */
283 {TARGET_SIGNAL_SEGV
, 13}, /* GPF */
284 {TARGET_SIGNAL_BUS
, 17}, /* Alignment Check */
285 /* The rest are fake exceptions, see dpmiexcp.c in djlsr*.zip for
287 {TARGET_SIGNAL_TERM
, 0x1b}, /* triggers Ctrl-Break type of SIGINT */
288 {TARGET_SIGNAL_FPE
, 0x75},
289 {TARGET_SIGNAL_INT
, 0x79},
290 {TARGET_SIGNAL_QUIT
, 0x7a},
291 {TARGET_SIGNAL_ALRM
, 0x78}, /* triggers SIGTIMR */
292 {TARGET_SIGNAL_PROF
, 0x78},
293 {TARGET_SIGNAL_LAST
, -1}
297 go32_open (char *name
, int from_tty
)
299 printf_unfiltered ("Done. Use the \"run\" command to run the program.\n");
303 go32_close (int quitting
)
308 go32_attach (char *args
, int from_tty
)
311 You cannot attach to a running program on this platform.\n\
312 Use the `run' command to run DJGPP programs."));
316 go32_detach (char *args
, int from_tty
)
320 static int resume_is_step
;
321 static int resume_signal
= -1;
324 go32_resume (ptid_t ptid
, int step
, enum target_signal siggnal
)
328 resume_is_step
= step
;
330 if (siggnal
!= TARGET_SIGNAL_0
&& siggnal
!= TARGET_SIGNAL_TRAP
)
332 for (i
= 0, resume_signal
= -1;
333 excepn_map
[i
].gdb_sig
!= TARGET_SIGNAL_LAST
; i
++)
334 if (excepn_map
[i
].gdb_sig
== siggnal
)
336 resume_signal
= excepn_map
[i
].djgpp_excepno
;
339 if (resume_signal
== -1)
340 printf_unfiltered ("Cannot deliver signal %s on this platform.\n",
341 target_signal_to_name (siggnal
));
345 static char child_cwd
[FILENAME_MAX
];
348 go32_wait (ptid_t ptid
, struct target_waitstatus
*status
)
351 unsigned char saved_opcode
;
352 unsigned long INT3_addr
= 0;
353 int stepping_over_INT
= 0;
355 a_tss
.tss_eflags
&= 0xfeff; /* reset the single-step flag (TF) */
358 /* If the next instruction is INT xx or INTO, we need to handle
359 them specially. Intel manuals say that these instructions
360 reset the single-step flag (a.k.a. TF). However, it seems
361 that, at least in the DPMI environment, and at least when
362 stepping over the DPMI interrupt 31h, the problem is having
363 TF set at all when INT 31h is executed: the debuggee either
364 crashes (and takes the system with it) or is killed by a
367 So we need to emulate single-step mode: we put an INT3 opcode
368 right after the INT xx instruction, let the debuggee run
369 until it hits INT3 and stops, then restore the original
370 instruction which we overwrote with the INT3 opcode, and back
371 up the debuggee's EIP to that instruction. */
372 read_child (a_tss
.tss_eip
, &saved_opcode
, 1);
373 if (saved_opcode
== 0xCD || saved_opcode
== 0xCE)
375 unsigned char INT3_opcode
= 0xCC;
378 = saved_opcode
== 0xCD ? a_tss
.tss_eip
+ 2 : a_tss
.tss_eip
+ 1;
379 stepping_over_INT
= 1;
380 read_child (INT3_addr
, &saved_opcode
, 1);
381 write_child (INT3_addr
, &INT3_opcode
, 1);
384 a_tss
.tss_eflags
|= 0x0100; /* normal instruction: set TF */
387 /* The special value FFFFh in tss_trap indicates to run_child that
388 tss_irqn holds a signal to be delivered to the debuggee. */
389 if (resume_signal
<= -1)
392 a_tss
.tss_irqn
= 0xff;
396 a_tss
.tss_trap
= 0xffff; /* run_child looks for this */
397 a_tss
.tss_irqn
= resume_signal
;
400 /* The child might change working directory behind our back. The
401 GDB users won't like the side effects of that when they work with
402 relative file names, and GDB might be confused by its current
403 directory not being in sync with the truth. So we always make a
404 point of changing back to where GDB thinks is its cwd, when we
405 return control to the debugger, but restore child's cwd before we
407 /* Initialize child_cwd, before the first call to run_child and not
408 in the initialization, so the child get also the changed directory
409 set with the gdb-command "cd ..." */
411 /* Initialize child's cwd with the current one. */
412 getcwd (child_cwd
, sizeof (child_cwd
));
416 #if __DJGPP_MINOR__ < 3
420 #if __DJGPP_MINOR__ < 3
424 /* Did we step over an INT xx instruction? */
425 if (stepping_over_INT
&& a_tss
.tss_eip
== INT3_addr
+ 1)
427 /* Restore the original opcode. */
428 a_tss
.tss_eip
--; /* EIP points *after* the INT3 instruction */
429 write_child (a_tss
.tss_eip
, &saved_opcode
, 1);
430 /* Simulate a TRAP exception. */
432 a_tss
.tss_eflags
|= 0x0100;
435 getcwd (child_cwd
, sizeof (child_cwd
)); /* in case it has changed */
436 chdir (current_directory
);
438 if (a_tss
.tss_irqn
== 0x21)
440 status
->kind
= TARGET_WAITKIND_EXITED
;
441 status
->value
.integer
= a_tss
.tss_eax
& 0xff;
445 status
->value
.sig
= TARGET_SIGNAL_UNKNOWN
;
446 status
->kind
= TARGET_WAITKIND_STOPPED
;
447 for (i
= 0; sig_map
[i
].go32_sig
!= -1; i
++)
449 if (a_tss
.tss_irqn
== sig_map
[i
].go32_sig
)
451 #if __DJGPP_MINOR__ < 3
452 if ((status
->value
.sig
= sig_map
[i
].gdb_sig
) !=
454 status
->kind
= TARGET_WAITKIND_SIGNALLED
;
456 status
->value
.sig
= sig_map
[i
].gdb_sig
;
462 return pid_to_ptid (SOME_PID
);
466 fetch_register (struct regcache
*regcache
, int regno
)
468 if (regno
< gdbarch_fp0_regnum (current_gdbarch
))
469 regcache_raw_supply (regcache
, regno
,
470 (char *) &a_tss
+ regno_mapping
[regno
].tss_ofs
);
471 else if (i386_fp_regnum_p (regno
) || i386_fpc_regnum_p (regno
))
472 i387_supply_fsave (regcache
, regno
, &npx
);
474 internal_error (__FILE__
, __LINE__
,
475 _("Invalid register no. %d in fetch_register."), regno
);
479 go32_fetch_registers (struct regcache
*regcache
, int regno
)
482 fetch_register (regcache
, regno
);
485 for (regno
= 0; regno
< gdbarch_fp0_regnum (current_gdbarch
); regno
++)
486 fetch_register (regcache
, regno
);
487 i387_supply_fsave (regcache
, -1, &npx
);
492 store_register (const struct regcache
*regcache
, int regno
)
494 if (regno
< gdbarch_fp0_regnum (current_gdbarch
))
495 regcache_raw_collect (regcache
, regno
,
496 (char *) &a_tss
+ regno_mapping
[regno
].tss_ofs
);
497 else if (i386_fp_regnum_p (regno
) || i386_fpc_regnum_p (regno
))
498 i387_collect_fsave (regcache
, regno
, &npx
);
500 internal_error (__FILE__
, __LINE__
,
501 _("Invalid register no. %d in store_register."), regno
);
505 go32_store_registers (struct regcache
*regcache
, int regno
)
510 store_register (regcache
, regno
);
513 for (r
= 0; r
< gdbarch_fp0_regnum (current_gdbarch
); r
++)
514 store_register (regcache
, r
);
515 i387_collect_fsave (regcache
, -1, &npx
);
520 go32_prepare_to_store (struct regcache
*regcache
)
525 go32_xfer_memory (CORE_ADDR memaddr
, char *myaddr
, int len
, int write
,
526 struct mem_attrib
*attrib
, struct target_ops
*target
)
530 if (write_child (memaddr
, myaddr
, len
))
541 if (read_child (memaddr
, myaddr
, len
))
552 static cmdline_t child_cmd
; /* parsed child's command line kept here */
555 go32_files_info (struct target_ops
*target
)
557 printf_unfiltered ("You are running a DJGPP V2 program.\n");
565 inferior_ptid
= null_ptid
;
566 prog_has_started
= 0;
570 go32_kill_inferior (void)
572 redir_cmdline_delete (&child_cmd
);
575 unpush_target (&go32_ops
);
579 go32_create_inferior (char *exec_file
, char *args
, char **env
, int from_tty
)
581 extern char **environ
;
584 char **env_save
= environ
;
587 /* If no exec file handed to us, get it from the exec-file command -- with
588 a good, common error message if none is specified. */
590 exec_file
= get_exec_file (1);
592 if (prog_has_started
)
595 go32_kill_inferior ();
600 /* Initialize child's cwd as empty to be initialized when starting
604 /* Init command line storage. */
605 if (redir_debug_init (&child_cmd
) == -1)
606 internal_error (__FILE__
, __LINE__
,
607 _("Cannot allocate redirection storage: not enough memory.\n"));
609 /* Parse the command line and create redirections. */
610 if (strpbrk (args
, "<>"))
612 if (redir_cmdline_parse (args
, &child_cmd
) == 0)
613 args
= child_cmd
.command
;
615 error (_("Syntax error in command line."));
618 child_cmd
.command
= xstrdup (args
);
620 cmdlen
= strlen (args
);
621 /* v2loadimage passes command lines via DOS memory, so it cannot
622 possibly handle commands longer than 1MB. */
623 if (cmdlen
> 1024*1024)
624 error (_("Command line too long."));
626 cmdline
= xmalloc (cmdlen
+ 4);
627 strcpy (cmdline
+ 1, args
);
628 /* If the command-line length fits into DOS 126-char limits, use the
629 DOS command tail format; otherwise, tell v2loadimage to pass it
630 through a buffer in conventional memory. */
633 cmdline
[0] = strlen (args
);
634 cmdline
[cmdlen
+ 1] = 13;
637 cmdline
[0] = 0xff; /* signal v2loadimage it's a long command */
641 if (v2loadimage (exec_file
, cmdline
, start_state
))
644 printf_unfiltered ("Load failed for image %s\n", exec_file
);
650 edi_init (start_state
);
651 #if __DJGPP_MINOR__ < 3
655 inferior_ptid
= pid_to_ptid (SOME_PID
);
656 push_target (&go32_ops
);
657 clear_proceed_status ();
658 insert_breakpoints ();
659 prog_has_started
= 1;
663 go32_mourn_inferior (void)
665 /* We need to make sure all the breakpoint enable bits in the DR7
666 register are reset when the inferior exits. Otherwise, if they
667 rerun the inferior, the uncleared bits may cause random SIGTRAPs,
668 failure to set more watchpoints, and other calamities. It would
669 be nice if GDB itself would take care to remove all breakpoints
670 at all times, but it doesn't, probably under an assumption that
671 the OS cleans up when the debuggee exits. */
672 i386_cleanup_dregs ();
673 go32_kill_inferior ();
674 generic_mourn_inferior ();
683 /* Hardware watchpoint support. */
685 #define D_REGS edi.dr
686 #define CONTROL D_REGS[7]
687 #define STATUS D_REGS[6]
689 /* Pass the address ADDR to the inferior in the I'th debug register.
690 Here we just store the address in D_REGS, the watchpoint will be
691 actually set up when go32_wait runs the debuggee. */
693 go32_set_dr (int i
, CORE_ADDR addr
)
696 internal_error (__FILE__
, __LINE__
,
697 _("Invalid register %d in go32_set_dr.\n"), i
);
701 /* Pass the value VAL to the inferior in the DR7 debug control
702 register. Here we just store the address in D_REGS, the watchpoint
703 will be actually set up when go32_wait runs the debuggee. */
705 go32_set_dr7 (unsigned val
)
710 /* Get the value of the DR6 debug status register from the inferior.
711 Here we just return the value stored in D_REGS, as we've got it
712 from the last go32_wait call. */
719 /* Put the device open on handle FD into either raw or cooked
720 mode, return 1 if it was in raw mode, zero otherwise. */
723 device_mode (int fd
, int raw_p
)
725 int oldmode
, newmode
;
730 __dpmi_int (0x21, ®s
);
731 if (regs
.x
.flags
& 1)
733 newmode
= oldmode
= regs
.x
.dx
;
740 if (oldmode
& 0x80) /* Only for character dev */
744 regs
.x
.dx
= newmode
& 0xff; /* Force upper byte zero, else it fails */
745 __dpmi_int (0x21, ®s
);
746 if (regs
.x
.flags
& 1)
749 return (oldmode
& 0x20) == 0x20;
753 static int inf_mode_valid
= 0;
754 static int inf_terminal_mode
;
756 /* This semaphore is needed because, amazingly enough, GDB calls
757 target.to_terminal_ours more than once after the inferior stops.
758 But we need the information from the first call only, since the
759 second call will always see GDB's own cooked terminal. */
760 static int terminal_is_ours
= 1;
763 go32_terminal_init (void)
765 inf_mode_valid
= 0; /* reinitialize, in case they are restarting child */
766 terminal_is_ours
= 1;
770 go32_terminal_info (char *args
, int from_tty
)
772 printf_unfiltered ("Inferior's terminal is in %s mode.\n",
774 ? "default" : inf_terminal_mode
? "raw" : "cooked");
776 #if __DJGPP_MINOR__ > 2
777 if (child_cmd
.redirection
)
781 for (i
= 0; i
< DBG_HANDLES
; i
++)
783 if (child_cmd
.redirection
[i
]->file_name
)
784 printf_unfiltered ("\tFile handle %d is redirected to `%s'.\n",
785 i
, child_cmd
.redirection
[i
]->file_name
);
786 else if (_get_dev_info (child_cmd
.redirection
[i
]->inf_handle
) == -1)
788 ("\tFile handle %d appears to be closed by inferior.\n", i
);
789 /* Mask off the raw/cooked bit when comparing device info words. */
790 else if ((_get_dev_info (child_cmd
.redirection
[i
]->inf_handle
) & 0xdf)
791 != (_get_dev_info (i
) & 0xdf))
793 ("\tFile handle %d appears to be redirected by inferior.\n", i
);
800 go32_terminal_inferior (void)
802 /* Redirect standard handles as child wants them. */
804 if (redir_to_child (&child_cmd
) == -1)
806 redir_to_debugger (&child_cmd
);
807 error (_("Cannot redirect standard handles for program: %s."),
808 safe_strerror (errno
));
810 /* set the console device of the inferior to whatever mode
811 (raw or cooked) we found it last time */
812 if (terminal_is_ours
)
815 device_mode (0, inf_terminal_mode
);
816 terminal_is_ours
= 0;
821 go32_terminal_ours (void)
823 /* Switch to cooked mode on the gdb terminal and save the inferior
824 terminal mode to be restored when it is resumed */
825 if (!terminal_is_ours
)
827 inf_terminal_mode
= device_mode (0, 0);
828 if (inf_terminal_mode
!= -1)
831 /* If device_mode returned -1, we don't know what happens with
832 handle 0 anymore, so make the info invalid. */
834 terminal_is_ours
= 1;
836 /* Restore debugger's standard handles. */
838 if (redir_to_debugger (&child_cmd
) == -1)
840 redir_to_child (&child_cmd
);
841 error (_("Cannot redirect standard handles for debugger: %s."),
842 safe_strerror (errno
));
850 go32_ops
.to_shortname
= "djgpp";
851 go32_ops
.to_longname
= "djgpp target process";
853 "Program loaded by djgpp, when gdb is used as an external debugger";
854 go32_ops
.to_open
= go32_open
;
855 go32_ops
.to_close
= go32_close
;
856 go32_ops
.to_attach
= go32_attach
;
857 go32_ops
.to_detach
= go32_detach
;
858 go32_ops
.to_resume
= go32_resume
;
859 go32_ops
.to_wait
= go32_wait
;
860 go32_ops
.to_fetch_registers
= go32_fetch_registers
;
861 go32_ops
.to_store_registers
= go32_store_registers
;
862 go32_ops
.to_prepare_to_store
= go32_prepare_to_store
;
863 go32_ops
.deprecated_xfer_memory
= go32_xfer_memory
;
864 go32_ops
.to_files_info
= go32_files_info
;
865 go32_ops
.to_insert_breakpoint
= memory_insert_breakpoint
;
866 go32_ops
.to_remove_breakpoint
= memory_remove_breakpoint
;
867 go32_ops
.to_terminal_init
= go32_terminal_init
;
868 go32_ops
.to_terminal_inferior
= go32_terminal_inferior
;
869 go32_ops
.to_terminal_ours_for_output
= go32_terminal_ours
;
870 go32_ops
.to_terminal_ours
= go32_terminal_ours
;
871 go32_ops
.to_terminal_info
= go32_terminal_info
;
872 go32_ops
.to_kill
= go32_kill_inferior
;
873 go32_ops
.to_create_inferior
= go32_create_inferior
;
874 go32_ops
.to_mourn_inferior
= go32_mourn_inferior
;
875 go32_ops
.to_can_run
= go32_can_run
;
876 go32_ops
.to_stop
= go32_stop
;
877 go32_ops
.to_stratum
= process_stratum
;
878 go32_ops
.to_has_all_memory
= 1;
879 go32_ops
.to_has_memory
= 1;
880 go32_ops
.to_has_stack
= 1;
881 go32_ops
.to_has_registers
= 1;
882 go32_ops
.to_has_execution
= 1;
883 go32_ops
.to_magic
= OPS_MAGIC
;
885 /* Initialize child's cwd as empty to be initialized when starting
889 /* Initialize child's command line storage. */
890 if (redir_debug_init (&child_cmd
) == -1)
891 internal_error (__FILE__
, __LINE__
,
892 _("Cannot allocate redirection storage: not enough memory.\n"));
894 /* We are always processing GCC-compiled programs. */
895 processing_gcc_compilation
= 2;
897 /* Override the default name of the GDB init file. */
898 strcpy (gdbinit
, "gdb.ini");
901 unsigned short windows_major
, windows_minor
;
903 /* Compute the version Windows reports via Int 2Fh/AX=1600h. */
905 go32_get_windows_version(void)
910 __dpmi_int(0x2f, &r
);
911 if (r
.h
.al
> 2 && r
.h
.al
!= 0x80 && r
.h
.al
!= 0xff
912 && (r
.h
.al
> 3 || r
.h
.ah
> 0))
914 windows_major
= r
.h
.al
;
915 windows_minor
= r
.h
.ah
;
918 windows_major
= 0xff; /* meaning no Windows */
921 /* A subroutine of go32_sysinfo to display memory info. */
923 print_mem (unsigned long datum
, const char *header
, int in_pages_p
)
925 if (datum
!= 0xffffffffUL
)
929 puts_filtered (header
);
932 printf_filtered ("%lu KB", datum
>> 10);
933 if (datum
> 1024 * 1024)
934 printf_filtered (" (%lu MB)", datum
>> 20);
937 printf_filtered ("%lu Bytes", datum
);
938 puts_filtered ("\n");
942 /* Display assorted information about the underlying OS. */
944 go32_sysinfo (char *arg
, int from_tty
)
947 char cpuid_vendor
[13];
948 unsigned cpuid_max
= 0, cpuid_eax
, cpuid_ebx
, cpuid_ecx
, cpuid_edx
;
949 unsigned true_dos_version
= _get_dos_version (1);
950 unsigned advertized_dos_version
= ((unsigned int)_osmajor
<< 8) | _osminor
;
952 char dpmi_vendor_info
[129];
953 int dpmi_vendor_available
=
954 __dpmi_get_capabilities (&dpmi_flags
, dpmi_vendor_info
);
955 __dpmi_version_ret dpmi_version_data
;
957 __dpmi_free_mem_info mem_info
;
960 cpuid_vendor
[0] = '\0';
962 strcpy (u
.machine
, "Unknown x86");
963 else if (u
.machine
[0] == 'i' && u
.machine
[1] > 4)
965 /* CPUID with EAX = 0 returns the Vendor ID. */
966 __asm__
__volatile__ ("xorl %%ebx, %%ebx;"
975 : "=m" (cpuid_vendor
[0]),
976 "=m" (cpuid_vendor
[4]),
977 "=m" (cpuid_vendor
[8]),
980 : "%eax", "%ebx", "%ecx", "%edx");
981 cpuid_vendor
[12] = '\0';
984 printf_filtered ("CPU Type.......................%s", u
.machine
);
986 printf_filtered (" (%s)", cpuid_vendor
);
987 puts_filtered ("\n");
989 /* CPUID with EAX = 1 returns processor signature and features. */
992 static char *brand_name
[] = {
1000 char cpu_string
[80];
1003 int intel_p
= strcmp (cpuid_vendor
, "GenuineIntel") == 0;
1004 int amd_p
= strcmp (cpuid_vendor
, "AuthenticAMD") == 0;
1005 unsigned cpu_family
, cpu_model
;
1007 __asm__
__volatile__ ("movl $1, %%eax;"
1014 brand_idx
= cpuid_ebx
& 0xff;
1015 cpu_family
= (cpuid_eax
>> 8) & 0xf;
1016 cpu_model
= (cpuid_eax
>> 4) & 0xf;
1017 cpu_brand
[0] = '\0';
1021 && brand_idx
< sizeof(brand_name
)/sizeof(brand_name
[0])
1022 && *brand_name
[brand_idx
])
1023 strcpy (cpu_brand
, brand_name
[brand_idx
]);
1024 else if (cpu_family
== 5)
1026 if (((cpuid_eax
>> 12) & 3) == 0 && cpu_model
== 4)
1027 strcpy (cpu_brand
, " MMX");
1028 else if (cpu_model
> 1 && ((cpuid_eax
>> 12) & 3) == 1)
1029 strcpy (cpu_brand
, " OverDrive");
1030 else if (cpu_model
> 1 && ((cpuid_eax
>> 12) & 3) == 2)
1031 strcpy (cpu_brand
, " Dual");
1033 else if (cpu_family
== 6 && cpu_model
< 8)
1038 strcpy (cpu_brand
, " Pro");
1041 strcpy (cpu_brand
, " II");
1044 strcpy (cpu_brand
, " II Xeon");
1047 strcpy (cpu_brand
, " Celeron");
1050 strcpy (cpu_brand
, " III");
1060 strcpy (cpu_brand
, "486/5x86");
1069 strcpy (cpu_brand
, "-K5");
1073 strcpy (cpu_brand
, "-K6");
1076 strcpy (cpu_brand
, "-K6-2");
1079 strcpy (cpu_brand
, "-K6-III");
1089 strcpy (cpu_brand
, " Athlon");
1092 strcpy (cpu_brand
, " Duron");
1098 sprintf (cpu_string
, "%s%s Model %d Stepping %d",
1099 intel_p
? "Pentium" : (amd_p
? "AMD" : "ix86"),
1100 cpu_brand
, cpu_model
, cpuid_eax
& 0xf);
1101 printfi_filtered (31, "%s\n", cpu_string
);
1102 if (((cpuid_edx
& (6 | (0x0d << 23))) != 0)
1103 || ((cpuid_edx
& 1) == 0)
1104 || (amd_p
&& (cpuid_edx
& (3 << 30)) != 0))
1106 puts_filtered ("CPU Features...................");
1107 /* We only list features which might be useful in the DPMI
1109 if ((cpuid_edx
& 1) == 0)
1110 puts_filtered ("No FPU "); /* it's unusual to not have an FPU */
1111 if ((cpuid_edx
& (1 << 1)) != 0)
1112 puts_filtered ("VME ");
1113 if ((cpuid_edx
& (1 << 2)) != 0)
1114 puts_filtered ("DE ");
1115 if ((cpuid_edx
& (1 << 4)) != 0)
1116 puts_filtered ("TSC ");
1117 if ((cpuid_edx
& (1 << 23)) != 0)
1118 puts_filtered ("MMX ");
1119 if ((cpuid_edx
& (1 << 25)) != 0)
1120 puts_filtered ("SSE ");
1121 if ((cpuid_edx
& (1 << 26)) != 0)
1122 puts_filtered ("SSE2 ");
1125 if ((cpuid_edx
& (1 << 31)) != 0)
1126 puts_filtered ("3DNow! ");
1127 if ((cpuid_edx
& (1 << 30)) != 0)
1128 puts_filtered ("3DNow!Ext");
1130 puts_filtered ("\n");
1133 puts_filtered ("\n");
1134 printf_filtered ("DOS Version....................%s %s.%s",
1135 _os_flavor
, u
.release
, u
.version
);
1136 if (true_dos_version
!= advertized_dos_version
)
1137 printf_filtered (" (disguised as v%d.%d)", _osmajor
, _osminor
);
1138 puts_filtered ("\n");
1140 go32_get_windows_version ();
1141 if (windows_major
!= 0xff)
1143 const char *windows_flavor
;
1145 printf_filtered ("Windows Version................%d.%02d (Windows ",
1146 windows_major
, windows_minor
);
1147 switch (windows_major
)
1150 windows_flavor
= "3.X";
1153 switch (windows_minor
)
1156 windows_flavor
= "95, 95A, or 95B";
1159 windows_flavor
= "95B OSR2.1 or 95C OSR2.5";
1162 windows_flavor
= "98 or 98 SE";
1165 windows_flavor
= "ME";
1168 windows_flavor
= "9X";
1173 windows_flavor
= "??";
1176 printf_filtered ("%s)\n", windows_flavor
);
1178 else if (true_dos_version
== 0x532 && advertized_dos_version
== 0x500)
1179 printf_filtered ("Windows Version................Windows NT or Windows 2000\n");
1180 puts_filtered ("\n");
1181 if (dpmi_vendor_available
== 0)
1183 /* The DPMI spec says the vendor string should be ASCIIZ, but
1184 I don't trust the vendors to follow that... */
1185 if (!memchr (&dpmi_vendor_info
[2], 0, 126))
1186 dpmi_vendor_info
[128] = '\0';
1187 printf_filtered ("DPMI Host......................%s v%d.%d (capabilities: %#x)\n",
1188 &dpmi_vendor_info
[2],
1189 (unsigned)dpmi_vendor_info
[0],
1190 (unsigned)dpmi_vendor_info
[1],
1191 ((unsigned)dpmi_flags
& 0x7f));
1193 __dpmi_get_version (&dpmi_version_data
);
1194 printf_filtered ("DPMI Version...................%d.%02d\n",
1195 dpmi_version_data
.major
, dpmi_version_data
.minor
);
1196 printf_filtered ("DPMI Info......................%s-bit DPMI, with%s Virtual Memory support\n",
1197 (dpmi_version_data
.flags
& 1) ? "32" : "16",
1198 (dpmi_version_data
.flags
& 4) ? "" : "out");
1199 printfi_filtered (31, "Interrupts reflected to %s mode\n",
1200 (dpmi_version_data
.flags
& 2) ? "V86" : "Real");
1201 printfi_filtered (31, "Processor type: i%d86\n",
1202 dpmi_version_data
.cpu
);
1203 printfi_filtered (31, "PIC base interrupt: Master: %#x Slave: %#x\n",
1204 dpmi_version_data
.master_pic
, dpmi_version_data
.slave_pic
);
1206 /* a_tss is only initialized when the debuggee is first run. */
1207 if (prog_has_started
)
1209 __asm__
__volatile__ ("pushfl ; popl %0" : "=g" (eflags
));
1210 printf_filtered ("Protection.....................Ring %d (in %s), with%s I/O protection\n",
1211 a_tss
.tss_cs
& 3, (a_tss
.tss_cs
& 4) ? "LDT" : "GDT",
1212 (a_tss
.tss_cs
& 3) > ((eflags
>> 12) & 3) ? "" : "out");
1214 puts_filtered ("\n");
1215 __dpmi_get_free_memory_information (&mem_info
);
1216 print_mem (mem_info
.total_number_of_physical_pages
,
1217 "DPMI Total Physical Memory.....", 1);
1218 print_mem (mem_info
.total_number_of_free_pages
,
1219 "DPMI Free Physical Memory......", 1);
1220 print_mem (mem_info
.size_of_paging_file_partition_in_pages
,
1221 "DPMI Swap Space................", 1);
1222 print_mem (mem_info
.linear_address_space_size_in_pages
,
1223 "DPMI Total Linear Address Size.", 1);
1224 print_mem (mem_info
.free_linear_address_space_in_pages
,
1225 "DPMI Free Linear Address Size..", 1);
1226 print_mem (mem_info
.largest_available_free_block_in_bytes
,
1227 "DPMI Largest Free Memory Block.", 0);
1231 __dpmi_int (0x21, ®s
);
1232 print_mem (regs
.x
.bx
<< 4, "Free DOS Memory................", 0);
1234 __dpmi_int (0x21, ®s
);
1235 if ((regs
.x
.flags
& 1) == 0)
1237 static const char *dos_hilo
[] = {
1238 "Low", "", "", "", "High", "", "", "", "High, then Low"
1240 static const char *dos_fit
[] = {
1241 "First", "Best", "Last"
1243 int hilo_idx
= (regs
.x
.ax
>> 4) & 0x0f;
1244 int fit_idx
= regs
.x
.ax
& 0x0f;
1250 printf_filtered ("DOS Memory Allocation..........%s memory, %s fit\n",
1251 dos_hilo
[hilo_idx
], dos_fit
[fit_idx
]);
1253 __dpmi_int (0x21, ®s
);
1254 if ((regs
.x
.flags
& 1) != 0)
1256 printfi_filtered (31, "UMBs %sin DOS memory chain\n",
1257 regs
.h
.al
== 0 ? "not " : "");
1262 unsigned short limit0
__attribute__((packed
));
1263 unsigned short base0
__attribute__((packed
));
1264 unsigned char base1
__attribute__((packed
));
1265 unsigned stype
:5 __attribute__((packed
));
1266 unsigned dpl
:2 __attribute__((packed
));
1267 unsigned present
:1 __attribute__((packed
));
1268 unsigned limit1
:4 __attribute__((packed
));
1269 unsigned available
:1 __attribute__((packed
));
1270 unsigned dummy
:1 __attribute__((packed
));
1271 unsigned bit32
:1 __attribute__((packed
));
1272 unsigned page_granular
:1 __attribute__((packed
));
1273 unsigned char base2
__attribute__((packed
));
1277 unsigned short offset0
__attribute__((packed
));
1278 unsigned short selector
__attribute__((packed
));
1279 unsigned param_count
:5 __attribute__((packed
));
1280 unsigned dummy
:3 __attribute__((packed
));
1281 unsigned stype
:5 __attribute__((packed
));
1282 unsigned dpl
:2 __attribute__((packed
));
1283 unsigned present
:1 __attribute__((packed
));
1284 unsigned short offset1
__attribute__((packed
));
1287 /* Read LEN bytes starting at logical address ADDR, and put the result
1288 into DEST. Return 1 if success, zero if not. */
1290 read_memory_region (unsigned long addr
, void *dest
, size_t len
)
1292 unsigned long dos_ds_limit
= __dpmi_get_segment_limit (_dos_ds
);
1295 /* For the low memory, we can simply use _dos_ds. */
1296 if (addr
<= dos_ds_limit
- len
)
1297 dosmemget (addr
, len
, dest
);
1300 /* For memory above 1MB we need to set up a special segment to
1301 be able to access that memory. */
1302 int sel
= __dpmi_allocate_ldt_descriptors (1);
1308 int access_rights
= __dpmi_get_descriptor_access_rights (sel
);
1309 size_t segment_limit
= len
- 1;
1311 /* Make sure the crucial bits in the descriptor access
1312 rights are set correctly. Some DPMI providers might barf
1313 if we set the segment limit to something that is not an
1314 integral multiple of 4KB pages if the granularity bit is
1315 not set to byte-granular, even though the DPMI spec says
1316 it's the host's responsibility to set that bit correctly. */
1317 if (len
> 1024 * 1024)
1319 access_rights
|= 0x8000;
1320 /* Page-granular segments should have the low 12 bits of
1322 segment_limit
|= 0xfff;
1325 access_rights
&= ~0x8000;
1327 if (__dpmi_set_segment_base_address (sel
, addr
) != -1
1328 && __dpmi_set_descriptor_access_rights (sel
, access_rights
) != -1
1329 && __dpmi_set_segment_limit (sel
, segment_limit
) != -1
1330 /* W2K silently fails to set the segment limit, leaving
1331 it at zero; this test avoids the resulting crash. */
1332 && __dpmi_get_segment_limit (sel
) >= segment_limit
)
1333 movedata (sel
, 0, _my_ds (), (unsigned)dest
, len
);
1337 __dpmi_free_ldt_descriptor (sel
);
1343 /* Get a segment descriptor stored at index IDX in the descriptor
1344 table whose base address is TABLE_BASE. Return the descriptor
1345 type, or -1 if failure. */
1347 get_descriptor (unsigned long table_base
, int idx
, void *descr
)
1349 unsigned long addr
= table_base
+ idx
* 8; /* 8 bytes per entry */
1351 if (read_memory_region (addr
, descr
, 8))
1352 return (int)((struct seg_descr
*)descr
)->stype
;
1357 unsigned short limit
__attribute__((packed
));
1358 unsigned long base
__attribute__((packed
));
1361 /* Display a segment descriptor stored at index IDX in a descriptor
1362 table whose type is TYPE and whose base address is BASE_ADDR. If
1363 FORCE is non-zero, display even invalid descriptors. */
1365 display_descriptor (unsigned type
, unsigned long base_addr
, int idx
, int force
)
1367 struct seg_descr descr
;
1368 struct gate_descr gate
;
1370 /* Get the descriptor from the table. */
1371 if (idx
== 0 && type
== 0)
1372 puts_filtered ("0x000: null descriptor\n");
1373 else if (get_descriptor (base_addr
, idx
, &descr
) != -1)
1375 /* For each type of descriptor table, this has a bit set if the
1376 corresponding type of selectors is valid in that table. */
1377 static unsigned allowed_descriptors
[] = {
1378 0xffffdafeL
, /* GDT */
1379 0x0000c0e0L
, /* IDT */
1380 0xffffdafaL
/* LDT */
1383 /* If the program hasn't started yet, assume the debuggee will
1384 have the same CPL as the debugger. */
1385 int cpl
= prog_has_started
? (a_tss
.tss_cs
& 3) : _my_cs () & 3;
1386 unsigned long limit
= (descr
.limit1
<< 16) | descr
.limit0
;
1389 && (allowed_descriptors
[type
] & (1 << descr
.stype
)) != 0)
1391 printf_filtered ("0x%03x: ",
1393 ? idx
: (idx
* 8) | (type
? (cpl
| 4) : 0));
1394 if (descr
.page_granular
)
1395 limit
= (limit
<< 12) | 0xfff; /* big segment: low 12 bit set */
1396 if (descr
.stype
== 1 || descr
.stype
== 2 || descr
.stype
== 3
1397 || descr
.stype
== 9 || descr
.stype
== 11
1398 || (descr
.stype
>= 16 && descr
.stype
< 32))
1399 printf_filtered ("base=0x%02x%02x%04x limit=0x%08lx",
1400 descr
.base2
, descr
.base1
, descr
.base0
, limit
);
1402 switch (descr
.stype
)
1406 printf_filtered (" 16-bit TSS (task %sactive)",
1407 descr
.stype
== 3 ? "" : "in");
1410 puts_filtered (" LDT");
1413 memcpy (&gate
, &descr
, sizeof gate
);
1414 printf_filtered ("selector=0x%04x offs=0x%04x%04x",
1415 gate
.selector
, gate
.offset1
, gate
.offset0
);
1416 printf_filtered (" 16-bit Call Gate (params=%d)",
1420 printf_filtered ("TSS selector=0x%04x", descr
.base0
);
1421 printfi_filtered (16, "Task Gate");
1425 memcpy (&gate
, &descr
, sizeof gate
);
1426 printf_filtered ("selector=0x%04x offs=0x%04x%04x",
1427 gate
.selector
, gate
.offset1
, gate
.offset0
);
1428 printf_filtered (" 16-bit %s Gate",
1429 descr
.stype
== 6 ? "Interrupt" : "Trap");
1433 printf_filtered (" 32-bit TSS (task %sactive)",
1434 descr
.stype
== 3 ? "" : "in");
1437 memcpy (&gate
, &descr
, sizeof gate
);
1438 printf_filtered ("selector=0x%04x offs=0x%04x%04x",
1439 gate
.selector
, gate
.offset1
, gate
.offset0
);
1440 printf_filtered (" 32-bit Call Gate (params=%d)",
1445 memcpy (&gate
, &descr
, sizeof gate
);
1446 printf_filtered ("selector=0x%04x offs=0x%04x%04x",
1447 gate
.selector
, gate
.offset1
, gate
.offset0
);
1448 printf_filtered (" 32-bit %s Gate",
1449 descr
.stype
== 14 ? "Interrupt" : "Trap");
1451 case 16: /* data segments */
1459 printf_filtered (" %s-bit Data (%s Exp-%s%s)",
1460 descr
.bit32
? "32" : "16",
1461 descr
.stype
& 2 ? "Read/Write," : "Read-Only, ",
1462 descr
.stype
& 4 ? "down" : "up",
1463 descr
.stype
& 1 ? "" : ", N.Acc");
1465 case 24: /* code segments */
1473 printf_filtered (" %s-bit Code (%s, %sConf%s)",
1474 descr
.bit32
? "32" : "16",
1475 descr
.stype
& 2 ? "Exec/Read" : "Exec-Only",
1476 descr
.stype
& 4 ? "" : "N.",
1477 descr
.stype
& 1 ? "" : ", N.Acc");
1480 printf_filtered ("Unknown type 0x%02x", descr
.stype
);
1483 puts_filtered ("\n");
1487 printf_filtered ("0x%03x: ",
1489 ? idx
: (idx
* 8) | (type
? (cpl
| 4) : 0));
1491 puts_filtered ("Segment not present\n");
1493 printf_filtered ("Segment type 0x%02x is invalid in this table\n",
1498 printf_filtered ("0x%03x: Cannot read this descriptor\n", idx
);
1502 go32_sldt (char *arg
, int from_tty
)
1504 struct dtr_reg gdtr
;
1505 unsigned short ldtr
= 0;
1507 struct seg_descr ldt_descr
;
1508 long ldt_entry
= -1L;
1509 int cpl
= (prog_has_started
? a_tss
.tss_cs
: _my_cs ()) & 3;
1513 while (*arg
&& isspace(*arg
))
1518 ldt_entry
= parse_and_eval_long (arg
);
1520 || (ldt_entry
& 4) == 0
1521 || (ldt_entry
& 3) != (cpl
& 3))
1522 error (_("Invalid LDT entry 0x%03lx."), (unsigned long)ldt_entry
);
1526 __asm__
__volatile__ ("sgdt %0" : "=m" (gdtr
) : /* no inputs */ );
1527 __asm__
__volatile__ ("sldt %0" : "=m" (ldtr
) : /* no inputs */ );
1530 puts_filtered ("There is no LDT.\n");
1531 /* LDT's entry in the GDT must have the type LDT, which is 2. */
1532 else if (get_descriptor (gdtr
.base
, ldt_idx
, &ldt_descr
) != 2)
1533 printf_filtered ("LDT is present (at %#x), but unreadable by GDB.\n",
1535 | (ldt_descr
.base1
<< 16)
1536 | (ldt_descr
.base2
<< 24));
1541 | (ldt_descr
.base1
<< 16)
1542 | (ldt_descr
.base2
<< 24);
1543 unsigned limit
= ldt_descr
.limit0
| (ldt_descr
.limit1
<< 16);
1546 if (ldt_descr
.page_granular
)
1547 /* Page-granular segments must have the low 12 bits of their
1549 limit
= (limit
<< 12) | 0xfff;
1550 /* LDT cannot have more than 8K 8-byte entries, i.e. more than
1555 max_entry
= (limit
+ 1) / 8;
1559 if (ldt_entry
> limit
)
1560 error (_("Invalid LDT entry %#lx: outside valid limits [0..%#x]"),
1561 (unsigned long)ldt_entry
, limit
);
1563 display_descriptor (ldt_descr
.stype
, base
, ldt_entry
/ 8, 1);
1569 for (i
= 0; i
< max_entry
; i
++)
1570 display_descriptor (ldt_descr
.stype
, base
, i
, 0);
1576 go32_sgdt (char *arg
, int from_tty
)
1578 struct dtr_reg gdtr
;
1579 long gdt_entry
= -1L;
1584 while (*arg
&& isspace(*arg
))
1589 gdt_entry
= parse_and_eval_long (arg
);
1590 if (gdt_entry
< 0 || (gdt_entry
& 7) != 0)
1591 error (_("Invalid GDT entry 0x%03lx: not an integral multiple of 8."),
1592 (unsigned long)gdt_entry
);
1596 __asm__
__volatile__ ("sgdt %0" : "=m" (gdtr
) : /* no inputs */ );
1597 max_entry
= (gdtr
.limit
+ 1) / 8;
1601 if (gdt_entry
> gdtr
.limit
)
1602 error (_("Invalid GDT entry %#lx: outside valid limits [0..%#x]"),
1603 (unsigned long)gdt_entry
, gdtr
.limit
);
1605 display_descriptor (0, gdtr
.base
, gdt_entry
/ 8, 1);
1611 for (i
= 0; i
< max_entry
; i
++)
1612 display_descriptor (0, gdtr
.base
, i
, 0);
1617 go32_sidt (char *arg
, int from_tty
)
1619 struct dtr_reg idtr
;
1620 long idt_entry
= -1L;
1625 while (*arg
&& isspace(*arg
))
1630 idt_entry
= parse_and_eval_long (arg
);
1632 error (_("Invalid (negative) IDT entry %ld."), idt_entry
);
1636 __asm__
__volatile__ ("sidt %0" : "=m" (idtr
) : /* no inputs */ );
1637 max_entry
= (idtr
.limit
+ 1) / 8;
1638 if (max_entry
> 0x100) /* no more than 256 entries */
1643 if (idt_entry
> idtr
.limit
)
1644 error (_("Invalid IDT entry %#lx: outside valid limits [0..%#x]"),
1645 (unsigned long)idt_entry
, idtr
.limit
);
1647 display_descriptor (1, idtr
.base
, idt_entry
, 1);
1653 for (i
= 0; i
< max_entry
; i
++)
1654 display_descriptor (1, idtr
.base
, i
, 0);
1658 /* Cached linear address of the base of the page directory. For
1659 now, available only under CWSDPMI. Code based on ideas and
1660 suggestions from Charles Sandmann <sandmann@clio.rice.edu>. */
1661 static unsigned long pdbr
;
1663 static unsigned long
1668 unsigned long taskbase
, cr3
;
1669 struct dtr_reg gdtr
;
1671 if (pdbr
> 0 && pdbr
<= 0xfffff)
1674 /* Get the linear address of GDT and the Task Register. */
1675 __asm__
__volatile__ ("sgdt %0" : "=m" (gdtr
) : /* no inputs */ );
1676 __asm__
__volatile__ ("str %0" : "=m" (taskreg
) : /* no inputs */ );
1678 /* Task Register is a segment selector for the TSS of the current
1679 task. Therefore, it can be used as an index into the GDT to get
1680 at the segment descriptor for the TSS. To get the index, reset
1681 the low 3 bits of the selector (which give the CPL). Add 2 to the
1682 offset to point to the 3 low bytes of the base address. */
1683 offset
= gdtr
.base
+ (taskreg
& 0xfff8) + 2;
1686 /* CWSDPMI's task base is always under the 1MB mark. */
1687 if (offset
> 0xfffff)
1690 _farsetsel (_dos_ds
);
1691 taskbase
= _farnspeekl (offset
) & 0xffffffU
;
1692 taskbase
+= _farnspeekl (offset
+ 2) & 0xff000000U
;
1693 if (taskbase
> 0xfffff)
1696 /* CR3 (a.k.a. PDBR, the Page Directory Base Register) is stored at
1697 offset 1Ch in the TSS. */
1698 cr3
= _farnspeekl (taskbase
+ 0x1c) & ~0xfff;
1701 #if 0 /* not fullly supported yet */
1702 /* The Page Directory is in UMBs. In that case, CWSDPMI puts
1703 the first Page Table right below the Page Directory. Thus,
1704 the first Page Table's entry for its own address and the Page
1705 Directory entry for that Page Table will hold the same
1706 physical address. The loop below searches the entire UMB
1707 range of addresses for such an occurence. */
1708 unsigned long addr
, pte_idx
;
1710 for (addr
= 0xb0000, pte_idx
= 0xb0;
1712 addr
+= 0x1000, pte_idx
++)
1714 if (((_farnspeekl (addr
+ 4 * pte_idx
) & 0xfffff027) ==
1715 (_farnspeekl (addr
+ 0x1000) & 0xfffff027))
1716 && ((_farnspeekl (addr
+ 4 * pte_idx
+ 4) & 0xfffff000) == cr3
))
1718 cr3
= addr
+ 0x1000;
1731 /* Return the N'th Page Directory entry. */
1732 static unsigned long
1735 unsigned long pde
= 0;
1737 if (pdbr
&& n
>= 0 && n
< 1024)
1739 pde
= _farpeekl (_dos_ds
, pdbr
+ 4*n
);
1744 /* Return the N'th entry of the Page Table whose Page Directory entry
1746 static unsigned long
1747 get_pte (unsigned long pde
, int n
)
1749 unsigned long pte
= 0;
1751 /* pde & 0x80 tests the 4MB page bit. We don't support 4MB
1752 page tables, for now. */
1753 if ((pde
& 1) && !(pde
& 0x80) && n
>= 0 && n
< 1024)
1755 pde
&= ~0xfff; /* clear non-address bits */
1756 pte
= _farpeekl (_dos_ds
, pde
+ 4*n
);
1761 /* Display a Page Directory or Page Table entry. IS_DIR, if non-zero,
1762 says this is a Page Directory entry. If FORCE is non-zero, display
1763 the entry even if its Present flag is off. OFF is the offset of the
1764 address from the page's base address. */
1766 display_ptable_entry (unsigned long entry
, int is_dir
, int force
, unsigned off
)
1768 if ((entry
& 1) != 0)
1770 printf_filtered ("Base=0x%05lx000", entry
>> 12);
1771 if ((entry
& 0x100) && !is_dir
)
1772 puts_filtered (" Global");
1773 if ((entry
& 0x40) && !is_dir
)
1774 puts_filtered (" Dirty");
1775 printf_filtered (" %sAcc.", (entry
& 0x20) ? "" : "Not-");
1776 printf_filtered (" %sCached", (entry
& 0x10) ? "" : "Not-");
1777 printf_filtered (" Write-%s", (entry
& 8) ? "Thru" : "Back");
1778 printf_filtered (" %s", (entry
& 4) ? "Usr" : "Sup");
1779 printf_filtered (" Read-%s", (entry
& 2) ? "Write" : "Only");
1781 printf_filtered (" +0x%x", off
);
1782 puts_filtered ("\n");
1785 printf_filtered ("Page%s not present or not supported; value=0x%lx.\n",
1786 is_dir
? " Table" : "", entry
>> 1);
1790 go32_pde (char *arg
, int from_tty
)
1792 long pde_idx
= -1, i
;
1796 while (*arg
&& isspace(*arg
))
1801 pde_idx
= parse_and_eval_long (arg
);
1802 if (pde_idx
< 0 || pde_idx
>= 1024)
1803 error (_("Entry %ld is outside valid limits [0..1023]."), pde_idx
);
1809 puts_filtered ("Access to Page Directories is not supported on this system.\n");
1810 else if (pde_idx
>= 0)
1811 display_ptable_entry (get_pde (pde_idx
), 1, 1, 0);
1813 for (i
= 0; i
< 1024; i
++)
1814 display_ptable_entry (get_pde (i
), 1, 0, 0);
1817 /* A helper function to display entries in a Page Table pointed to by
1818 the N'th entry in the Page Directory. If FORCE is non-zero, say
1819 something even if the Page Table is not accessible. */
1821 display_page_table (long n
, int force
)
1823 unsigned long pde
= get_pde (n
);
1829 printf_filtered ("Page Table pointed to by Page Directory entry 0x%lx:\n", n
);
1830 for (i
= 0; i
< 1024; i
++)
1831 display_ptable_entry (get_pte (pde
, i
), 0, 0, 0);
1832 puts_filtered ("\n");
1835 printf_filtered ("Page Table not present; value=0x%lx.\n", pde
>> 1);
1839 go32_pte (char *arg
, int from_tty
)
1841 long pde_idx
= -1L, i
;
1845 while (*arg
&& isspace(*arg
))
1850 pde_idx
= parse_and_eval_long (arg
);
1851 if (pde_idx
< 0 || pde_idx
>= 1024)
1852 error (_("Entry %ld is outside valid limits [0..1023]."), pde_idx
);
1858 puts_filtered ("Access to Page Tables is not supported on this system.\n");
1859 else if (pde_idx
>= 0)
1860 display_page_table (pde_idx
, 1);
1862 for (i
= 0; i
< 1024; i
++)
1863 display_page_table (i
, 0);
1867 go32_pte_for_address (char *arg
, int from_tty
)
1869 CORE_ADDR addr
= 0, i
;
1873 while (*arg
&& isspace(*arg
))
1877 addr
= parse_and_eval_address (arg
);
1880 error_no_arg (_("linear address"));
1884 puts_filtered ("Access to Page Tables is not supported on this system.\n");
1887 int pde_idx
= (addr
>> 22) & 0x3ff;
1888 int pte_idx
= (addr
>> 12) & 0x3ff;
1889 unsigned offs
= addr
& 0xfff;
1891 printf_filtered ("Page Table entry for address 0x%llx:\n",
1892 (unsigned long long)addr
);
1893 display_ptable_entry (get_pte (get_pde (pde_idx
), pte_idx
), 0, 1, offs
);
1897 static struct cmd_list_element
*info_dos_cmdlist
= NULL
;
1900 go32_info_dos_command (char *args
, int from_tty
)
1902 help_list (info_dos_cmdlist
, "info dos ", class_info
, gdb_stdout
);
1906 _initialize_go32_nat (void)
1909 add_target (&go32_ops
);
1911 add_prefix_cmd ("dos", class_info
, go32_info_dos_command
, _("\
1912 Print information specific to DJGPP (aka MS-DOS) debugging."),
1913 &info_dos_cmdlist
, "info dos ", 0, &infolist
);
1915 add_cmd ("sysinfo", class_info
, go32_sysinfo
, _("\
1916 Display information about the target system, including CPU, OS, DPMI, etc."),
1918 add_cmd ("ldt", class_info
, go32_sldt
, _("\
1919 Display entries in the LDT (Local Descriptor Table).\n\
1920 Entry number (an expression) as an argument means display only that entry."),
1922 add_cmd ("gdt", class_info
, go32_sgdt
, _("\
1923 Display entries in the GDT (Global Descriptor Table).\n\
1924 Entry number (an expression) as an argument means display only that entry."),
1926 add_cmd ("idt", class_info
, go32_sidt
, _("\
1927 Display entries in the IDT (Interrupt Descriptor Table).\n\
1928 Entry number (an expression) as an argument means display only that entry."),
1930 add_cmd ("pde", class_info
, go32_pde
, _("\
1931 Display entries in the Page Directory.\n\
1932 Entry number (an expression) as an argument means display only that entry."),
1934 add_cmd ("pte", class_info
, go32_pte
, _("\
1935 Display entries in Page Tables.\n\
1936 Entry number (an expression) as an argument means display only entries\n\
1937 from the Page Table pointed to by the specified Page Directory entry."),
1939 add_cmd ("address-pte", class_info
, go32_pte_for_address
, _("\
1940 Display a Page Table entry for a linear address.\n\
1941 The address argument must be a linear address, after adding to\n\
1942 it the base address of the appropriate segment.\n\
1943 The base address of variables and functions in the debuggee's data\n\
1944 or code segment is stored in the variable __djgpp_base_address,\n\
1945 so use `__djgpp_base_address + (char *)&var' as the argument.\n\
1946 For other segments, look up their base address in the output of\n\
1947 the `info dos ldt' command."),
1961 tcsetpgrp (int fd
, pid_t pgid
)
1963 if (isatty (fd
) && pgid
== SOME_PID
)
1965 errno
= pgid
== SOME_PID
? ENOTTY
: ENOSYS
;