Nasty hack: freeing strings
Posted: Thu Jun 12, 2003 2:06 pm
Possibly useful for those who have large amounts of dynamic data.
Code: Select all
Structure String
StructureUnion
String.s
Pointer.l
EndStructureUnion
EndStructure
Procedure FreeString(*free_me.String)
! MOV edx, dword [esp+0]
! MOV edx, dword [edx]
; For PB<3.70
;! CALL PB_FreeString
! CALL SYS_FreeString
*free_me\Pointer = 0
EndProcedure