[BUG] Prototypes 2

[Hellhound66]

Code: Alles auswählen

Prototype _TestFunc(*SELF)

Structure _TEST
  TestFunc._TestFunc
EndStructure


Procedure _func_TestFunc(*SELF)
  Debug *SELF
EndProcedure


Procedure.l init()
  *TEST._TEST = AllocateMemory(SizeOf(_TEST))
  *TEST\TestFunc = @_func_TestFunc()
  *TEST\Testfunc(*TEST)
  ProcedureReturn *TEST
EndProcedure


Debug init()
  
  

Code stürzt ab. Probierts selbst -_-'

Wenn ich die Init() Prozedur weglasse und deren Inhalt so starte scheint es zu funktionieren.