PureBoard • [BUG] Prototypes 2

Seite 1 von 1

[BUG] Prototypes 2

Verfasst: 20.02.2006 19:57

von 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.