On 11-12-23 07:31 AM, leledumbo wrote:
Back to high school time, I use it for turn based battle system for a game. I
have two mutually (tail-)recursive procedures where one is the player
movement decision (full with prompts) while the other is the enemy's (some
AI calculation takes the decision).
On 26.12.2011 17:52, Michael Van Canneyt wrote:
On Mon, 26 Dec 2011, Sven Barth wrote:
Hello together!
Today I've finished my first JVM Android application. This could as
well be the first (or at least one of the first) complete JVM Android
app written in Pascal at all!
A nice christmas pr
On 26.12.2011 12:50, Howard Page-Clark wrote:
On 25/12/11 10:07, Jiří Pavlovský wrote:
What do you mean ?
I mean the code below works ok, so I don't undestand why it doesn't
compile when I use similar construct inside a function.
const ranges: array [1..2] of TMyRec =
(
(Start:
Chelper also has hard-timer converting the structure:
It failed on "union nf_inet_addr haddr, hmask;" so I had to comment it
out. Some structures are missing completely.
type
TAuxType0 = packed record
case Integer of
0:(u8 : uint8_t;u8_range : array [0..1] of uint8_t;syslog_level :
uint8_t
Den 26-12-2011 19:49, Jonas Maebe skrev:
On 26 Dec 2011, at 19:42, Jeppe Græsdal Johansen wrote:
union {
struct xt_entry_match **match;
struct xt_entry_target **target;
};
void *xt_entry;
void *udata;
}
...
case integer of
0: (match: ^Pxt_entry_match; xt_e
On 26 Dec 2011, at 19:42, Jeppe Græsdal Johansen wrote:
>>union {
>>struct xt_entry_match **match;
>>struct xt_entry_target **target;
>>};
>>void *xt_entry;
>>void *udata;
>> }
...
> case integer of
> 0: (match: ^Pxt_entry_match; xt_entry, udata: pointer);
> 1
Den 26-12-2011 15:41, ik skrev:
Hello,
I'm trying to translate the following to Pascal:
struct xt_option_call {
const char *arg, *ext_name;
const struct xt_option_entry *entry;
void *data;
unsigned int xflags;
bool invert;
uint8_t nvals;
union {
u
On 26 Dec 2011, at 19:12, ik wrote:
> I have a first union. But on records we do not end case with "end". and
> beneath the union, I have to place another union, or another fields that is
> not part of the union.
> How can I do that ?
You have to create an extra nested record that contains that
Better redefining my problem:
I have a first union. But on records we do not end case with "end". and
beneath the union, I have to place another union, or another fields that is
not part of the union.
How can I do that ?
Thanks,
Ido
On Mon, Dec 26, 2011 at 16:41, ik wrote:
> Hello,
>
> I'm try
On Mon, 26 Dec 2011, Sven Barth wrote:
Hello together!
Today I've finished my first JVM Android application. This could as well be
the first (or at least one of the first) complete JVM Android app written in
Pascal at all!
A nice christmas present for the whole FPC team, thank you :-)
Mi
Hello,
I'm trying to translate the following to Pascal:
struct xt_option_call {
const char *arg, *ext_name;
const struct xt_option_entry *entry;
void *data;
unsigned int xflags;
bool invert;
uint8_t nvals;
union {
uint8_t u8, u8_range[2], syslog_lev
On 25/12/11 10:07, Jiří Pavlovský wrote:
What do you mean ?
I mean the code below works ok, so I don't undestand why it doesn't
compile when I use similar construct inside a function.
const ranges: array [1..2] of TMyRec =
(
(Start:0;Stop:3),
(Start:4;
On 12-12-11 09:53, Koenraad Lelong wrote:
On 09-12-11 00:09, Den Jean wrote:
On Thursday 08 December 2011 13:49:16 Koenraad Lelong wrote:
> /usr/lib/fpc/2.6.0/units/arm-embedded/rtl/system.o does not support
> interworking, whereas test-1.elf does
does this thread help ?
http://lists.freepas
13 matches
Mail list logo
