Re: Compiler Comet16 vs Comet32

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Robert G Laurin on June 05, 2014 at 14:12:32:

In Reply to: Re: Compiler Comet16 vs Comet32 posted by Barbara Brazil on June 05, 2014 at 09:37:23:

I Found the offending Line of Code.... Well... Definitely a Major BUG in C32

The line is:

CURLINE = CURLINE + WPFONTHEIGHT(CURRENT.FONT) * 1.2

Where CURLINE is the print position on the current report used to populate PtrY1 Declared as a 5.0
Where Current.Font is the selected font (1 or 2) Declared as 2.0
Where WPFontHeight( ) Is the Font Height for Font "Current.Font" declared as 5.0

This line of code changes the variable TCOUNT(3) from 380 to 286 the second time this subroutine is executed.

Here the TRACE results: (spaced out for readability)


UMP-TEST.IBS: 1265 WORK$='1263:'+STR(COPY)+STR(SUMMARY)+STR(SERVICE)+STR(TCOUNT(1))+STR(TCOUNT(2))+STR(TCOUNT(3))+STR(TSPEC(3))
UMP-TEST.IBS: 1266 TRACE PRINT WORK$
1263:1 2  3     0     4   380   380 
UMP-TEST.IBS: 1268        LET OUT$(1) = 'Extra Services'
UMP-TEST.IBS: 1270 WORK$='1268:'+STR(COPY)+STR(SUMMARY)+STR(SERVICE)+STR(TCOUNT(1))+STR(TCOUNT(2))+STR(TCOUNT(3))+STR(TSPEC(3))
UMP-TEST.IBS: 1271 TRACE PRINT WORK$
1268:1 2  3     0     4   380   380 
UMP-TEST.IBS: 1273        PRINT (LP) (DRAWTEXT=PtrX1,CURLINE,PtrX2,PAGE.BREAK,2896);OUT$(1);NullByte$
UMP-TEST.IBS: 1275 WORK$='1275:'+STR(COPY)+STR(SUMMARY)+STR(SERVICE)+STR(TCOUNT(1))+STR(TCOUNT(2))+STR(TCOUNT(3))+STR(TSPEC(3))+_
UMP-TEST.IBS: 1276        'CurLine:'+str(curline)+'CurrentFont:'+STR(Current.Font)+'WPFontHeight:'+STR(WPFONTHEIGHT(current.font))
UMP-TEST.IBS: 1277 TRACE PRINT WORK$
1275:1 2  3     0     4   380   380 CurLine:13319 CurrentFont: 1 WPFontHeight:  197 
UMP-TEST.IBS: 1279        CURLINE = CURLINE + WPFONTHEIGHT(CURRENT.FONT) * 1.2
UMP-TEST.IBS: 1281 WORK$='1281:'+STR(COPY)+STR(SUMMARY)+STR(SERVICE)+STR(TCOUNT(1))+STR(TCOUNT(2))+STR(TCOUNT(3))+STR(TSPEC(3))+_
UMP-TEST.IBS: 1282        'CurLine:'+str(curline)+'CurrentFont:'+STR(Current.Font)+'WPFontHeight:'+STR(WPFONTHEIGHT(current.font))
UMP-TEST.IBS: 1283 TRACE PRINT WORK$
1281:1 2  3     0     4   236   380 CurLine:13555 CurrentFont: 1 WPFontHeight:  197 
---------------------------^

This is the value that is changing.... TCOUNT(3) in the TRACE

Further down the code it is changed again from 236 to 2 and eventually to 0.


Is there a way to debug this ? Do you want the source (7000+ lines) or object? You would need a lot of data to be able to run this at your end.


Follow Ups:


Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.

[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]