[r8]: / trunk / Library / POUs / FB_Assert / Initialize / svnobj  Maximize  Restore  History

Download this file

15 lines (15 with data), 2.6 kB

Gx_l
!0…jüo»Ôô~)âíSystem.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
â(* This makes sure that it's not possible to initialize more than one assert function block for every test suite.Þ   This is possible because every test suite clears this flag once it has been initialized, which is done after   all the initializations of the assert function blocks are complete *)TIF NOT GVL.TestSuiteAssertRegistered THEN Ê    (* If this assert function block has not been initialized, we can safely assume that we will haveÖ       a test suite initialized after this initialization, as a test suite will initialize the assert-FB *)¬    GVL.TestSuiteAssertAddresses[GVL.AmountOfInitializedTestSuites + 1] := ADR(THIS^);’    GVL.TestSuiteAssertRegistered := TRUE; (* This flag will be set to FALSE by the owning function block once it has been initialized *)END_IFInterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}:{attribute 'call_after_init'}2METHOD PRIVATE InitializeÐÐÐE	ÐÐ	
­ÚÐ-
ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-ÐÐ	
­	ÚÐ-ÐÐ	
­
ÚÐ-ÐÐ	
­ÚÐ-ÐÐEÐÐ	
­ÚÐ-ÐÐ	
­ÚÐ-