<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Sorry I been late.<br>
<br>
var wProgram :string;<br>
<br>
params:<br>
<meta name="qrichtext" content="1">
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><!--StartFragment-->-dUseCThreads</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;">-FcUTF8</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;">-dEnableUTF8</p>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;">-al<br>
</p>
<br>
result:<br>
# [634] wFileStr.Read(ar, 4);<br>
leaq -24(%rbp),%r14<br>
movq -16(%rbp),%r13<br>
movl $4,%r12d<br>
movq -16(%rbp),%rbx<br>
testq %rbx,%rbx<br>
jne Lj2643<br>
movl $210,%edi<br>
call fpc_handleerror<br>
Lj2643:<br>
movq (%rbx),%rbx<br>
movq %rbx,%rdi<br>
call fpc_check_object<br>
movl %r12d,%edx<br>
movq %r13,%rdi<br>
movq %r14,%rsi<br>
call *256(%rbx)<br>
Lj2634:<br>
call FPC_POPADDRSTACK<br>
# [637] wFileStr.Free<br>
<br>
params:<br>
<meta name="qrichtext" content="1">
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px;
margin-right:0px; -qt-block-indent:0; text-indent:0px;"><!--StartFragment-->-dUseCThreads</p>
-al
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css">
p, li { white-space: pre-wrap; }
</style><br>
results:# [634] wFileStr.Read(ar, 4);<br>
leaq -24(%rbp),%r14<br>
movq -16(%rbp),%r13<br>
movl $4,%r12d<br>
movq -16(%rbp),%rbx<br>
testq %rbx,%rbx<br>
jne Lj2515<br>
movl $210,%edi<br>
call fpc_handleerror<br>
Lj2515:<br>
movq (%rbx),%rbx<br>
movq %rbx,%rdi<br>
call fpc_check_object<br>
movl %r12d,%edx<br>
movq %r13,%rdi<br>
movq %r14,%rsi<br>
call *256(%rbx)<br>
Lj2506:<br>
call FPC_POPADDRSTACK<br>
# [637] wFileStr.Free;<br>
<br>
<br>
<div class="moz-cite-prefix">On 19.02.2015 13:59, luiz americo
pereira camara wrote:<br>
</div>
<blockquote
cite="mid:CAMa0j63ak3GzsXNWo9uH7B3jNKfZBaHPgdCVRaHphUyFHRc4OQ@mail.gmail.com"
type="cite">
<div>I have two more tips to try to see where the problem is:<br>
<br>
</div>
<div>What is the type of wProgram?</div>
<div><br>
</div>
<div>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)<br>
<br>
look at the generated code for<br>
<br>
wFileStr := TFileStream.Create(wProgram, fmOpenRead);<br>
<br>
and<br>
<br>
wFileStr.Read(ar, 4);<br>
<br>
</div>
<div>BTW: the compiler are being recompiled with those options
"-FcUTF8 , -dEnableUTF8" or only LCL?<br>
</div>
<div><br>
</div>
<div>Luiz<br>
</div>
<div><br>
</div>
</blockquote>
<br>
</body>
</html>