X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/03b75b4c964d8b3ac97d4007f0e033549b01c92f..9763940f8849e5c807566157829a1e6d2c9172ee:/lcoreselect.pas diff --git a/lcoreselect.pas b/lcoreselect.pas index 38da6ba..f613f67 100644 --- a/lcoreselect.pas +++ b/lcoreselect.pas @@ -45,10 +45,10 @@ uses {$include unixstuff.inc} const - absoloutemaxs_select = (sizeof(fdset)*8)-1; + absolutemaxs_select = (sizeof(fdset)*8)-1; var - fdreverse:array[0..absoloutemaxs_select] of tlasio; + fdreverse:array[0..absolutemaxs_select] of tlasio; type tselecteventcore=class(teventcore) public @@ -90,7 +90,7 @@ end; procedure processasios(var fdsr,fdsw:fdset);//inline; var currentsocket : tlasio ; - socketcount : integer ; // for debugging perposes :) + socketcount : integer ; // for debugging purposes :) dw,bt:integer; currentfdword:fdword; fd : integer; @@ -98,7 +98,7 @@ begin //writeln('entering processasios'); { inc(lcoretestcount);} - //the message loop will exit if all lasio's and ltimer's and lsignal's are destroyed + //the message loop will exit if all lasios and ltimers and lsignals are destroyed //if (not assigned(firstasin)) and (not assigned(firsttimer)) and (not assigned(firstsignal)) then exit; @@ -144,7 +144,7 @@ begin - sockets which are released may not be freed because theyre never processed by the loop made new code for handling this, using asinreleaseflag - - when/why does the mustrefreshfds select apply, sheck if i did it correctly? + - when/why does the mustrefreshfds select apply, check if i did it correctly? - what happens if calling handlefdtrigger for a socket which does not have an event } @@ -288,7 +288,7 @@ begin repeat - //the message loop will exit if all lasio's and ltimer's and lsignal's are destroyed + //the message loop will exit if all lasios and ltimers and lsignals are destroyed processtasks; //currenttask := nil; {beware} @@ -310,7 +310,7 @@ begin end else begin gettimeofday(tvnow); - tv_substract(tv,tvnow); + tv_subtract(tv,tvnow); //writeln('timers active'); if tv.tv_sec < 0 then begin @@ -334,7 +334,7 @@ end; procedure tselecteventcore.rmasterset(fd : integer;islistensocket : boolean); begin //writeln('rmasterset called with fd ',fd); - if fd > absoloutemaxs then raise esocketexception.create('file discriptor out of range'); + if fd > absolutemaxs then raise esocketexception.create('file descriptor out of range'); if fd > maxs then maxs := fd; if fd_isset(fd,fdsrmaster) then exit; fd_set(fd,fdsrmaster); @@ -353,7 +353,7 @@ end; procedure tselecteventcore.wmasterset(fd : integer); begin //writeln('wmasterset called with fd ',fd); - if fd > absoloutemaxs then raise esocketexception.create('file discriptor out of range'); + if fd > absolutemaxs then raise esocketexception.create('file descriptor out of range'); if fd > maxs then maxs := fd; if fd_isset(fd,fdswmaster) then exit; @@ -382,7 +382,7 @@ begin inited := true; eventcore := tselecteventcore.create; - absoloutemaxs := absoloutemaxs_select; + absolutemaxs := absolutemaxs_select; maxs := 0; fd_zero(fdsrmaster);