После обновления перекомпилировал на XP spf4.exe и обранужил странный глюк - SEARCH находит строку только в строке <64Kb
Код:
\ поиск подстроки в строке
lib\include\double.f
HERE
0x80 C, 0x80 C, 0x67 C, 0x80 C,
HERE OVER - ( addr u )
2CONSTANT toFind
: fillOut ( n -- ) 0 DO 0x80 C, LOOP ;
HERE
66000 fillOut \ если 60000, то находит
toFind S,
HERE OVER - ( addr u )
2CONSTANT buf
\ buf DUMP
CR
buf toFind SEARCH NIP NIP .
.( -1 -работает, 0 - не работает) CR
\ BYE
Эта же свежеоткомпилированная версия на W98 сразу выходит.
А новую версию на W98 тоже не собрать - программа отрабатывает, но файл не создается...
Система для W98 сделана копированием XP-шной версии, разница только в имени диска.
Вход
Регистрация
Благодарности
Forth-FAQ
