PureBasic Forums - English

Restored from previous forum. Originally posted by LJ.

There is another leak on the same code, only an read statement is used with an array. The code is below. Keep clicking on the button and about every 3 clicks the .exe increases about 4K. This is the same code in the previous example that has no leak by Timo. The only difference is that I've added a READ command, it is as if the .s ARRAY in the UpdateScreen is not clearing itself.


Dim talk.s(18)
Dim prof.s(10)

OpenWindow(1, 128, 96, 320, 256, #PB_Window_SystemMenu|#PB_Window_MinimizeGadget, "Background image example")
CreateGadgetList(WindowID())
CreateImage(1, WindowWidth(), WindowHeight())
StartDrawing(ImageOutput())
Box(0, 0, WindowWidth(), WindowHeight(), $ff)
FrontColor(0, 0, 0)
DrawingMode(1)
DrawingFont(LoadFont(0, "Times New Roman", 16))
Locate(64, 32)
DrawText("Background image")
StopDrawing()
ImageGadget(1, 0, 0, WindowWidth(), WindowHeight(), UseImage(1))
ButtonGadget = ButtonGadget(0, 80, 64, 160, 128, "My Button")

LoadFont(0, "Times New Roman", 16)

Repeat
EventID = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()

Case 0
Gosub UpdateWindow

EndSelect
EndIf


Until EventID=#PB_EventCloseWindow
End

UpdateWindow:
FreeGadget(0)
UseImage(1)
StartDrawing(ImageOutput())
Box(0, 0, WindowWidth(), WindowHeight(), $ff)
FrontColor(0, 0, 0)
DrawingMode(1)
DrawingFont(UseFont(0))
Locate(64, 32)
DrawText("Test image")
StopDrawing()
ButtonGadget = ButtonGadget(0, 80, 64, 160, 128, "My Button")
Restore screen1
For k = 1 To 17
Read tmp.s
talk(k)=tmp
Next k
talklines = 0
For k = 1 To 10
Read tmp.s
prof(k)=tmp
talklines = talklines + 1
If prof(k) = ""
talklines = talklines - 1
EndIf
Next k

SetGadgetState(1, UseImage(1))
ActivateGadget(0)
Return

DataSection
screen1:
Data.s "Sample data that the program is reading."
Data.s ""
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""

Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s ""
Data.s ""
Data.s ""

EndDataSection

Restored from previous forum. Originally posted by fred.

I will take a look, thanks.

Fred - AlphaSND

Restored from previous forum. Originally posted by LJ.

Thank you Fred. Here is the same code with using NewList and then attempting to clear with ClearList each time the UpdateWindow routine is called. This leaks about 4K every 3 clicks also.

Structure somestrings ; Define a structure for the list
talk.s
EndStructure

Structure somestringstwo ; Define a structure for the list
prof.s
EndStructure

NewList MyList.somestrings () ; Create the list with the structure pattern
NewList MyListtwo.somestringstwo () ; Create the list with the structure pattern

OpenWindow(1, 128, 96, 320, 256, #PB_Window_SystemMenu|#PB_Window_MinimizeGadget, "Background image example")
CreateGadgetList(WindowID())
CreateImage(1, WindowWidth(), WindowHeight())
StartDrawing(ImageOutput())
Box(0, 0, WindowWidth(), WindowHeight(), $ff)
FrontColor(0, 0, 0)
DrawingMode(1)
DrawingFont(LoadFont(0, "Times New Roman", 16))
Locate(64, 32)
DrawText("Background image")
StopDrawing()
ImageGadget(1, 0, 0, WindowWidth(), WindowHeight(), UseImage(1))
ButtonGadget = ButtonGadget(0, 80, 64, 160, 128, "My Button")

LoadFont(0, "Times New Roman", 16)

Repeat
EventID = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()

Case 0
Gosub UpdateWindow

EndSelect
EndIf


Until EventID=#PB_EventCloseWindow
End

UpdateWindow:
ClearList(MyList())
ClearList(MyListtwo())

FreeGadget(0)
UseImage(1)
StartDrawing(ImageOutput())
Box(0, 0, WindowWidth(), WindowHeight(), $ff)
FrontColor(0, 0, 0)
DrawingMode(1)
DrawingFont(UseFont(0))
Locate(64, 32)
DrawText("Test image")
StopDrawing()
ButtonGadget = ButtonGadget(0, 80, 64, 160, 128, "My Button")
Restore screen1
For k = 1 To 17
Read a$
AddElement(MyList()) ; Lists never use indexes like arrays
MyList()\talk=a$ ; Fill the list using the structure pattern
Next k
talklines = 0
For k = 1 To 10
Read b$
talklines = talklines + 1
If b$ = ""
talklines = talklines - 1
EndIf
AddElement(MyListtwo()) ; Lists never use indexes like arrays
MyListtwo()\prof=b$ ; Fill the list using the structure pattern
Next k

SetGadgetState(1, UseImage(1))
ActivateGadget(0)
Return

DataSection
screen1:
Data.s "Sample data that the program is reading."
Data.s ""
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""
Data.s ""

Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s "Sample data that the program is reading."
Data.s ""
Data.s ""
Data.s ""

EndDataSection

Restored from previous forum. Originally posted by freak.

Ok, tested much with your code, and things are clear now.

There was one leaking thing, that is fixed now, and there is another one, wich can't be fixed quickly, will be fixed for the next release (after v3.62)

The fixed one had something to do with Data reading.
The other one is, that ClearList() doesn't free Strings correctly.

Thanks for pointing things out...

Timo

Restored from previous forum. Originally posted by LJ.

Thank you Timo.