X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/fd34612bda96990b8a77d39fb939ba2703c85f3e..0c9341fb9508e6dc82fb3dd32324b26c74afe3fd:/lsignal.pas?ds=sidebyside diff --git a/lsignal.pas b/lsignal.pas old mode 100755 new mode 100644 index 968f45c..b64e07e --- 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}