Hi
I have program
procedure fun(a : integer);overload;
begin
write('integer ',a);
end;
procedure fun(a:int64);overload;
begin
write('int64 ',a);
end;
var
w : word;
begin
w:=3;
fun(w+3);
end;
Why on arch x64 program write 'int64 6' but on i386 'integer 6'
Where I can read about this
Hello
I finish first stage to move my webapp as native Android application.
Its consists one java file with declaration webWiew, and all rest, written
in FPC, is build as library. Of course start is thought jni, but after
that http server (based on Synapse) is started, and build in browser can
When I using xmlCfg unit i found problem with storing literals in
arbitrary code page. XMLCfg perform automatic conversion with omit some
chars.
I've change it to use utf8string instead of. Maybe this patch will be
interesting.
Index: packages/fcl-xml/src/xmlcfg.pp
/usr/local/lib/fpc/2.5.1/units/arm-linux/rtl/system.o: In function
`SYSTEM_SYSTEM_EXIT':
system.pp:(.text.n_system_system_exit+0x10): undefined reference to
`_haltproc_eabi'
noy1.lpr(23) Error: Error while linking
noy1.lpr(23) Fatal: There were 1 errors compiling module, stopping
Fatal:
Hi
I found problem with is operator using with generics
This program is not compile
error is: Class or Object types TList$LongInt and TList$ShortString
are not related
But I think it should be possible
{$mode objfpc}
type
generic TList_T=class(TObject)
public
data : _T;
I try to resolve http://bugs.freepascal.org/view.php?id=15308
problem is with str
str(1.0:10,s); writeln(s);
str(1.05:10,s);writeln(s);
str(1.05e2,s);writeln(s);
give results (:
1.000E+00
1.0E+
1.050E+0002
^^// moving
where I can find implementation of str
Darek
On 30 Dec 2009, at 16:20, dar...@emadar.com wrote:
I try to resolve http://bugs.freepascal.org/view.php?id=15308
problem is with str
str(1.0:10,s); writeln(s);
str(1.05:10,s);writeln(s);
str(1.05e2,s);writeln(s);
give results (:
1.000E+00
1.0E+
1.050E+0002
^^//
dar...@emadar.com escreveu:
I try to resolve http://bugs.freepascal.org/view.php?id=15308
Is not that fixed by svn rev 14490?
problem is with str
str(1.0:10,s); writeln(s);
str(1.05:10,s);writeln(s);
str(1.05e2,s);writeln(s);
give results (:
1.000E+00
1.0E+
On 30 Dec 2009, at 17:27, dar...@emadar.com wrote:
this program:
var
d1,d2 : double;
d1,d2 : extended;
begin
d1:=105;
d2:=1.05e2;
writeln(d1-d2);
end;
That's only part of a program, it does not compile. You may have typed it
in your mail and accidentally put a ; at the end
On 30 Dec 2009, at 16:20, dar...@emadar.com wrote:
I try to resolve http://bugs.freepascal.org/view.php?id=15308
problem is with str
str(1.0:10,s); writeln(s);
str(1.05:10,s);writeln(s);
str(1.05e2,s);writeln(s);
give results (:
1.000E+00
1.0E+
1.050E+0002
^^//
On 30 Dec 2009, at 18:25, dar...@emadar.com wrote:
On 30 Dec 2009, at 17:27, dar...@emadar.com wrote:
this program:
var
d1,d2 : double;
d1,d2 : extended;
begin
d1:=105;
d2:=1.05e2;
writeln(d1-d2);
end;
result: 6.9388939907E-18
sorry,
I did not notice, that is different type
On 12 Dec 2009, at 01:14, dar...@emadar.com wrote:
this is good (mentioned bug goes off) configuration
make crossinstall CPU_TARGET=arm OS_TARGET=linux
CROSSBINDIR=/home/darek2008/fpcarm/arm-linux-uclibc/bin
CROSSOPT=-dFPC_ARMEL -CfSOFT -gl -O2
INSTALL_PREFIX=/home/darek2008/fpcarm
On 12 Dec 2009, at 15:38, dar...@emadar.com wrote:
/home/darek2008/fpcarm/arm-linux-uclibc/bin/ld:./link.res: file format
not
recognized; treating as linker script
/home/darek2008/fpcarm/arm-linux-uclibc/bin/ld:./link.res:289: syntax
error
I found the error
link.res should be so (its
To resolve problem from http://bugs.freepascal.org/view.php?id=15312
about EABI binares (compiler says that is EABI, but its not EABI, -CaEABI
and FPC_ARMEL are enable)
I try to build FPC for Target OS: Linux for ARMEL (as Jonas say)
But all try was wrong
CPU_TARGET=armel : not build
Hi
Are in FPC some instruction set contains streaming SIMD (SSE) like in
GCC:
http://gcc.gnu.org/onlinedocs/gcc-4.3.2/gcc/X86-Built_002din-Functions.html
or in Microsoft Visual
http://msdn.microsoft.com/en-us/library/kcwz153a(VS.80).aspx
--
Darek
Michael Schnell pisze:
I have to think a bit more about the locking mechanism you suggest.
I;ve added some links on my site
I intended to use a single word as a semaphore to protect the access
to the structure and fall back to an OS-based wait (e.g. by
TCriticalSection) if it can't be
Micha Nelissen pisze:
DarekM wrote:
Hi
This is my proposition of algorithm and its implementing multithreaded
FIFO queue without lock.
Hmm 'Push' and 'Pop' sound like a stack, but the implementation seems to
implement a FIFO indeed, with a head and tail.
It should be enqueue
Martin Friebe pisze:
What about a long running (eg daemon) application?
If temp/tail hits the upper boundary of Integer?
(If I understand it correctly)
I don't know if interlockedIncrement gives a boundary error, but if not,
it still fails.
- With currently integer, it gets a negative value,
Martin Friebe pisze:
You will need to test it, but the following may also work
procedure tFlQueue.push(const tm : tNodeQueue);
var
newTemp,
lastTail,
newTail : integer;
begin
newTemp := temp;
while newTemp = fsize begin
// if it is true, every thread is going to attempt to fix it,
Florian Klaempfl pisze:
An if is unimportant, more important is the number of locked operations,
especially on multi core systems they might eat hundreds of clock cycles.
There are atomic operations, the should not eat much more than ordinal
INC or ADD,
and second CAS is invoked only one
Hi
In attachment is my proposition of mandelbrot program. It is about 5%
faster.
changed:
1. output result
2. condition of limit move inner to loop
Darek
{ The Computer Language Shootout
http://shootout.alioth.debian.org
contributed by Ales Katona
modified by Vincent Snijders
}
Hi
I've notice two improvement
1. equation in SSE
# Var Zr located in register mreg0md
# Var Zi located in register mreg1md
# Var Ti located in register mreg3md
# Var Tr located in register mreg2md
# [39] Tr := Zr * Zr;
movsd%xmm0,%xmm4
mulsd%xmm0,%xmm4
movsd%xmm4,%xmm2
it
Florian Klaempfl pisze:
DarekM schrieb:
Hi
I've notice two improvement
1. equation in SSE
# Var Zr located in register mreg0md
# Var Zi located in register mreg1md
# Var Ti located in register mreg3md
# Var Tr located in register mreg2md
# [39] Tr := Zr * Zr;
movsd%xmm0,%xmm4
L505 napisał(a):
Neat!
I'm testing on a Celeron 400 using Winblows 2000..
Do you have the source code for test 7 so we can run it through different CPU
architectures?
There was attached
yours modified project1
and textstream: unit with implementation tTextStream (w/o assembler)
Darek
Marco van de Voort napisał(a):
Since the maillists are a bit irregular, I want to repeat the point that
the relative slowliness of the revcomp benchmark is the repeated realloc,
not the reading of the textfile (though a small settextbuf might improve it
a bit).
Its not true. Realloc is
I've done some test
there are 5 version of revcom test
1. original
2. done bigger buffer
3 use tTextSrteam
4+ 5 in place of readln i've pass const string
6 only one set string variable
7 no move- I've rem MOVE procedure
I've repeat test in program, because time of test are vary (I don't know
Marco van de Voort napisał(a):
On Sun, 11 Dec 2005, darekM wrote:
But why it is in separated unit, nobody know about it (or to few). F.e.
Lazarus has own implementation of buffering.
Lazarus had to do a long time with FPC 1.0.x _and_ 2.0.x. Not all artefacts
Hi
My CPU war
Welcome to the CPU war for StrLoadFile.. Please wait...
test 1 (char) execution time: 1862654
test 2 (blockread 1) execution time: 27080
test 3 (blockread fsize) execution time: 46633
test 7 (blockread tHandle) execution time: 18569
test 4 (tStringList) execution time: 364999
test
Daniël Mantione napisał(a):
Op Sat, 10 Dec 2005, schreef darekM:
Hi
I've tested some of benchmark on
http://shootout.alioth.debian.org/
I've see that reverse-complement benchmark
http://shootout.alioth.debian.org/benchmark.php?test=revcomplang=all for
FPC is very slow. I discover
Michael Van Canneyt napisał(a):
On Sat, 10 Dec 2005, darekM wrote:
Hi
I've tested some of benchmark on
http://shootout.alioth.debian.org/
I've see that reverse-complement benchmark
http://shootout.alioth.debian.org/benchmark.php?test=revcomplang=all for
FPC is very slow. I discover
Hi
I've tested some of benchmark on
http://shootout.alioth.debian.org/
I've see that reverse-complement benchmark
http://shootout.alioth.debian.org/benchmark.php?test=revcomplang=all for FPC
is very slow. I discover, that problem is with readln, that function consume about 90% of
time.
I've presented small improve in fcpmake, witch can modified all MAKE files
in FCP project, no one must use MAKE for own project but to recompile
COMPILATOR better use it and with my patch even simpler (I think so).
Darek
PS. I'm sorry for my last post in HTML format.
- Original Message
I've tried to recompile COMPILATOR
I think I've found bugs:
in FPC.PP
line 67 string -- shortstring
procedure findexe(var ppcbin:shortstring);
in PPUDUMP.PP
line 235 string -- shortstring
function hexstr(val : cardinal;cnt : byte) : shortstring;
line 227 string -- shortstring
function
33 matches
Mail list logo