Change 14072: Mistakenly used dXSARGS instead of dSP (MacPerl Bug #494482)

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.