suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix AppleEvent leak

Browse Source 
svn: r13251
This commit is contained in:
Matthew Flatt 2009-01-21 18:17:57 +00:00
parent 265f75379a
commit 57d7cd140f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mred/mredmac.cxx
View File

@ -285,6 +285,9 @@ static int waiting_for_next_event;
static int wne_handlersInstalled;
static int pending_self_ae;
static int ae_target_ready = 0;
static AEAddressDesc ae_target;
static void EnsureWNEReturn()
{
/* Generate an event that WaitNextEvent() will return, but that we can
@ -298,15 +301,18 @@ static void EnsureWNEReturn()
dummy AppleEvent and defeat the purpose. */
if (!pending_self_ae) {
ProcessSerialNumber psn;
AEAddressDesc target;
AppleEvent ae;
pending_self_ae = 1;
GetCurrentProcess(&psn);
AECreateDesc(typeProcessSerialNumber, &psn, sizeof(psn), &target);
AECreateAppleEvent('MrEd', 'Smug', &target, kAutoGenerateReturnID, kAnyTransactionID, &ae);
if (!ae_target_ready) {
AECreateDesc(typeProcessSerialNumber, &psn, sizeof(psn), &ae_target);
ae_target_ready = 1;
AECreateAppleEvent('MrEd', 'Smug', &ae_target, kAutoGenerateReturnID, kAnyTransactionID, &ae);
}
AESend(&ae, NULL, kAENoReply, kAENormalPriority, kNoTimeOut, NULL, NULL);
AEDisposeDesc(&ae);
}
}