removed incorrect executable status from files

[lcore.git] / lmessages.pas

diff --git a/lmessages.pas b/lmessages.pas
old mode 100755 (executable)
new mode 100644 (file)
index d7e4008..3edc463
--- a/lmessages.pas
+++ b/lmessages.pas
@@ -73,11 +73,13 @@ type
 const\r
   WS_EX_TOOLWINDOW = $80;\r
   WS_POPUP = longint($80000000);\r
+  CW_USEDEFAULT=$80000000;\r
   hinstance=nil;\r
   PM_REMOVE = 1;\r
   WM_USER = 1024;\r
   WM_TIMER = 275;\r
   INFINITE = syncobjs.infinite;\r
+\r
 function getwindowlongptr(ahwnd:hwnd;nindex:integer) : taddrint;\r
 function setwindowlongptr(ahwnd:hwnd;nindex:integer;dwNewLong : taddrint) : taddrint;\r
 function DefWindowProc(ahWnd:HWND; auMsg:Integer; awParam:WPARAM; alParam:LPARAM):Integer; stdcall;\r
@@ -99,10 +101,11 @@ procedure init;
 \r
 implementation\r
 uses\r
-  baseunix,unix,lcore,unixutil,ltimevalstuff;//,safewriteln;\r
+  baseunix,unix,lcore,unixutil,ltimevalstuff,sockets;//,safewriteln;\r
 {$i unixstuff.inc}\r
 \r
 type\r
+  \r
   tmessageintransit = class\r
     msg : tmsg;\r
     next : tmessageintransit;\r
@@ -114,7 +117,7 @@ type
     waiting : boolean;\r
     lcorethread : boolean;\r
     nexttimer : ttimeval;\r
-    threadid : integer;\r
+    threadid : tthreadid;\r
   end;\r
   twindow=class\r
     hwnd : hwnd;\r
@@ -138,15 +141,15 @@ var
 \r
 \r
 //findthreaddata should only be called while holding the structurelock\r
-function findthreaddata(threadid : integer) : tthreaddata;\r
+function findthreaddata(threadid : tthreadid) : tthreaddata;\r
 begin\r
-  result := tthreaddata(findtree(@threaddata,inttostr(threadid)));\r
+  result := tthreaddata(findtree(@threaddata,inttostr(taddrint(threadid))));\r
   if result = nil then begin\r
     result := tthreaddata.create;\r
     result.messageevent := teventobject.create(nil,false,false,inttostr(taddrint(result)));\r
     result.nexttimer := tv_invalidtimebig;\r
     result.threadid := threadid;\r
-    addtree(@threaddata,inttostr(threadid),result);\r
+    addtree(@threaddata,inttostr(taddrint(threadid)),result);\r
   end;\r
 end;\r
 \r
@@ -160,7 +163,7 @@ begin
     //writeln('freeing thread data object');\r
     athreaddata.free;\r
     //writeln('deleting thread data object from hashtable');\r
-    deltree(@threaddata,inttostr(athreaddata.threadid));\r
+    deltree(@threaddata,inttostr(taddrint(athreaddata.threadid)));\r
     //writeln('finished deleting thread data');\r
   end else begin\r
     //writeln('thread data is not unused');\r
@@ -292,7 +295,7 @@ begin
       //writeln('aboute to delete window from windows structure');\r
       deltree(@windows,inttostr(ahwnd));\r
       //writeln('deleted window from windows structure');\r
-      windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(window.threadid)));\r
+      windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(taddrint(window.threadid))));\r
 \r
       if windowthreaddata <> nil then begin\r
         //writeln('found thread data scanning for messages to clean up');\r