1. WIN32LIB Error on Open
--part1_7a.2a734860.2a751bbc_boundary
Hi All,
I think this has been asked before but anyway, why do I sometimes get the
following error when I launch an exw program.
I use win98se and win32lib 57.9 with euohoria 2.3
If required I can send the whole ex.err file.
ex.err report:
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 in procedure fShowError()
attempt to divide by 0
pParams = {{103'g',101'e',116't',72'H',97'a',110'n',100'd',108'l',
101'e',58':',84'T',104'h',101'e',32' ',115's',116't',111'o',114'r',101'e',
100'd',32' ',104'h',87'W',110'n',100'd',32' ',102'f',111'o',114'r',32' ',
105'i',100'd',32' ',37'%',100'd',32' ',105'i',115's',32' ',110'n',111'o',
119'w',32' ',97'a',116't',116't',97'a',99'c',104'h',101'e',100'd',32' ',
116't',111'o',32' ',105'i',100'd',32' ',37'%',100'd'},499,{29,53'5'}}
pMode = 2
lErrCode = 499
lResponse = 1
lStyle = 16
and so on
Traced lines leading up to the failure:
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115 heldResource = removeIndex(
at, heldResource )
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8366 deleteObject( held[i][ResHandle]
)
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8092 if atom(resource) then
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8093 handle = resource
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8100 if isStockResource( handle ) then
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8060 return find(a, vStockResources)
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8104 at = findKey( handle,
heldResource )
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8105 if (at = 0) or
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8107 lRC = w32Func( xDeleteObject,
{handle} )
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8111 at = findKey( handle,
heldResource )
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115 heldResource = removeIndex(
at, heldResource )
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8370 for i = 1 to length( heldCursor )
do
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8374 heldCursor = {}
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8377 release_all_mem()
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8379 vWinMainState = kFinished
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8381 end procedure
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:523 end procedure
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:595 if pMode = 2
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 abort(1/0) -- Force the ex.err
to be created.
--part1_7a.2a734860.2a751bbc_boundary
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
<HTML><FONT FACE=arial,helvetica><FONT SIZE=2 FAMILY="SANSSERIF" FACE="Arial"
LANG="0">Hi All,<BR>
I think this has been asked before but anyway, why do I sometimes get the
following error when I launch an exw program.<BR>
I use win98se and win32lib 57.9 with euohoria 2.3<BR>
If required I can send the whole ex.err file.<BR>
<BR>
ex.err report:<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 in procedure fShowError() <BR>
attempt to divide by 0 <BR>
pParams =
{{103'g',101'e',116't',72'H',97'a',110'n',100'd',108'l',<BR>
101'e',58':',84'T',104'h',101'e',32' ',115's',116't',111'o',114'r',101'e',<BR>
100'd',32' ',104'h',87'W',110'n',100'd',32' ',102'f',111'o',114'r',32' ',<BR>
105'i',100'd',32' ',37'%',100'd',32' ',105'i',115's',32' ',110'n',111'o',<BR>
119'w',32' ',97'a',116't',116't',97'a',99'c',104'h',101'e',100'd',32' ',<BR>
116't',111'o',32' ',105'i',100'd',32' ',37'%',100'd'},499,{29,53'5'}}<BR>
pMode = 2<BR>
lErrCode = 499<BR>
lResponse = 1<BR>
lStyle = 16<BR>
<BR>
and so on<BR>
<BR>
Traced lines leading up to the failure:<BR>
<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115
heldResource = removeIndex( at,
heldResource )<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8366 deleteObject(
held[i][ResHandle] )<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8092 if atom(resource)
then<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8093
handle = resource<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8100 if isStockResource(
handle ) then<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8060 return find(a,
vStockResources)<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8104 at = findKey( handle,
heldResource )<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8105 if (at = 0) or <BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8107
lRC = w32Func( xDeleteObject, {handle}
)<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8111 at = findKey( handle,
heldResource )<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115
heldResource = removeIndex( at,
heldResource )<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8370 for i = 1 to length(
heldCursor ) do<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8374 heldCursor = {}<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8377 release_all_mem()<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8379 vWinMainState =
kFinished<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8381 end procedure<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:523 end procedure<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:595 if pMode
= 2<BR>
C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 abort(1/0) --
Force the ex.err to be created.<BR>
<BR>
--part1_7a.2a734860.2a751bbc_boundary--
