/[lcore]/trunk/lcoremessages.pas
ViewVC logotype

Diff of /trunk/lcoremessages.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 135 by beware, Thu Mar 13 21:27:50 2014 UTC revision 136 by beware, Fri Mar 28 03:18:52 2014 UTC
# Line 4  Line 4 
4    ----------------------------------------------------------------------------- }    ----------------------------------------------------------------------------- }
5    
6  //this unit provides a rough approximation of windows messages on linux  //this unit provides a rough approximation of windows messages on linux
7  //it is usefull for multithreaded applications on linux to communicate back to  //it is useful for multithreaded applications on linux to communicate back to
8  //the main lcore thread  //the main lcore thread
9  //This unit is *nix only, on windows you should use the real thing  //This unit is *nix only, on windows you should use the real thing
10    
# Line 134  Line 134 
134    lcorelinkpiperecv : tlasio;    lcorelinkpiperecv : tlasio;
135    windows : thashtable;    windows : thashtable;
136    //I would rather things crash immediately    //I would rather things crash immediately
137    //if they use an insufficiant size type    //if they use an insufficient size type
138    //than crash after over four billion    //than crash after over four billion
139    //windows have been made ;)    //windows have been made ;)
140    nextwindowhandle : qword = $100000000;    nextwindowhandle : qword = $100000000;
# Line 235  Line 235 
235          //swriteln('duplicate window class registered with different settings');          //swriteln('duplicate window class registered with different settings');
236          raise exception.create('duplicate window class registered with different settings');          raise exception.create('duplicate window class registered with different settings');
237        end else begin        end else begin
238          //swriteln('duplicate window class registered with same settings, tollerated');          //swriteln('duplicate window class registered with same settings, tolerated');
239        end;        end;
240      end else begin      end else begin
241        //swriteln('about to allocate memory for new windowclass');        //swriteln('about to allocate memory for new windowclass');
# Line 292  Line 292 
292      window := twindow(findtree(@windows,inttostr(ahwnd)));      window := twindow(findtree(@windows,inttostr(ahwnd)));
293      if window <> nil then begin      if window <> nil then begin
294        freemem(window.extrawindowmemory);        freemem(window.extrawindowmemory);
295        //writeln('aboute to delete window from windows structure');        //writeln('about to delete window from windows structure');
296        deltree(@windows,inttostr(ahwnd));        deltree(@windows,inttostr(ahwnd));
297        //writeln('deleted window from windows structure');        //writeln('deleted window from windows structure');
298        windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(taddrint(window.threadid))));        windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(taddrint(window.threadid))));

Legend:
Removed from v.135  
changed lines
  Added in v.136

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22