From 9763940f8849e5c807566157829a1e6d2c9172ee Mon Sep 17 00:00:00 2001 From: beware Date: Fri, 28 Mar 2014 03:18:52 +0000 Subject: [PATCH] fix spelling mistakes git-svn-id: file:///svnroot/lcore/trunk@136 b1de8a11-f9be-4011-bde0-cc7ace90066a --- binipstuff.pas | 4 ++-- blinklist.pas | 7 +++---- btime.pas | 2 +- dnsasync.pas | 4 ++-- dnscore.pas | 32 ++++++++++++++++---------------- dnssync.pas | 4 ++-- lcore.pas | 14 +++++++------- lcoregtklaz.pas | 2 +- lcorernd.pas | 12 ++++++------ lcoreselect.pas | 20 ++++++++++---------- lcorewsaasyncselect.pas | 4 ++-- lmessages.pas | 8 ++++---- lsignal.pas | 6 +++--- lsocket.pas | 22 +++++++++++----------- ltimevalstuff.pas | 4 ++-- readtxt2.pas | 2 +- unitwindowobject.pas | 2 +- wcore.pas | 10 +++++----- wmessages.pas | 2 +- 19 files changed, 80 insertions(+), 81 deletions(-) diff --git a/binipstuff.pas b/binipstuff.pas index 93363e2..d622029 100644 --- a/binipstuff.pas +++ b/binipstuff.pas @@ -334,7 +334,7 @@ written by beware - implementation does not depend on other ipv6 code such as the tin6_addr type, the parameter can also be untyped. -- it is host endian neutral - binary format is aways network order +- it is host endian neutral - binary format is always network order - it supports compression of zeroes - it supports ::ffff:192.168.12.34 style addresses - they are made to do the Right Thing, more efficient implementations are possible @@ -386,7 +386,7 @@ begin end; end; - {run length atleast 2 0 words} + {run length at least 2 0 words} if (runlength = 1) then begin runlength := 0; runbegin := 0; diff --git a/blinklist.pas b/blinklist.pas index 6ce58d8..ca05847 100644 --- a/blinklist.pas +++ b/blinklist.pas @@ -1,10 +1,9 @@ - { Copyright (C) 2005 Bas Steendijk For conditions of distribution and use, see copyright notice in zlib_license.txt - which is included in the package - ----------------------------------------------------------------------------- } - + which is included in the package + ----------------------------------------------------------------------------- } unit blinklist; + {$ifdef fpc} {$mode delphi} {$endif} diff --git a/btime.pas b/btime.pas index df4f91e..14b734e 100644 --- a/btime.pas +++ b/btime.pas @@ -494,7 +494,7 @@ begin mmtime_lastresult := result; end; -{ free pascals tsystemtime is incomaptible with windows api calls +{ free pascals tsystemtime is incompatible with windows api calls so we declare it ourselves - plugwash } {$ifdef fpc} diff --git a/dnsasync.pas b/dnsasync.pas index 01bc2ff..59660d7 100644 --- a/dnsasync.pas +++ b/dnsasync.pas @@ -57,7 +57,7 @@ type onrequestdone:tsocketevent; //addr and port allow the application to specify a dns server specifically - //for this dnsasync object. This is not a reccomended mode of operation + //for this dnsasync object. This is not a recommended mode of operation //because it limits the app to one dns server but is kept for compatibility //and special uses. addr,port:ansistring; @@ -69,7 +69,7 @@ type procedure dnsresultbin(var binip:tbinip); //get result of dnslookup as a tbinip property dnsresultlist : tbiniplist read fresultlist; procedure forwardlookup(const name:ansistring); //start forward lookup, - //preffering ipv4 + //preferring ipv4 procedure reverselookup(const binip:tbinip); //start reverse lookup procedure customlookup(const name:ansistring;querytype:integer); //start custom type lookup diff --git a/dnscore.pas b/dnscore.pas index 6864398..e38f35f 100644 --- a/dnscore.pas +++ b/dnscore.pas @@ -6,12 +6,12 @@ { code wanting to use this dns system should act as follows (note: app - developers will probablly want to use dnsasync or dnssync or write a similar - wrapper unit of thier own). + developers will probably want to use dnsasync or dnssync or write a similar + wrapper unit of their own). for normal lookups call setstate_forward or setstate_reverse to set up the state, for more obscure lookups use setstate_request_init and fill in other - relavent state manually. + relevant state manually. call state_process which will do processing on the information in the state and return an action @@ -20,7 +20,7 @@ action_sendpacket means that dnscore wants the code that calls it to send the packet in sendpacket/sendpacketlen and then start (or go back to) listening for - action_done means the request has completed (either suceeded or failed) + action_done means the request has completed (either succeeded or failed) callers should resend the last packet they tried to send if they have not been asked to send a new packet for more than some timeout value they choose. @@ -32,23 +32,23 @@ following ways. on failure state.resultstr will be an empty string and state.resultbin will - be zeroed out (easilly detected by the fact that it will have a family of 0) + be zeroed out (easily detected by the fact that it will have a family of 0) on success for a A or AAAA lookup state.resultstr will be an empty string - and state.resultbin will contain the result (note: AAAA lookups require IPV6 + and state.resultbin will contain the result (note: AAAA lookups require IPv6 enabled). - if an A lookup fails and the code is built with ipv6 enabled then the code + if an A lookup fails and the code is built with IPv6 enabled then the code will return any AAAA records with the same name. The reverse does not apply - so if an application preffers IPV6 but wants IPV4 results as well it must - check them seperately. + so if an application prefers IPv6 but wants IPv4 results as well it must + check them separately. on success for any other type of lookup state.resultstr will be an empty note the state contains ansistrings, setstate_init with a null name parameter - can be used to clean theese up if required. + can be used to clean these up if required. - callers may use setstate_failure to mark the state as failed themseleves + callers may use setstate_failure to mark the state as failed themselves before passing it on to other code, for example this may be done in the event of a timeout. } @@ -162,7 +162,7 @@ type end; //commenting out functions from interface that do not have documented semantics -//and probablly should not be called from outside this unit, reenable them +//and probably should not be called from outside this unit, reenable them //if you must but please document them at the same time --plugwash //function buildrequest(const name:string;var packet:tdnspacket;requesttype:word):integer; @@ -172,7 +172,7 @@ function makereversename(const binip:tbinip):ansistring; procedure setstate_request_init(const name:ansistring;var state:tdnsstate); -//set up state for a foward lookup. A family value of AF_INET6 will give only +//set up state for a forward lookup. A family value of AF_INET6 will give only //ipv6 results. Any other value will give only ipv4 results procedure setstate_forward(const name:ansistring;var state:tdnsstate;family:integer); @@ -597,7 +597,7 @@ recursed: goto failure; end; - {do /ets/hosts lookup here} + {do /etc/hosts lookup here} state.sendpacketlen := buildrequest(state.queryname,state.sendpacket,state.requesttype); if state.sendpacketlen = 0 then begin failurereason := 'building request packet failed'; @@ -639,7 +639,7 @@ function getcurrentsystemnameserverbin(var id:integer):tbinip; var counter : integer; begin - {override the name server choice here, instead of overriding it whereever it's called + {override the name server choice here, instead of overriding it wherever it's called setting ID to -1 causes it to be ignored in reportlag} if (overridednsserver <> '') then begin result := ipstrtobinf(overridednsserver); @@ -650,7 +650,7 @@ begin end; if not assigned(dnsserverlag) then populatednsserverlist; - if dnsserverlag.count=0 then raise exception.create('no dns servers availible'); + if dnsserverlag.count=0 then raise exception.create('no dns servers available'); id := 0; if dnsserverlag.count >1 then begin for counter := dnsserverlag.count-1 downto 1 do begin diff --git a/dnssync.pas b/dnssync.pas index 7dedcca..f5eafa6 100644 --- a/dnssync.pas +++ b/dnssync.pas @@ -31,9 +31,9 @@ interface //convert a name to an IP //will return v4 or v6 depending on what seems favorable, or manual preference setting -//on error the binip will have a family of 0 (other fiels are also currently +//on error the binip will have a family of 0 (other fields are also currently //zeroed out but may be used for further error information in future) -//timeout is in miliseconds, it is ignored when using windows dns +//timeout is in milliseconds, it is ignored when using windows dns function forwardlookup(name:ansistring;timeout:integer):tbinip; //convert a name to a list of all IP's returned diff --git a/lcore.pas b/lcore.pas index c936b59..d346c52 100644 --- a/lcore.pas +++ b/lcore.pas @@ -45,7 +45,7 @@ interface receivebufsize=packetbasesize*8; var - absoloutemaxs:integer=0; + absolutemaxs:integer=0; type {$ifdef ver1_0} @@ -84,8 +84,8 @@ interface public state : tsocketstate ; ComponentOptions : TWSocketOptions; - fdhandlein : Longint ; {file discriptor} - fdhandleout : Longint ; {file discriptor} + fdhandlein : Longint ; {file descriptor} + fdhandleout : Longint ; {file descriptor} onsessionclosed : tsocketevent ; ondataAvailable : tsocketevent ; @@ -164,7 +164,7 @@ interface // finitialevent : boolean ; fontimer : tnotifyevent ; fenabled : boolean ; - finterval : integer ; {miliseconds, default 1000} + finterval : integer ; {milliseconds, default 1000} {$ifndef mswindows} procedure resettimes; {$endif} @@ -173,7 +173,7 @@ interface procedure setenabled(newvalue : boolean); procedure setinterval(newvalue : integer); public - //making theese public for now, this code should probablly be restructured later though + //making these public for now, this code should probably be restructured later though prevtimer : tltimer ; nexttimer : tltimer ; nextts : ttimeval ; @@ -590,7 +590,7 @@ begin if (numread=0) and (not mustrefreshfds) then begin {if i remember correctly numread=0 is caused by eof if this isn't dealt with then you get a cpu eating infinite loop - however if onsessionconencted has called processmessages that could + however if onsessionconnected has called processmessages that could cause us to drop to here with an empty recvq and nothing left to read and we don't want that to cause the socket to close} @@ -834,7 +834,7 @@ begin end else begin currenttasklocal := currenttask; //needed in case called from a task end; - // note i don't bother to sestroy the links here as that will happen when + // note i don't bother to destroy the links here as that will happen when // the list of tasks is processed anyway while assigned(currenttasklocal) do begin if currenttasklocal.obj = aobj then begin diff --git a/lcoregtklaz.pas b/lcoregtklaz.pas index b09dbfc..6473784 100644 --- a/lcoregtklaz.pas +++ b/lcoregtklaz.pas @@ -33,7 +33,7 @@ implementation ExtCtrls; {$I unixstuff.inc} var - giochannels : array[0..absoloutemaxs] of pgiochannel; + giochannels : array[0..absolutemaxs] of pgiochannel; function iocallback(source:PGIOChannel; condition:TGIOCondition; data:gpointer):gboolean;cdecl; // return true if we want the callback to stay diff --git a/lcorernd.pas b/lcorernd.pas index 8f79856..7dbd7f1 100644 --- a/lcorernd.pas +++ b/lcorernd.pas @@ -15,7 +15,7 @@ written by Bas Steendijk (beware) the aim of this unit is to provide randomness in a consistent way, using OS specific methods for seeding this unit uses MD5 for performance and code size, but it is made so it is easy to use a different hash, -as long as it is atleat 128 bits, and a multiple of the "word size" (32 bits) +as long as it is at least 128 bits, and a multiple of the "word size" (32 bits) goals: @@ -25,20 +25,20 @@ goals: - for the numbers to be - random: pass diehard and similar tests - - unique: generate UUID's + - unique: generate UUIDs - secure: difficult for a remote attacker to guess the internal state, even when given some output typical intended uses: - anything that needs random numbers without extreme demands on security or speed should be able to use this - - seeding other (faster) RNG's - - generation of passwords, UUID's, cookies, and session keys + - seeding other (faster) RNGs + - generation of passwords, UUIDs, cookies, and session keys - randomizing protocol fields to protect against spoofing attacks - randomness for games this is not intended to be directly used for: -- high securirity purposes (generating RSA root keys etc) +- high security purposes (generating RSA root keys etc) - needing random numbers at very high rates (disk wiping, some simulations, etc) performance: @@ -180,7 +180,7 @@ const hashpasssize=48; {this number has to be small enough that hashing this size uses only one block transform} var - {the seed part of this buffer must be atleast as big as the OS seed (windows: 104 bytes, unix: 36 bytes)} + {the seed part of this buffer must be at least as big as the OS seed (windows: 104 bytes, unix: 36 bytes)} pool:array[0..(pooldwords+seeddwords-1)] of wordtype; reseedcountdown:integer; 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); diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas index 075d558..d029103 100644 --- a/lcorewsaasyncselect.pas +++ b/lcorewsaasyncselect.pas @@ -147,7 +147,7 @@ begin if readtrigger or writetrigger then lasio.handlefdtrigger(readtrigger,writetrigger); end; // don't reset the event manually for listen sockets to avoid unwanted - // extra onsessionavailible events + // extra onsessionavailable events if (taddrint(findtree(@fdwatches,inttostr(socket))) and (FD_ACCEPT)) = 0 then dowsaasyncselect(socket,0,0); // if not a listen socket reset watches end; end else if (ahwnd=hwndlcore) and (aumsg=wm_dotasks) then begin @@ -229,7 +229,7 @@ begin timerwrapperinterface := twintimerwrapperinterface.create(nil); WSAStartup(2, GInitData); - absoloutemaxs := maxlongint; + absolutemaxs := maxlongint; wcoreinit; diff --git a/lmessages.pas b/lmessages.pas index 3edc463..d5521e5 100644 --- a/lmessages.pas +++ b/lmessages.pas @@ -4,7 +4,7 @@ ----------------------------------------------------------------------------- } //this unit provides a rough approximation of windows messages on linux -//it is usefull for multithreaded applications on linux to communicate back to +//it is useful for multithreaded applications on linux to communicate back to //the main lcore thread //This unit is *nix only, on windows you should use the real thing @@ -134,7 +134,7 @@ var lcorelinkpiperecv : tlasio; windows : thashtable; //I would rather things crash immediately - //if they use an insufficiant size type + //if they use an insufficient size type //than crash after over four billion //windows have been made ;) nextwindowhandle : qword = $100000000; @@ -235,7 +235,7 @@ begin //swriteln('duplicate window class registered with different settings'); raise exception.create('duplicate window class registered with different settings'); end else begin - //swriteln('duplicate window class registered with same settings, tollerated'); + //swriteln('duplicate window class registered with same settings, tolerated'); end; end else begin //swriteln('about to allocate memory for new windowclass'); @@ -292,7 +292,7 @@ begin window := twindow(findtree(@windows,inttostr(ahwnd))); if window <> nil then begin freemem(window.extrawindowmemory); - //writeln('aboute to delete window from windows structure'); + //writeln('about to delete window from windows structure'); deltree(@windows,inttostr(ahwnd)); //writeln('deleted window from windows structure'); windowthreaddata := tthreaddata(findtree(@threaddata,inttostr(taddrint(window.threadid)))); diff --git a/lsignal.pas b/lsignal.pas index 968f45c..b64e07e 100644 --- a/lsignal.pas +++ b/lsignal.pas @@ -116,13 +116,13 @@ end; {$endif} // cdecl procedures are not name mangled -// so USING something unlikely to cause colliesions in the global namespace +// so USING something unlikely to cause collisions in the global namespace // is a good idea procedure lsignal_handler( Sig : Integer);cdecl; var currentsignal : tlsignal; begin -// writeln('in lsignal_hanler'); +// writeln('in lsignal_handler'); currentsignal := firstsignal; while assigned(currentsignal) do begin if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig); @@ -133,7 +133,7 @@ begin if assigned(signalloopback) then begin signalloopback.sendstr(' '); end; -// writeln('left lsignal_hanler'); +// writeln('left lsignal_handler'); end; {$ifdef freebsd} diff --git a/lsocket.pas b/lsocket.pas index b493ccd..4596f6b 100644 --- a/lsocket.pas +++ b/lsocket.pas @@ -22,7 +22,7 @@ changes by beware (20030903) beware (20030905) * if connect failed (conn refused) set state to connected and call internalclose, to get closed handler (instead of fdclose) -* (lcore) if closing the fd's in internalcose, set fd's to -1 because closing an fd makes it invalid +* (lcore) if closing the fd's in internalclose, set fds to -1 because closing an fd makes it invalid beware (20030927) * fixed: on connect failed, tried to close fdhandle's which were already set to -1, added check @@ -93,7 +93,7 @@ type //host : THostentry ; - //mainthread : boolean ; //for debuggin only + //mainthread : boolean ; //for debugging only addr:thostname; port:ansistring; localaddr:thostname; @@ -497,7 +497,7 @@ esocketexception.create('unable to listen'); if fdhandlein >= 0 then begin {one *can* get here without fd -beware} eventcore.rmasterclr(fdhandlein); - myfdclose(fdhandlein); // we musnt leak file discriptors + myfdclose(fdhandlein); // we musnt leak file descriptors eventcore.setfdreverse(fdhandlein,nil); fdhandlein := -1; end; @@ -532,7 +532,7 @@ end; function tlsocket.accept : longint; var - FromAddrSize : LongInt; // i don't realy know what to do with these at this + FromAddrSize : LongInt; // i don't really know what to do with these at this FromAddr : TInetSockAddrV; // at this point time will tell :) a:integer; begin @@ -556,11 +556,11 @@ begin if result = -1 then begin raise esocketexception.create('error '+inttostr({$ifdef mswindows}getlasterror{$else}socketerror{$endif})+' while accepting'); end; - if result > absoloutemaxs then begin + if result > absolutemaxs then begin myfdclose(result); a := result; { result := -1;} - raise esocketexception.create('file discriptor out of range: '+inttostr(a)); + raise esocketexception.create('file descriptor out of range: '+inttostr(a)); end; end; @@ -673,14 +673,14 @@ begin exit; end; if (state =wsconnecting) and writetrigger then begin - // code for dealing with the reults of a non-blocking connect is + // code for dealing with the results of a non-blocking connect is // rather complex - // if just write is triggered it means connect suceeded + // if just write is triggered it means connect succeeded // if both read and write are triggered it can mean 2 things - // 1: connect ok and data availible + // 1: connect ok and data available // 2: connect fail // to find out which you must read from the socket and look for errors - // there if we read successfully we drop through into the code for fireing + // there if we read successfully we drop through into the code for firing // the read event if not readtrigger then begin state := wsconnected; @@ -697,7 +697,7 @@ begin exit; end; // if things went well here we are now in the state wsconnected with data sitting in our receive buffer - // so we drop down into the processing for data availible + // so we drop down into the processing for data available end; if fdhandlein >= 0 then begin if state = wsconnected then begin diff --git a/ltimevalstuff.pas b/ltimevalstuff.pas index 5e81933..7054ea9 100644 --- a/ltimevalstuff.pas +++ b/ltimevalstuff.pas @@ -27,7 +27,7 @@ interface procedure tv_add(var tv:ttimeval;msec:integer); function tv_compare(const tv1,tv2:ttimeval):boolean; -procedure tv_substract(var tv:ttimeval;const tv2:ttimeval); +procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval); procedure msectotimeval(var tv:ttimeval;msec:integer); //tv_invalidtimebig will always compare as greater than any valid timeval @@ -59,7 +59,7 @@ begin end else result := tv1.tv_sec > tv2.tv_sec; end; -procedure tv_substract(var tv:ttimeval;const tv2:ttimeval); +procedure tv_subtract(var tv:ttimeval;const tv2:ttimeval); begin dec(tv.tv_usec,tv2.tv_usec); if tv.tv_usec < 0 then begin diff --git a/readtxt2.pas b/readtxt2.pas index 2c269a7..e7ac690 100644 --- a/readtxt2.pas +++ b/readtxt2.pas @@ -94,7 +94,7 @@ begin d := -1; for a := bufpointer to b do begin c := buf[a]; - //check if the character can possiblly be a line ending before getting + //check if the character can possibly be a line ending before getting //into the more complex checks that depend on eol type if (c = 10) or (c = 13) then case allowedeol of eoltype_any: begin diff --git a/unitwindowobject.pas b/unitwindowobject.pas index 48c356b..414f975 100644 --- a/unitwindowobject.pas +++ b/unitwindowobject.pas @@ -118,7 +118,7 @@ begin '', dwstyle, CW_USEDEFAULT, CW_USEDEFAULT,100, 100, hwnd(0), 0, HInstance, nil); //swriteln('about to check result of createwindowex'); if hWndMain = hwnd(0) then raise exception.create('CreateWindowEx failed'); - //swriteln('about to store reference to self in extra windo memory'); + //swriteln('about to store reference to self in extra window memory'); setwindowlongptr(hwndmain,0,taddrint(self)); //swriteln('finished twindowobject.create , hwndmain='+inttohex(taddrint(hwndmain),16)); end; diff --git a/wcore.pas b/wcore.pas index e79fc10..2c07d50 100644 --- a/wcore.pas +++ b/wcore.pas @@ -34,7 +34,7 @@ interface initialdone:boolean; prevtimer:tltimer; nexttimer:tltimer; - interval:integer; {miliseconds, default 1000} + interval:integer; {milliseconds, default 1000} nextts:integer; property enabled:boolean read fenabled write setenabled; constructor create(aowner:tcomponent);override; @@ -79,7 +79,7 @@ const var hwndwcore:hwnd; firsttimer:tltimer; - timesubstract:integer; + timesubtract:integer; firsttask,lasttask,currenttask:tltask; procedure tlcomponent.release; @@ -144,13 +144,13 @@ begin end; tvnow := timegettime; - if (tvnow and ((-1) shl rollover_bits)) <> timesubstract then begin + if (tvnow and ((-1) shl rollover_bits)) <> timesubtract then begin currenttimer := firsttimer; while assigned(currenttimer) do begin dec(currenttimer.nextts,(1 shl rollover_bits)); currenttimer := currenttimer.nexttimer; end; - timesubstract := tvnow and ((-1) shl rollover_bits); + timesubtract := tvnow and ((-1) shl rollover_bits); end; tvnow := tvnow and ((1 shl rollover_bits)-1); @@ -217,7 +217,7 @@ begin end else begin currenttasklocal := currenttask; //needed in case called from a task end; - // note i don't bother to sestroy the links here as that will happen when + // note i don't bother to destroy the links here as that will happen when // the list of tasks is processed anyway while assigned(currenttasklocal) do begin if currenttasklocal.obj = aobj then begin diff --git a/wmessages.pas b/wmessages.pas index 4574d98..205e79d 100644 --- a/wmessages.pas +++ b/wmessages.pas @@ -4,7 +4,7 @@ ----------------------------------------------------------------------------- } unit wmessages; -//this unit contains varions functions and types to make it easier to write +//this unit contains various functions and types to make it easier to write //code that works with both real windows messages and lmessages interface -- 2.30.2