|
@@ -16,6 +16,8 @@
|
|
|
unit FPDebug;
|
|
unit FPDebug;
|
|
|
interface
|
|
interface
|
|
|
|
|
|
|
|
|
|
+{$i globdir.inc}
|
|
|
|
|
+
|
|
|
uses
|
|
uses
|
|
|
{$ifdef win32}
|
|
{$ifdef win32}
|
|
|
Windows,
|
|
Windows,
|
|
@@ -385,6 +387,9 @@ uses
|
|
|
{$ifdef fpc}
|
|
{$ifdef fpc}
|
|
|
Video,
|
|
Video,
|
|
|
{$endif fpc}
|
|
{$endif fpc}
|
|
|
|
|
+{$ifdef DOS}
|
|
|
|
|
+ fpusrscr,
|
|
|
|
|
+{$endif DOS}
|
|
|
App,Strings,
|
|
App,Strings,
|
|
|
{$ifdef FVISION}
|
|
{$ifdef FVISION}
|
|
|
FVConsts,
|
|
FVConsts,
|
|
@@ -4060,6 +4065,10 @@ begin
|
|
|
if assigned(Debugger) then
|
|
if assigned(Debugger) then
|
|
|
dispose(Debugger,Done);
|
|
dispose(Debugger,Done);
|
|
|
Debugger:=nil;
|
|
Debugger:=nil;
|
|
|
|
|
+{$ifdef DOS}
|
|
|
|
|
+ If assigned(UserScreen) then
|
|
|
|
|
+ PDosScreen(UserScreen)^.FreeGraphBuffer;
|
|
|
|
|
+{$endif DOS}
|
|
|
{$ifdef DEBUG}
|
|
{$ifdef DEBUG}
|
|
|
If Use_gdb_file then
|
|
If Use_gdb_file then
|
|
|
begin
|
|
begin
|
|
@@ -4213,7 +4222,10 @@ end.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.32 2002-09-17 21:58:45 pierre
|
|
|
|
|
|
|
+ Revision 1.33 2002-09-21 22:23:49 pierre
|
|
|
|
|
+ * restore text mode on reset for Dos apps
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.32 2002/09/17 21:58:45 pierre
|
|
|
* correct last fpu patch so 'info all' is called only once
|
|
* correct last fpu patch so 'info all' is called only once
|
|
|
|
|
|
|
|
Revision 1.31 2002/09/17 21:48:41 pierre
|
|
Revision 1.31 2002/09/17 21:48:41 pierre
|
pierre