PureBasic Forums - English

Code: Select all

Procedure.l SomeOtherFunction()
  
  ; this will allocate some memory
  SomeLocalVariable$ = "Hello World" 
  
  ; this will cause the procedure to be left without the compiler generated cleanup of local resources at procedure end. 
  ; The contents of "SomeLocalVariable$" are leaked
  PokeS(10, "Hello, cruel world!") 
  
EndProcedure

Procedure.l MyFunction()
   Try
      SomeOtherFunction() ; memory leak inside
   Catch Exception
      ; whatever
   EndTry
EndProcedure

Code: Select all

Procedure.l SomeOtherFunction()
  
  ; allocate image
  ; Note: This is not a compiler managed resource, so the compiler cannot help you with automatic cleanup!
  ; You have to ensure yourself that FreeImage() is called eventually
  MyImage = CreateImage(#PB_Any, ...) 
  If MyImage
    
    ; oops, a mistake
    PokeS(10, "Hello, cruel world!") 
    
    ; never reached. MyImage is leaked
    FreeImage(MyImage)
    
  EndIf

EndProcedure

Procedure.l MyFunction()
   Try
      SomeOtherFunction() ; memory leak inside
   Catch Exception
      ; whatever
   EndTry
EndProcedure

Code: Select all

Procedure Something()
   
  ; might cause an error and an early procedure exit via exception which is caught somewhere further down the stack
  DoSomething() 
      
  ; may be executed, may be not. This is not really obvious
  DoMoreStuff()
   
EndProcedure

Code: Select all

Procedure Something()
 
  ; early exit of the procedure is explicit
  If DoSomething() = 0
    ProcedureReturn 0
  EndIf
    
  ; it is more obvious that this might not be executed here
  DoMoreStuff()
 
EndProcedure

Code: Select all

Procedure Err(Mess.S)
  MessageRequester("Error", Mess)
  End
EndProcedure

If ExamineDesktops()
  If InitSprite()
    If OpenScreen(DesktopWidth(0), DesktopHeight(0), 32, "")
      If StartDrawing(ScreenOutput() )
        DrawText(0, 0, "Graphic screen")
        StopDrawing()
        FlipBuffers()
        Delay(3000)
      Else
        Err("Draw error")
      EndIf
    Else
      Err("Screen error")
    EndIf
    Err("SubSystem error")
  EndIf
  Err("Desktop error")
EndIf