PureBasic Forums - English

Posted: **Sun Mar 29, 2009 1:26 pm**

I havn`t a Mac to complet cross-platform

CompilerIf #PB_Compiler_Processor = #PB_Processor_mc68000
  ; MC68000 Processor  
  Macro EndStruct(StructureName) ; <- name of structure allways lowercase
    EndStructure
      Procedure ___dummy_#StructureName()
        Protected dummy.StructureName
      EndProcedure
      Procedure ___addr_#StructureName()
        ;!MOV eax, dword s_#StructureName
      ProcedureReturn
    EndProcedure
  EndMacro
CompilerEndIf
CompilerIf #PB_Compiler_Processor = #PB_Processor_PowerPC
  ; PowerPC Processor  
  Macro EndStruct(StructureName) ; <- name of structure allways lowercase
    EndStructure
      Procedure ___dummy_#StructureName()
        Protected dummy.StructureName
      EndProcedure
      Procedure ___addr_#StructureName()
        !MOV eax, dword s_#StructureName
      ProcedureReturn
    EndProcedure
  EndMacro
CompilerEndIf

who can help me

PureBasic Forums - English

CopyStructure - with strings