This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
! | |
aaa new-model | |
! | |
! | |
aaa authentication login VPN local | |
aaa authorization network VPN local | |
! | |
! | |
vpdn enable | |
! |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
The idea of DelphiSwitchToFiber() function is to backup on a local variable in stack the | |
state of the Exception stack right before calling SwitchToFiber() and then restoring its state | |
right atfer returns from call to SwitchToFiber(). | |
If SwitchToFiber() is used directly from within an Except or Finally block, and if there's an exception | |
raised after switching to another fiber, upon coming back the results will be unpredictable because | |
the exception stack will be completely unwinded and all raise exceptions destroyed. | |
In order to prevent this issue we must backup the Exception stack before the call to SwitchToFiber() | |
and restore it right after the call. |