In our previous episode, Frank Church said:
> I did this kind of thing some time ago, but have forgotten the details.
>
> Let us say you have something like TBaseType(Variable).Method, you want to
> let TBaseType be a variable so you can have some code like this.
>
> procedure (value:someType)
>
Oh, is that so? What about defining CREATE_SMART and LINK_SMART?
Jonas Maebe-2 wrote:
>
>
> On 21 Aug 2010, at 08:59, leledumbo wrote:
>
>> I want to build a smartlinked (stripped and optimized as well) version of
>> fpc
>> for win64 from win32, so I call:
>> make all smart STRIP=1 OPTIMIZE=1
On 21 Aug 2010, at 08:59, leledumbo wrote:
> I want to build a smartlinked (stripped and optimized as well) version of fpc
> for win64 from win32, so I call:
> make all smart STRIP=1 OPTIMIZE=1 OS_TARGET=win64 CPU_TARGET=x86_64
>
> but this ends in failing to call ppcx64. Hey, shouldn't it call
No, if all your types are classes descending from the same root you
can do it is like this:
type
TBaseType = class;
procedure somemethod();
end;
TExtendedType = class(TBaseType);
TBaseTypeClass = class of TBaseType;
procedure (value: TBaseType; type_: TBaseTypeClass)
begin
value :
Anthony Walter-3 wrote:
>
> Like so:
>
> procedure Test;
> var
> SomeType: TClass;
> SomeObject: TObject;
> begin
> SomeType := TStringList;
> SomeObject := SomeType.Create;
> (SomeObject as TStrings).Add('Hello World');
> ShowMessage((SomeObject as TStrings)[0]);
> SomeObject.Fr
It can be implemented with RTTI or variants perhaps.
Anthony Walter-3 wrote:
>
> Like so:
>
> procedure Test;
> var
> SomeType: TClass;
> SomeObject: TObject;
> begin
> SomeType := TStringList;
> SomeObject := SomeType.Create;
> (SomeObject as TStrings).Add('Hello World');
> ShowMe
I see no -CX / -XX appeared in the command line.
Florian Klämpfl wrote:
>
>> So, I try removing smart target. It works! But the binaries aren't
>> smartlinked...
>
> What makes you think so?
> ___
> fpc-pascal maillist - fpc-pascal@lists.freepascal
Like so:
procedure Test;
var
SomeType: TClass;
SomeObject: TObject;
begin
SomeType := TStringList;
SomeObject := SomeType.Create;
(SomeObject as TStrings).Add('Hello World');
ShowMessage((SomeObject as TStrings)[0]);
SomeObject.Free;
end;
On Mon, Aug 23, 2010 at 7:05 PM, Frank Churc
I did this kind of thing some time ago, but have forgotten the details.
Let us say you have something like TBaseType(Variable).Method, you want to
let TBaseType be a variable so you can have some code like this.
procedure (value:someType)
var
variableType: TClass; //not quite sure here
variab
Thanks Jonas and Jeppe for your answers. I will probably wait then to
switch (or try to convince the company to use an ARM-9)
On 23/8/2010 11:21 AM, Jeppe Johansen wrote:
Den 23-08-2010 16:09, Andreas Berger skrev:
I know that FPC works under ARM+Linux. Is this also true for the
Cortex ver
Den 23-08-2010 16:09, Andreas Berger skrev:
I know that FPC works under ARM+Linux. Is this also true for the
Cortex version of ARM? One of our major applications is written in C++
simply because it is to run in the future on an embedded system as
well as the PC. Well the embedded processor ha
On 23 Aug 2010, at 16:09, Andreas Berger wrote:
I know that FPC works under ARM+Linux. Is this also true for the
Cortex version of ARM? One of our major applications is written in C+
+ simply because it is to run in the future on an embedded system as
well as the PC. Well the embedded proce
I know that FPC works under ARM+Linux. Is this also true for the
Cortex version of ARM? One of our major applications is written in C++
simply because it is to run in the future on an embedded system as well
as the PC. Well the embedded processor has been chosen - the Luminary
(TI) ARM-Cortex
13 matches
Mail list logo
