PureBasic Forums - English

Yes, of course. But again, I don't want to change my code. It shouldn't be a workaround in the PB code. It's part of the PB language and the compiler should be able to handle it. My idea is a possible implementation in the compiler. For each label address in a datasection replace it with a zero and ...

There are many possible solutions to avoid label addresses in datasection. But I'm trying to find a solution for the compiler so that no changes to the pb code are necessary. I write a code generator that uses many addresses in datasections.

Hello team,

I know, there is a restriction "No Label address in datasection (?Label)". Maybe, I have a solution for that. I've analyzed a bit. The following code works with ASM backend, but not with the C backend.
Structure Inner
b.i
EndStructure

Structure Struct
a.i
*inner.Inner
EndStructure ...

I hope, i understand your problem correctly. The variable 'objects' in 'objects' can not be a pointer, since you want that the memory is contiguous. But you need a pointer to store the allocated memory. You can easily return this. Additionally you dont need the MAXITEMS-constant.
Structure object ...

It is possible to define a pointer in a structure with an undefined structure. Thereby you can define cycle structures:
Structure Main
*pointer.SubStruc
*noerror.ANonexistentStruc
EndStructure

Structure SubStruc Extends Main
foo.i
EndStructure

test.Main
test\pointer\foo = 2 ; it works, because ...

Wow, thanks all for your replies. I shrank the code from 35 to 28 lines . Link

@heartbone: Oh yes, you are right. I changed it to black & white

My Punch, a mastermind clone in 35 (now 28) lines :D :
;*******************************************************************************
;*
;* July-August 2014 PurePunch contest
;* PureBasic 5.22
;* 50 lines of 80 chars, 2 months delay
;*
;* Name : Mastermind
;* Author : cshw89
;* Date : 14/07/14 ...

Wow, great features in particular the new PREPROCESS compiler flag. But for simpler implementation of precompiler is it possible to insert a new tool trigger in the "tool-chain" like this?

Run tools with trigger "Before Compile/Run"
PREPROCESS
Run tools with new trigger "After Preprocess"
COMPILE ...

@Psych: Great code! Thanks :D

@minimy: Here is a simple example: Procedure ScrollProc(SbarID,Msg,wParam,*lParam.SCROLLINFO)
With *lParam
Protected result,*defproc=GetProp_(SbarID,@"scrollbar_winproc")
If *defproc
result=CallWindowProc_(*defproc,SbarID,Msg,wParam,*lParam)
EndIf
If Msg=#SBM ...

or here...
http://www.purebasic.fr/german/viewtopi ... =8&t=25955

lg Kevin

Can the function "Bool" with constants be evaluated at compile time?

Work with PB 5.00:
Macro enum2pow(_const_)
_const_ = ((#PB_Compiler_EnumerationValue=1 And 1) + (#PB_Compiler_EnumerationValue>1 And 1) * ((#PB_Compiler_EnumerationValue-1)<<1))
EndMacro

Enumeration 1
enum2pow(#A1) ;1 ...

+1 for RightClick and RightDoubleClick

@Guimauve: But in your case you can use #LVS_NOCOLUMNHEADER: If OpenWindow(0, 0, 0, 400, 300, "Test")
ListIconGadget(0, 10, 10, 380, 280, "", 355, #LVS_NOCOLUMNHEADER)
For i = 0 To 99
AddGadgetItem(0, -1, Str(i+1)+". Element")
Next

Repeat: Until ...

Here a workaround: Procedure FillMemory_(_memory_, _size_, _value_=0, _type_=#PB_Byte)
FillMemory(_memory_, _size_, _value_, _type_)
EndProcedure

Macro FillMemory(_memory_, _size_, _value_=0, _type_=#PB_Byte)
CompilerIf (_type_ = #PB_Character)
CompilerIf (SizeOf(Character) = 1)
FillMemory ...

Hi,
i'm currently writing a precompiler. If it found an error in a sourcecode and it ended with an exitcode <> 0, it would be useful if the IDE doesn't compile the sourcecode. e.g:

My Precompiler: ;...
Procedure CheckCode(file.s)
;...
If (error)
MessageRequester("MyPrecompiler", "Syntax error ...