PureBasic Forums - English

Code: Select all

---------------------------
TailBite Error
---------------------------
FAsm: HelloWorld.asm

flat assembler  version 1.67.26  (1558888 kilobytes memory)

Functions\HelloWorld.asm [28]:

extrn test__SysFreeString@4

error: symbol already defined.
---------------------------
OK   
---------------------------

Code: Select all

Prototype Test_(String.p-bstr)
Procedure Test__(*String)
  ProcedureReturn *String
EndProcedure

ProcedureDLL HelloWorld()
  Test.Test_ = @Test__()
  ProcedureReturn Test("Hello World")
EndProcedure

Code: Select all

; ProcedureDLL HelloWorld()
macro MP4{
_Procedure4:
  PS4=8
  XOR    eax,eax
  PUSH   eax
  CALL  _SYS_CheckStringBuffer@0                                                                                                                                                                                              
; Test.Test_ = @Test__()
  LEA    eax,[_Procedure2]
  MOV    dword [esp],eax
; ProcedureReturn Test("Hello World")
  PUSH   dword _S1
  CALL  _SYS_ToBSTR@4
  PUSH   eax
  CALL   dword [esp+4]
  SUB    esp,4
extrn _SysFreeString@4 <-- TB Sees it here and copies/renames it since it's not expecting it.
  CALL  _SysFreeString@4
  JMP   _EndProcedure5
; EndProcedure
  XOR    eax,eax
_EndProcedure5:
  ADD    esp,4
  RET
}

Code: Select all

If LCase(LTrim(Left(ThisLine$, 6)))="extrn "
  ; !Extrn bugfix found by mpz
  ; ABBKlaus 14.10.2008 21:45 
  
  ThisLine$ = "; "+ThisLine$
EndIf

Code: Select all

format MS COFF

Public PB_HelloWorld


Extrn _SYS_ToBSTR@4
Extrn _SysFreeString@4
Extrn mback2k_Testproc
Extrn mback2k__S1


section '.text' code readable executable

PB_HelloWorld:
PS4=8
XOR    eax,eax
PUSH   eax
; Test.Testproto = @Testproc()
LEA    eax,[mback2k_Testproc]
MOV    dword [esp],eax
; ProcedureReturn Test("Hello World")
PUSH   dword mback2k__S1
CALL  _SYS_ToBSTR@4
PUSH   eax
CALL   dword [esp+4]
SUB    esp,4
; extrn mback2k__SysFreeString@4
CALL  _SysFreeString@4
JMP   _EndProcedure5
; EndProcedure
XOR    eax,eax
_EndProcedure5:
ADD    esp,4
RET

Code: Select all

Debug HelloWorld()

Code: Select all

                          If ch$=" " Or ch$="," Or ch$="[" Or ch$="+" Or ch$="-"
                            If LTrim(LCase(Left(ThisLine$,6)))="extrn " And FindString(LCase(ThisLine$),"_sys",7)
                              ;do not rename PB functions like _sys* ABBKlaus 8.2.2008 16:50
                            Else
                              rem=FindString(ThisLine$,";",1)
                              If rem=0
                                rem=Len(ThisLine$)+1
                              EndIf
                              THS$ = Left(ThisLine$, vPos-1)
                              ;-* decoration (symbols)
                              THS$+LibName$+decoration+"_"+Right(ThisLine$, Len(ThisLine$)-vPos+1)
                              ThisLine$ = THS$
                              vPos+Len(LibName$+decoration+"_")
                            EndIf
                          EndIf

Code: Select all

          If LCase(LTrim(Left(ThisLine$, 6)))="extrn "
            ; !Extrn bugfix found by mpz
            ; http://www.purebasic.fr/english/viewtopic.php?p=263222#263222
            ; ABBKlaus 14.10.2008 21:45 
            If FindString(LCase(ThisLine$),"_sys",7)
              ThisLine$ = "; "+ThisLine$
            EndIf
          EndIf

Code: Select all

;Inc_OS_Win.pb
#DirSeparator = ""
#SystemExeExt = ".exe"
#SystemEOL = #CRLF$
#SystemHelpExt = ".chm"
#SystemBatchExt = ".bat"

#Switch_Commented = "/COMMENTED"
#Switch_Unicode = "/UNICODE"
#Switch_ThreadSafe = "/THREAD"
#Switch_InlineASM = "/INLINEASM"
#Switch_Executable = "/EXE"
#Switch_StandBy = "/STANDBY"
#Switch_SubSystem = "/SUBSYSTEM"
#Switch_Version = "/VERSION"
#Switch_Resident = "/RESIDENT"
#Switch_Debugger = "/DEBUGGER"

#Asm_Format = "MS COFF"
#Asm_Formatx64 = "MS64 COFF"
#Asm_TextSection = "section '.text' code readable executable"