Вверх ↑
Этот топик читают: Гость
Ответов: 268
Рейтинг: 5
#1: 2007-10-08 09:37:42 ЛС | профиль | цитата
Add(FileTools,6314939,294,161)
{
DelToRecycle=1
link(FileName,14291368:Var2,[])
}
Add(Memory,1737307,294,56)
{
Default=String(1.txt)
}
Add(Button,16203227,140,168)
{
Left=105
Top=165
link(onClick,14364151:doEvent1,[])
}
Add(StrList,7248883,252,126)
{
Strings=#5:12345|
link(FileName,14291368:Var1,[(265,107)])
}
Add(Hub,14364151,196,168)
{
link(onEvent1,7248883:doSave,[(240,174)(240,167)])
link(onEvent2,6314939:doDelete,[])
}
Add(GetDataEx,14291368,287,98)
{
link(Data,1737307:Value,[])
}
?
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Администрация
Ответов: 15262
Рейтинг: 1498
#2: 2007-10-08 11:04:37 ЛС | профиль | цитата
опять в кол'ом не подружились.
карма: 21
1
Голосовали:Konst
Ответов: 9804
Рейтинг: 340
#3: 2007-10-08 11:44:26 ЛС | профиль | цитата
Что-то подсказывает мне, что здесь:
DeleteFiles(PChar(F1));
буковка s - лишняя...

------------ Дoбавленo:

и все время де-жа-вю какое-то
карма: 8

0
Администрация
Ответов: 15262
Рейтинг: 1498
#4: 2007-10-08 11:46:49 ЛС | профиль | цитата
если эту s убрать логика работы элемента изменится. Например перестанет работать такое удаление:
c: emp*.*
карма: 21
0
Ответов: 9804
Рейтинг: 340
#5: 2007-10-08 13:06:22 ЛС | профиль | цитата
Я имел ввиду, что "Files" и "PChar" - слова из разных песен...

------------ Дoбавленo:

Ну хорошо, вот диагноз:
Отвал происходит при выполнении RET в StrScan
function StrScan(Str: PChar; Chr: Char): PChar; assembler;
asm
PUSH EDI
PUSH EAX
MOV EDI,EAX
OR ECX, -1
XOR AL,AL
REPNE SCASB
NOT ECX
POP EDI
XCHG EAX, EDX
REPNE SCASB
XCHG EAX, EDI
POP EDI
JE @@1
XOR EAX, EAX
RET
@@1: DEC EAX
end {$IFDEF F_P} [ 'EAX', 'EDX', 'ECX' ] {$ENDIF};
Типа FPC считает, что возвращаться из ф-ии надо совсем по-другому

Это происходит в цепочке: DeleteFiles => Parse => IndexOfCharsMin => IndexOfChar => StrScan

И чего теперь
карма: 8

0
Администрация
Ответов: 15262
Рейтинг: 1498
#6: 2007-10-08 13:53:50 ЛС | профиль | цитата
очередной повод попробовать KOL 2.* и FPC 2.*
карма: 21
0
Ответов: 9804
Рейтинг: 340
#7: 2007-10-08 16:07:28 ЛС | профиль | цитата
Dilma писал(а):
очередной повод попробовать KOL 2.* и FPC 2.*

А никакой разницы

карма: 8

0
Ответов: 2125
Рейтинг: 159
#8: 2007-10-08 17:16:44 ЛС | профиль | цитата
Galkov писал(а):
И чего теперь

А RET посреди процедуры не пугает?
Может лучше так концовку сделать:

        JE      @@1
XOR EAX, EAX
JMP @@2
@@1: DEC EAX
@@2:


А то от опций компилятора зависеть будет...
карма: 1

0
Ответов: 9804
Рейтинг: 340
#9: 2007-10-08 17:25:16 ЛС | профиль | цитата
tsdima, да как исправлять-то - я знаю
Если бы это я писал - вопроса и не было бы.

Думаешь в KOL (даже в самом последнем) один такой RET затесался



Тут еще один вопрос про FPC2, более противный, созрел кажется
TObj.Destroy - "деструкторы" кажется в FPC и Дельфи по разному работают.
карма: 8

0
Администрация
Ответов: 15262
Рейтинг: 1498
#10: 2007-10-08 17:32:44 ЛС | профиль | цитата
если DEC не изменяет флаг zero(не помню уже), то можно и так:
DEC EAX
JNE @@1
XOR EAX, EAX
@@1:

карма: 21
0
Ответов: 9804
Рейтинг: 340
#11: 2007-10-08 18:00:07 ЛС | профиль | цитата
Меняет
Он не меняет Carry (C - по нашему)

------------ Дoбавленo:

Причем именно такая фигня почти на всех ASM-ах.
Не только на PC...
карма: 8

0
Администрация
Ответов: 15262
Рейтинг: 1498
#12: 2007-10-08 18:14:00 ЛС | профиль | цитата
действительно. Меняет af, of, pf, sf и zf, поэтому конструкцуия должна работать
карма: 21
0
Ответов: 2125
Рейтинг: 159
#13: 2007-10-08 19:05:56 ЛС | профиль | цитата
Galkov писал(а):
в KOL (даже в самом последнем) один такой RET затесался

Ну тогда надо опцию эту найти, что asm процедуры должны быть naked.
карма: 1

0
Ответов: 9804
Рейтинг: 340
#14: 2007-10-08 20:05:08 ЛС | профиль | цитата
Ну вот тебе и пример в лицо
StrScan вообще не имеет PAS-версии. Что логично конечно же.

Собственно вопрос в том, как бы отделить мухи от котлет...
Типа, ввести перманентную поддержку последнего KOL в проекте. Что логично если KOL содержится в приличном состоянии иными заинтересованными людьми.

А оно - вон какая фигня выходит

карма: 8

0
Ответов: 499
Рейтинг: 1
#15: 2008-08-27 20:41:32 ЛС | профиль | цитата
а воз и ныне там?
есть какое-то временное решение для текущей связки fpc+kol?
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)