CopyStructure - with strings

[mk-soft]

I havn`t a Mac to complet cross-platform

Code: Select all

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