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

Diff of /trunk/lsignal.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 116  Line 116 
116  {$endif}  {$endif}
117    
118  // cdecl procedures are not name mangled  // cdecl procedures are not name mangled
119  // so USING something unlikely to cause colliesions in the global namespace  // so USING something unlikely to cause collisions in the global namespace
120  // is a good idea  // is a good idea
121  procedure lsignal_handler( Sig : Integer);cdecl;  procedure lsignal_handler( Sig : Integer);cdecl;
122  var  var
123    currentsignal : tlsignal;    currentsignal : tlsignal;
124  begin  begin
125  //  writeln('in lsignal_hanler');  //  writeln('in lsignal_handler');
126    currentsignal := firstsignal;    currentsignal := firstsignal;
127    while assigned(currentsignal) do begin    while assigned(currentsignal) do begin
128      if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig);      if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig);
# Line 133  Line 133 
133    if assigned(signalloopback) then begin    if assigned(signalloopback) then begin
134      signalloopback.sendstr(' ');      signalloopback.sendstr(' ');
135    end;    end;
136  //  writeln('left lsignal_hanler');  //  writeln('left lsignal_handler');
137  end;  end;
138    
139  {$ifdef freebsd}  {$ifdef freebsd}

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.26