Change 14072 by pudge@pudge-mobile on 2002/01/04 20:37:44
Mistakenly used dXSARGS instead of dSP (MacPerl Bug #494482)
Affected files ...
.... //depot/maint-5.6/macperl/macos/ext/Mac/Lists/Lists.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Menus/Menus.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Movies/Movies.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/StandardFile.xs#2 edit
.... //depot/maint-5.6/macperl/macos/ext/Mac/Windows/Windows.xs#2 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/ext/Mac/Lists/Lists.xs#2 (text) ====
Index: perl/macos/ext/Mac/Lists/Lists.xs
--- perl/macos/ext/Mac/Lists/Lists.xs.~1~ Fri Jan 4 13:45:06 2002
+++ perl/macos/ext/Mac/Lists/Lists.xs Fri Jan 4 13:45:06 2002
@@ -26,7 +26,7 @@
SV * ldef;
Handle cells;
- dXSARGS;
+ dSP;
ldef = (SV *) lHandle[0]->userHandle;
==== //depot/maint-5.6/macperl/macos/ext/Mac/Menus/Menus.xs#2 (text) ====
Index: perl/macos/ext/Mac/Menus/Menus.xs
--- perl/macos/ext/Mac/Menus/Menus.xs.~1~ Fri Jan 4 13:45:06 2002
+++ perl/macos/ext/Mac/Menus/Menus.xs Fri Jan 4 13:45:06 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Menus/Menus.xs,v 1.3 2001/04/16
04:45:15 neeri Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Menus/Menus.xs,v 1.4 2001/12/19
+06:50:32 neeri Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: Menus.xs,v $
+ * Revision 1.4 2001/12/19 06:50:32 neeri
+ * Mistakenly used dXSARGS instead of dSP (MacPerl Bug #494482)
+ *
* Revision 1.3 2001/04/16 04:45:15 neeri
* Switch from atexit() to Perl_call_atexit (MacPerl bug #232158)
*
@@ -95,7 +98,7 @@
static pascal void CallMDEF(
short message, MenuHandle menu, Rect * menuRect, Point hitPt, short * item)
{
- dXSARGS ;
+ dSP ;
ENTER ;
SAVETMPS;
==== //depot/maint-5.6/macperl/macos/ext/Mac/Movies/Movies.xs#2 (text) ====
Index: perl/macos/ext/Mac/Movies/Movies.xs
--- perl/macos/ext/Mac/Movies/Movies.xs.~1~ Fri Jan 4 13:45:06 2002
+++ perl/macos/ext/Mac/Movies/Movies.xs Fri Jan 4 13:45:06 2002
@@ -38,7 +38,7 @@
{
Boolean result;
- dXSARGS ;
+ dSP ;
ENTER ;
SAVETMPS;
==== //depot/maint-5.6/macperl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs#2 (text) ====
Index: perl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs
--- perl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs.~1~ Fri Jan 4 13:45:06 2002
+++ perl/macos/ext/Mac/QuickTimeVR/QuickTimeVR.xs Fri Jan 4 13:45:06 2002
@@ -25,7 +25,7 @@
static pascal void PerlIntercept(
QTVRInstance qtvr, QTVRInterceptRecord msg, SV * proc, Boolean * cancel)
{
- dXSARGS;
+ dSP;
ENTER;
SAVETMPS;
==== //depot/maint-5.6/macperl/macos/ext/Mac/StandardFile/StandardFile.xs#2 (text) ====
Index: perl/macos/ext/Mac/StandardFile/StandardFile.xs
--- perl/macos/ext/Mac/StandardFile/StandardFile.xs.~1~ Fri Jan 4 13:45:06 2002
+++ perl/macos/ext/Mac/StandardFile/StandardFile.xs Fri Jan 4 13:45:06 2002
@@ -34,7 +34,7 @@
{
Boolean res;
- dXSARGS;
+ dSP;
ENTER;
SAVETMPS;
@@ -64,7 +64,7 @@
{
short res;
- dXSARGS;
+ dSP;
ENTER;
SAVETMPS;
@@ -91,7 +91,7 @@
Boolean res;
int count;
- dXSARGS;
+ dSP;
ENTER;
SAVETMPS;
@@ -121,7 +121,7 @@
pascal void CallActivate(DialogPtr theDialog, short itemNo, Boolean activating,
SFProcs * procs)
{
- dXSARGS;
+ dSP;
PUSHMARK(sp);
XS_XPUSH(GrafPtr, theDialog);
==== //depot/maint-5.6/macperl/macos/ext/Mac/Windows/Windows.xs#2 (text) ====
Index: perl/macos/ext/Mac/Windows/Windows.xs
--- perl/macos/ext/Mac/Windows/Windows.xs.~1~ Fri Jan 4 13:45:06 2002
+++ perl/macos/ext/Mac/Windows/Windows.xs Fri Jan 4 13:45:06 2002
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Windows/Windows.xs,v 1.3 2000/12/22
08:31:47 neeri Exp $
+/* $Header: /cvsroot/macperl/perl/macos/ext/Mac/Windows/Windows.xs,v 1.4 2001/12/19
+06:50:32 neeri Exp $
*
* Copyright (c) 1996 Matthias Neeracher
*
@@ -6,6 +6,9 @@
* as specified in the README file.
*
* $Log: Windows.xs,v $
+ * Revision 1.4 2001/12/19 06:50:32 neeri
+ * Mistakenly used dXSARGS instead of dSP (MacPerl Bug #494482)
+ *
* Revision 1.3 2000/12/22 08:31:47 neeri
* Some build tweaks
*
@@ -52,7 +55,7 @@
{
SV * wdef;
- dXSARGS;
+ dSP;
wdef = ((PerlWDEFDataHdl)win->dataHandle)[0]->wdef;
End of Patch.
