Posted by Robert G Laurin on May 02, 2012 at 08:45:39:
In Reply to: Re: Bug(s) in the compiler posted by Robert G Laurin on May 01, 2012 at 13:36:19:
I found why my Comet16 2011 objects are so much larger than my Comet 2008 objects!
The culprit is COSPTR.INC in the WDL directory.
Many years ago (5+) I modified COSPTR.INC to remove (or rather move) wasteful declaratives.
On lines 53-56 it declares variables Length 250 PtrText(4) and Format PtrBigBuff. This eats close to 1K of our precious 56K declaratives section.
This format is used only once in COSPTR.IBS if and only if USE.LOCAL.BITMAP = 0 (see lines 849 ... 888)
So I recommend that the lines 53-56 (see below) be moved up to line 24 (inside corresponding .IF USE.LOCAL.BITMAP .ELSE .ENDIF
I performed this change on WDL-08.01 long time ago, I am changing WDL-10.01 now, but would like future releases to be a bit miser on memory usage.
Sample code:
Original:
CosPtr.Inc lines 19 to 24
SET USE.LOCAL.BITMAP = 1 ! Set to 1 to use the LOCAL version.IF USE.LOCAL.BITMAP
.ELSE
Include "DosFile.Inc"
.ENDIF
CosPtr.inc lines 53 to 57
! For sending up to 1000 bytes (24 byte for control)
SET MAX.BIG.BUFF = 1000
LENGTH 250 & LOCAL PtrText$(4)
PtrBigBuff: Format PtrText$(1);PtrText$(2);PtrText$(3);PtrText$(4)
Please Modify to:
SET USE.LOCAL.BITMAP = 1 ! Set to 1 to use the LOCAL version.IF USE.LOCAL.BITMAP
.ELSE
Include "DosFile.Inc"! For sending up to 1000 bytes (24 byte for control)
SET MAX.BIG.BUFF = 1000
LENGTH 250 & LOCAL PtrText$(4)
PtrBigBuff: Format PtrText$(1);PtrText$(2);PtrText$(3);PtrText$(4).ENDIF
And remove old lines 53 to 57
Thanks!
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.