From 2a303c88f53884fa2e22346333e43e5cfbee93a2 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Tue, 22 Mar 2011 15:26:28 +0000
Subject: [PATCH] * On thread creation error, use a resourcestring message and
 textual representation of system error code. - Removed an unused type
 declaration.

git-svn-id: trunk@17164 -
---
 rtl/win/tthread.inc | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/rtl/win/tthread.inc b/rtl/win/tthread.inc
index aa6203d1e5..8bb90c4ebb 100644
--- a/rtl/win/tthread.inc
+++ b/rtl/win/tthread.inc
@@ -1,14 +1,5 @@
 { Thread management routines }
 
-type
-  PRaiseFrame = ^TRaiseFrame;
-  TRaiseFrame = record
-    NextRaise: PRaiseFrame;
-    ExceptAddr: Pointer;
-    ExceptObject: TObject;
-    ExceptionRecord: pointer; {PExceptionRecord}
-  end;
-
 constructor TThread.Create(CreateSuspended: Boolean;
                            const StackSize: SizeUInt = DefaultStackSize);
 begin
@@ -20,7 +11,7 @@ begin
   FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), CREATE_SUSPENDED,
                          FThreadID);
   if FHandle = TThreadID(0) then
-    raise EThread.create('Failed to create new thread, code:'+inttostr(getlasterror));
+    raise EThread.CreateFmt(SThreadCreateError, [SysErrorMessage(getlasterror)]);
 
   FFatalException := nil;
 end;