PureBasic Forums - English

Posted: **Thu Nov 22, 2007 7:13 pm**

Hi,

new version is out : V1.3 PR 1.860

[22] NOV 22th 2007 TailBite v1.3 PR 1.860
- fixed problem with 'call _SYS_InitString@0' in the _Init function (found by denis)

see first post for more deatils.

Posted: **Fri Nov 23, 2007 12:04 pm**

Thanks.
Sources in Src.pack seem to be previous version ?

Posted: **Sun Nov 25, 2007 11:57 am**

gnozal wrote:Thanks.
Sources in Src.pack seem to be previous version ?

no problem here : src.pack 22.11.2007 19:01

Maybe it´s your proxy again

Regards Klaus

Posted: **Mon Nov 26, 2007 8:49 am**

ABBKlaus wrote:Maybe it´s your proxy again

Sorry, my fault again, but not the proxy ...
I forgot to copy src.pack in the tailbite directory.

Posted: **Tue Dec 11, 2007 9:52 am**

Hi,

In asm, instruction 'CALL' don't want tailbited. :roll:

In PureBasic'exe 4.10 it's ok and return 2.

Code: Select all

ProcedureDLL.L test_tailbite()
  
  MOV Eax,5 
  
  CALL l_try_stick
  
  ProcedureReturn
  
  try_stick:
  
  MOV Eax,2
  
  RET
  
EndProcedure

Debug test_tailbite()

Thank you for watching.

Posted: **Tue Dec 11, 2007 5:49 pm**

Hi,

@Lna does the new version fix your problem ?

new version is out : V1.3 PR 1.861

[23] DEC 12th 2007 TailBite v1.3 PR 1.861
- fixed problem with Labels 'Extrn Libname_l_labelname' (found by Lna)

see first post for more deatils.

Posted: **Tue Dec 11, 2007 9:49 pm**

Hi,

The new version works well.

Thank you for your help and for your speed ABBKlaus, and also to keep this good program of El_Choni with Gnozal.

Posted: **Wed Dec 12, 2007 7:02 am**

Hi,

There are 30 instructions conditional jump with the same problem. :roll:

JMP is ok.
CALL is ok.

Code: Select all

ProcedureDLL.L new_test_tailbite()
  
  Xor Eax,Eax
  
  JO   l_label_jump ; OF = 1 overflow
  JNO  l_label_jump ; OF = 0 not overflow 
  JC   l_label_jump ; CF = 1 carry 
  JB   l_label_jump ; CF = 1 below 
  JNAE l_label_jump ; CF = 1 not above nor equal 
  JNC  l_label_jump ; CF = 0 not carry 
  JAE  l_label_jump ; CF = 0 above or equal 
  JNB  l_label_jump ; CF = 0 not below 
  JE   l_label_jump ; ZF = 1 equal 
  JZ   l_label_jump ; ZF = 1 zero 
  JNE  l_label_jump ; ZF = 0 not equal 
  JNZ  l_label_jump ; ZF = 0 not zero 
  JBE  l_label_jump ; CF or ZF = 1 below or equal 
  JNA  l_label_jump ; CF or ZF = 1 not above 
  JA   l_label_jump ; CF or ZF = 0 above 
  JNBE l_label_jump ; CF or ZF = 0 not below nor equal 
  JS   l_label_jump ; SF = 1 sign 
  JNS  l_label_jump ; SF = 0 not sign 
  JP   l_label_jump ; PF = 1 parity 
  JPE  l_label_jump ; PF = 1 parity even 
  JNP  l_label_jump ; PF = 0 not parity 
  JPO  l_label_jump ; PF = 0 parity odd 
  JL   l_label_jump ; SF xor OF = 1 less 
  JNGE l_label_jump ; SF xor OF = 1 not greater nor equal 
  JGE  l_label_jump ; SF xor OF = 0 greater or equal 
  JNL  l_label_jump ; SF xor OF = 0 not less 
  JLE  l_label_jump ; (SF xor OF) or ZF = 1 less or equal 
  JNG  l_label_jump ; (SF xor OF) or ZF = 1 not greater 
  JG   l_label_jump ; (SF xor OF) or ZF = 0 greater 
  JNLE l_label_jump ; (SF xor OF) or ZF = 0 not less nor equal 
  
  ProcedureReturn
  
  label_jump:
  
  MOV Eax,2
  
  ProcedureReturn
  
EndProcedure

Debug new_test_tailbite()

Thank you for watching.

Posted: **Wed Dec 12, 2007 3:46 pm**

fixed, please redownload !

Posted: **Wed Dec 12, 2007 11:11 pm**

Hi ABBKlaus,

For the 30 instructions conditional jump it's good, thank you.

There are also additions filename on DL, and DH.

Code: Select all

ProcedureDLL.L new_test_tailbite()
  
  MOV DL,AL ; ERROR -> Extrn RecopyNameOfFile_DL,AL
  ;MOV DH,AH ; ERROR -> Extrn RecopyNameOfFile_DH,AL
  ;CMP AL,DL ; ERROR -> Extrn AL,RecopyNameOfFile_DL 
  
  ProcedureReturn 1
  
EndProcedure

Debug new_test_tailbite()

Thank you for your help.

Posted: **Thu Dec 13, 2007 1:16 am**

This has never worked on any Tailbite, but it's still a problem of label.

Code: Select all

ProcedureDLL.L new_test_tailbite()
  
  ProcedureReturn ?label_data ; MOV ebp,RecopyNameOfFile_l_label_data (error undefined symbol)
  
  DataSection
  
    label_data:
   
    Data.B 5
  
  EndDataSection
   
EndProcedure

Debug new_test_tailbite()

Thanks.

Posted: **Thu Dec 13, 2007 10:10 pm**

all fixed

new version is : V1.3 PR 1.862

[24] DEC 13th 2007 TailBite v1.3 PR 1.862
- fixed some more problems with Labels ?label_data (found by Lna)
- fixed renaming of ASM commands MOV DL,AL / MOV DH,AH / CMP AL,DL (found by Lna)

see first post for more deatils.

Posted: **Fri Dec 14, 2007 7:24 am**

Hi ABBKlaus,

It's fixed, thank you.

I found this problem. :roll:

Code: Select all

ProcedureDLL.L test_tailbite()

  MOV Eax,7 ; Public NameOfFile_PB_DataSection
            ; error: invalid name
  
  ProcedureReturn
  
EndProcedure

Debug test_tailbite()

Thanks.

Posted: **Fri Dec 14, 2007 7:35 pm**

thats strange, no problem here

here is what TailBite makes of it :

Code: Select all

format MS COFF

Public PB_test_tailbite_lna5




section '.text' code readable executable

PB_test_tailbite_lna5:
PS0=4
;
; MOV Eax,7 ; Public NameOfFile_PB_DataSection
MOV Eax,7
; error: invalid name
;
; ProcedureReturn
JMP   _EndProcedure1
;
; EndProcedure
XOR    eax,eax
_EndProcedure1:
RET

Posted: **Sat Dec 15, 2007 9:18 am**

Hi ABBKlaus,

I'm very sorry

, I had forgotten that we should not put numbers in front of the filename.
This explains the error message that I had. :roll:

I have run tests in assembler without problems.

Thanks again for your help ABBKlaus.

PureBasic Forums - English

TailBite V1.3 for PB4.0X+PB4.10+PB4.20