PureBasic Forums - English

Posted: **Wed May 24, 2006 1:45 pm**

Thank you, ts-soft

Posted: **Wed May 24, 2006 7:58 pm**

@El_Choni:
i found here some problems. atm i am trying to find the problem and i will write you a PM with some more info (maybe codesnip) if required to reproduce the problem.

Posted: **Sat May 27, 2006 7:32 am**

I confirm some problems with ImportC.
Using TailBite 1.3 PR 1.7 with BriefLZ.lib ( http://www.ibsensoftware.com/files/BriefLZ104.zip [BriefLZ104.zip\lib\vc\brieflz.lib] )

Code: Select all

ImportC "brieflz.lib"
   _blz_workmem_size.l(InputSize.l) As "_blz_workmem_size"
	_blz_max_packed_size.l(InputSize.l) As "_blz_max_packed_size"
	_blz_pack.l(*Source, *Destination, length.l, *WorkMem) As "_blz_pack"
	_blz_crc32.l(*Source, length.l, InitialCrc32.l) As "_blz_crc32"
	_blz_depack.l(*Source, *Destination, DepackedSize.l) As "_blz_depack"
EndImport
;
ProcedureDLL BriefLZ_WorkMemSize(InputSize.l) ; Computes the required size of the WorkMem buffer used by BriefLZ_Pack() for compressing InputSize bytes of data.
  ProcedureReturn _blz_workmem_size(InputSize.l)
EndProcedure
;
ProcedureDLL BriefLZ_MaxPackedSize(InputSize.l) ; Computes the maximum possible compressed size possible  when compressing InputSize bytes of incompressible data.
  ProcedureReturn _blz_max_packed_size(InputSize)
EndProcedure
;
ProcedureDLL BriefLZ_Pack(*Source, *Destination, length.l, *WorkMem) ; Compresses Length bytes of data from *Source into *Destination, using *WorkMem buffer for temporary storage.
  ProcedureReturn _blz_pack(*Source, *Destination, length, *WorkMem)
EndProcedure 
;
ProcedureDLL BriefLZ_Depack(*Source, *Destination, DepackedSize.l) ; Decompresses the compressed data from *Source into *Destination.
  ProcedureReturn _blz_depack(*Source, *Destination, DepackedSize) 
EndProcedure
;
ProcedureDLL BriefLZ_Crc32(*Source, length.l, InitialCrc32.l) ; Computes the CRC32 value of Length bytes of data from *Source.
  ProcedureReturn _blz_crc32(*Source, length, InitialCrc32)
EndProcedure

Error : POLIB fatal error : file not found "TBTemp\Functions\TB_Imported_Lib_0.lib"
Note that if I replace 'ImportC "brieflz.lib"' with 'ImportC "C:\PureBasic400\Program\brieflz.lib"' (full path), TailBite compiles the lib without error (but seems to crash at the end when started from jaPBe via RunProgram), and the test program works ok.

Code: Select all

;
; BriefLZ test file 1
;
TestString.s = "ThisIsATestThisIsATestThisIsATestThisIsATestThisIsATestThisIsATestThisIsATestThisIsATest"
TestString = TestString + TestString + TestString + TestString + TestString + TestString + TestString
;
Length.l = Len(TestString)
MaxPackedSize.l = BriefLZ_MaxPackedSize(Length)
WorkMemSize.l = BriefLZ_WorkMemSize(Length)
*WorkMem = AllocateMemory(WorkMemSize)
*Destination = AllocateMemory(MaxPackedSize)
;
*Source = AllocateMemory(Length)
CopyMemory(@TestString, *Source, Length)
Debug BriefLZ_Crc32(*Source, Length, 0)
;
Debug BriefLZ_Pack(*Source, *Destination, Length, *WorkMem)
;
TestString2.s = Space(Length)
;
Debug BriefLZ_Depack(*Destination, *Source, Length);
CopyMemory(*Source, @TestString2, Length)
Debug TestString2
;
If TestString = TestString2
  Debug "Success"
Else
  Debug "Failed"
EndIf

Posted: **Sat May 27, 2006 12:29 pm**

Good report, thank you very much!

Regards,

Posted: **Mon May 29, 2006 12:59 pm**

Testing ImportC with TailBite 1.3 PR 1.8 and BriefLZ.lib :
- no more crash ;
- but still an error if relative path is used (file not found "TBTemp\Functions\TB_Imported_Lib_0.lib) : not a big issue for me, though.
Thanks !

Posted: **Mon May 29, 2006 1:25 pm**

Thx, I'm still fixing (trying to fix) all these bugs...

Regards,

Posted: **Mon May 29, 2006 7:11 pm**

My POLINK errors have gone, but now I get those errors:

---------------------------
TailBite Error
---------------------------
FAsm: Shared\CheckMeshCol.asm

flat assembler version 1.58

C:\Programme\PureBASIC4\TailBite\TBTemp\Functions\Shared\CheckMeshCol.asm [287]:

FDIV qword [D6]

error: undefined symbol.

Die Pipe wurde beendet.

---------------------------
OK
---------------------------

I'll look if I can reproduce this tomorrow or such with a small code.

Posted: **Mon May 29, 2006 7:35 pm**

Don't worry, it's fixed -not uploaded yet-.

Posted: **Tue May 30, 2006 9:24 am**

*waiting_For_Next_update*

Posted: **Tue May 30, 2006 9:30 am**

Sorry, I'm delaying the update because I'm adding default parameters support, which takes more time. Can't upload it now because the source is messed up because of that. I'll upload it as soon as it works again

Posted: **Tue May 30, 2006 1:23 pm**

El_Choni wrote:Sorry, I'm delaying the update because I'm adding default parameters support, which takes more time. Can't upload it now because the source is messed up because of that. I'll upload it as soon as it works again

Thanks, i'm waiting for this

.

Posted: **Tue May 30, 2006 3:36 pm**

El_Choni wrote:Sorry, I'm delaying the update because I'm adding default parameters support, which takes more time. Can't upload it now because the source is messed up because of that. I'll upload it as soon as it works again

I assume the 'old way' will not work anymore,

Code: Select all

Procedure MyProcedure(Param1)
Procedure MyProcedure2(Param1, Param2)
Procedure MyProcedure3(Param1, Param2, Param3)

so we have to modify the source code according to PB4 syntax ?

Code: Select all

Procedure MyProcedure(Param1, Param2 = 0, Param3 = 0)

Posted: **Tue May 30, 2006 3:50 pm**

gnozal wrote:I assume the 'old way' will not work anymore

I hope it won't work anymore, as it makes no senses with the new syntax

Posted: **Tue May 30, 2006 3:57 pm**

gnozal: that's it.
Polo: I agree.

Posted: **Tue May 30, 2006 3:59 pm**

El_Choni wrote:gnozal: that's it.

Ok. Thanks.

PureBasic Forums - English

TailBite 1.0 Preview, soon in PureProject and PureArea