Sorry I been late.
var wProgram :string;
params:
-dUseCThreads
-FcUTF8
-dEnableUTF8
-al
result:
# [634] wFileStr.Read(ar, 4);
leaq -24(%rbp),%r14
movq -16(%rbp),%r13
movl $4,%r12d
movq -16(%rbp),%rbx
testq %rbx,%rbx
jne Lj2643
movl $210,%edi
call fpc_handleerror
Lj2643:
movq (%rbx),%rbx
movq %rbx,%rdi
call fpc_check_object
movl %r12d,%edx
movq %r13,%rdi
movq %r14,%rsi
call *256(%rbx)
Lj2634:
call FPC_POPADDRSTACK
# [637] wFileStr.Free
params:
-dUseCThreads
-al
results:# [634] wFileStr.Read(ar, 4);
leaq -24(%rbp),%r14
movq -16(%rbp),%r13
movl $4,%r12d
movq -16(%rbp),%rbx
testq %rbx,%rbx
jne Lj2515
movl $210,%edi
call fpc_handleerror
Lj2515:
movq (%rbx),%rbx
movq %rbx,%rdi
call fpc_check_object
movl %r12d,%edx
movq %r13,%rdi
movq %r14,%rsi
call *256(%rbx)
Lj2506:
call FPC_POPADDRSTACK
# [637] wFileStr.Free;
On 19.02.2015 13:59, luiz americo pereira camara wrote:
I have two more tips to try to see where the problem is:
What is the type of wProgram?
Compile with the option -al (without debug info to get smaller files)
and look to the generated asm file (has .s extension and lives the
same dir the units are store)
look at the generated code for
wFileStr := TFileStream.Create(wProgram, fmOpenRead);
and
wFileStr.Read(ar, 4);
BTW: the compiler are being recompiled with those options "-FcUTF8 ,
-dEnableUTF8" or only LCL?
Luiz
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
