paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 22:50:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* system debug info output to stderr

Browse Source
This commit is contained in:
pierre 1998-10-26 14:49:45 +00:00
parent c7167e92ff
commit ef6de028fa
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/go32v2/emu387.pp
View File

@ -102,7 +102,7 @@ begin
{ Enable Coprocessor, no exceptions }
dpmi_set_coprocessor_emulation(1);
{$ifdef SYSTEMDEBUG}
writeln('Coprocessor restored ');
writeln(stderr,'Coprocessor restored ');
{$endif}
end;
@ -212,7 +212,10 @@ begin
end.
{
$Log$
Revision 1.8 1998-08-15 17:01:14 peter
Revision 1.9 1998-10-26 14:49:45 pierre
* system debug info output to stderr
Revision 1.8 1998/08/15 17:01:14 peter
* smartlinking the units works now
* setjmp/longjmp -> dmpi_setjmp/dpmi_longjmp to solve systemunit
conflict

13
rtl/dos/go32v2/system.pp
View File

@ -313,7 +313,7 @@ largs[0]:=dos_argv0;
argc := 1;
sysseg_move(psp, 128, get_ds, longint(@doscmd), 128);
{$IfDef SYSTEMDEBUG}
Writeln('Dos command line is #',doscmd,'# size = ',length(doscmd));
Writeln(stderr,'Dos command line is #',doscmd,'# size = ',length(doscmd));
{$EndIf SYSTEMDEBUG}
j := 1;
quote := #0;
@ -359,7 +359,7 @@ if (argc > 1) and (far_strlen(get_ds,longint(largs[1])) = 6) then
if (proxy_s = '!proxy') then
begin
{$IfDef SYSTEMDEBUG}
Writeln('proxy command line ');
Writeln(stderr,'proxy command line ');
{$EndIf SYSTEMDEBUG}
proxy_argc := atohex(largs[2]);
proxy_seg := atohex(largs[3]);
@ -373,7 +373,7 @@ if (argc > 1) and (far_strlen(get_ds,longint(largs[1])) = 6) then
getmem(largs[i],al+1);
sysseg_move(dos_selector, lin, get_ds,longint(largs[i]), al+1);
{$IfDef SYSTEMDEBUG}
Writeln('arg ',i,' #',largs[i],'#');
Writeln(stderr,'arg ',i,' #',largs[i],'#');
{$EndIf SYSTEMDEBUG}
end;
argc := proxy_argc;
@ -452,7 +452,7 @@ begin
getmem(envp[env_count],strlen(cp)+1);
strcopy(envp[env_count], cp);
{$IfDef SYSTEMDEBUG}
Writeln('env ',env_count,' = "',envp[env_count],'"');
Writeln(stderr,'env ',env_count,' = "',envp[env_count],'"');
{$EndIf SYSTEMDEBUG}
inc(env_count);
while (cp^ <> #0) do
@ -1225,7 +1225,10 @@ Begin
End.
{
$Log$
Revision 1.21 1998-10-20 07:34:07 pierre
Revision 1.22 1998-10-26 14:49:46 pierre
* system debug info output to stderr
Revision 1.21 1998/10/20 07:34:07 pierre
+ systemdebug reports about unclosed files at exit
Revision 1.20 1998/10/13 21:41:06 peter