richter 00/01/03 22:10:03
Modified: . Changes.pod Embperl.xs epcmd.c epnames.h
emacs embperl.el
Log:
- Fixed a SIGSEGV in OPTION tag which occurs due to
different integer sizes on 64Bit systems. With help
from David Waldo.
Revision Changes Path
1.96 +3 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -r1.95 -r1.96
--- Changes.pod 2000/01/01 13:59:35 1.95
+++ Changes.pod 2000/01/04 06:10:02 1.96
@@ -30,7 +30,9 @@
under which the source should cached, to allow correct
cacheing of data read via EMBPERL_INPUT_FUNC. Spotted by
Neeme Vool.
-
+ - Fixed a SIGSEGV in OPTION tag which occurs due to
+ different integer sizes on 64Bit systems. With help
+ from David Waldo.
=head1 1.2.0 17 Nov 1999
1.24 +2 -2 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- Embperl.xs 1999/12/12 19:32:32 1.23
+++ Embperl.xs 2000/01/04 06:10:02 1.24
@@ -249,7 +249,7 @@
int
embperl_ProcessSub(pFile, nBlockStart, nBlockNo)
- int pFile
+ IV pFile
int nBlockStart
int nBlockNo
INIT:
@@ -453,7 +453,7 @@
int
embperl_ProcessSub(r,pFile,nBlockStart,nBlockNo)
tReq * r
- int pFile
+ IV pFile
int nBlockStart
int nBlockNo
CODE:
1.32 +3 -2 embperl/epcmd.c
Index: epcmd.c
===================================================================
RCS file: /home/cvs/embperl/epcmd.c,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- epcmd.c 1999/11/02 08:32:48 1.31
+++ epcmd.c 2000/01/04 06:10:02 1.32
@@ -903,7 +903,7 @@
/* compile perl sub */
/* sprintf (sSubCode, "unshift @_, HTML::Embperl::CurrReq (0) ;
HTML::Embperl::ProcessSub (%d, %d, %d)", (int)r -> Buf.pFile, nSubPos, r ->
Buf.nBlockNo) ; */
- sprintf (sSubCode, " HTML::Embperl::ProcessSub (%d, %d, %d)", (int)r ->
Buf.pFile, nSubPos, r -> Buf.nBlockNo) ;
+ sprintf (sSubCode, " HTML::Embperl::ProcessSub (%p, %d, %d)", r -> Buf.pFile,
nSubPos, r -> Buf.nBlockNo) ;
while (isspace(*sArg))
sArg++ ;
@@ -1582,7 +1582,8 @@
return ok ; /* no name or no data for select */
}
- pVal = GetHtmlArg (sArg, "VALUE", &vlen) ;
+ pVal = GetHtmlArg (sArg, "VALUE", &slen) ;
+ vlen = slen ; /* first use an int to avoid problems on 64Bit Systems! */
if (vlen == 0)
{
if (r -> bDebug & dbgInput)
1.16 +5 -0 embperl/epnames.h
Index: epnames.h
===================================================================
RCS file: /home/cvs/embperl/epnames.h,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- epnames.h 1999/08/19 04:53:26 1.15
+++ epnames.h 2000/01/04 06:10:02 1.16
@@ -194,8 +194,13 @@
#else /* PERL_VERSION > 5 */
+#ifndef ERRSV
#define ERRSV GvSV(errgv)
+#endif
+
+#ifndef dTHR
#define dTHR
+#endif
#endif /* PERL_VERSION > 5 */
1.66 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -r1.65 -r1.66
--- embperl.el 2000/01/03 05:45:08 1.65
+++ embperl.el 2000/01/04 06:10:03 1.66
@@ -19,9 +19,9 @@
;; Author : Erik Arneson ([EMAIL PROTECTED])
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 2000/01/03 05:45:08 $
+;; Last Modified On: $Date: 2000/01/04 06:10:03 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.65 2000/01/03 05:45:08 richter Exp $
+;; $Id: embperl.el,v 1.66 2000/01/04 06:10:03 richter Exp $
;;
;; Please note that this software is very beta and rather broken. I
;; don't know how useful it will be, although I definitely plan on
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
