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

* fixed compilation errors

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-25 13:05:08 +00:00
parent 45ebe9b10b
commit 5386a1c2ca
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/go32v2/system.pp
View File

@ -1597,7 +1597,6 @@ Begin
FileNameCaseSensitive:=true;
{ Reset IO Error }
InOutRes:=0;
ThreadID := 1;
{$ifdef EXCEPTIONS_IN_SYSTEM}
InitDPMIExcp;
InstallDefaultHandlers;
@ -1608,7 +1607,10 @@ Begin
End.
{
$Log$
Revision 1.32 2004-01-20 23:09:14 hajny
Revision 1.33 2004-01-25 13:05:08 jonas
* fixed compilation errors
Revision 1.32 2004/01/20 23:09:14 hajny
* ExecuteProcess fixes, ProcessID and ThreadID added
Revision 1.31 2004/01/10 10:49:24 jonas

23
rtl/go32v2/sysutils.pp
View File

@ -775,7 +775,7 @@ begin
CommandLine := Path + ' ' + ComLine
else
CommandLine := Path;
e:=EOSError.CreateFmt(SExecuteProcessFailed,[CommandLine,Dos.DosError]);
e:=EOSError.CreateFmt('Failed to execute %s : %d',[CommandLine,Dos.DosError]);
e.ErrorCode:=Dos.DosError;
raise e;
end;
@ -803,8 +803,8 @@ end;
procedure initdelay;assembler;
asm
pushl %ebx
pushl %edi
pushl %ebx
pushl %edi
{ for some reason, using int $31/ax=$901 doesn't work here }
{ and interrupts are always disabled at this point when }
{ running a program inside gdb(pas). Web bug 1345 (JM) }
@ -824,15 +824,15 @@ asm
movl $55,%ecx
divl %ecx
movl %eax,DelayCnt
popl %edi
popl %ebx
popl %edi
popl %ebx
end;
procedure Sleep(MilliSeconds: Cardinal);assembler;
asm
pushl %ebx
pushl %edi
pushl %ebx
pushl %edi
movl MilliSeconds,%ecx
jecxz .LDelay2
movl $0x400,%edi
@ -843,8 +843,8 @@ asm
call DelayLoop
loop .LDelay1
.LDelay2:
popl %edi
popl %ebx
popl %edi
popl %ebx
end;
{****************************************************************************
@ -860,7 +860,10 @@ Finalization
end.
{
$Log$
Revision 1.22 2004-01-20 23:09:14 hajny
Revision 1.23 2004-01-25 13:05:08 jonas
* fixed compilation errors
Revision 1.22 2004/01/20 23:09:14 hajny
* ExecuteProcess fixes, ProcessID and ThreadID added
Revision 1.21 2004/01/10 20:25:14 michael