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

* ProcessID initialization added

Browse Source
This commit is contained in:
Tomas Hajny 2004-02-15 21:37:18 +00:00
parent 601f2e02ce
commit 6fa8524e66
1 changed files with 5 additions and 1 deletions

6
rtl/win32/system.pp
View File

@ -1597,6 +1597,7 @@ begin
setup_arguments;
{ Reset IO Error }
InOutRes:=0;
ProcessID := GetCurrentProcess;
ThreadID := GetCurrentThread;
{ Reset internal error variable }
errno:=0;
@ -1607,7 +1608,10 @@ end.
{
$Log$
Revision 1.53 2004-02-02 17:01:47 florian
Revision 1.54 2004-02-15 21:37:18 hajny
* ProcessID initialization added
Revision 1.53 2004/02/02 17:01:47 florian
* workaround for AMD prefetch bug
Revision 1.52 2004/01/20 23:12:49 hajny