ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Быстрая замена символа
9 сообщений из 259, страница 11 из 11
  11  все
Быстрая замена символа
    #39680737
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Глупая идея была. Пересобрал. По прежнему NativeInt(@s[1]) and 15 выдаёт 12

Все asm функции потеряли получение длины, по offset -4
...
Рейтинг: 0 / 0
29.07.2018, 20:14
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680746
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Я глянул, нигде не используется _Padding

Сделал так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
  StrRec = packed record
    codePage: Word;
    elemSize: Word;
    refCnt: Integer;
    length: Integer;
    _Padding: Integer; // Make 16 byte align for payload..
  end;



В getmem.inc так же

Аналогично
Код: pascal
1.
2.
3.
4.
5.
  TDynArrayRec = packed record
    RefCnt: Integer;
    Length: NativeInt;
    _Padding: Integer; // Make 16 byte align for payload..
  end;




Длина заработала. А выравнивание нету. Такого же как и для 64 bit
...
Рейтинг: 0 / 0
29.07.2018, 20:38
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680756
Aleksandr Sharahov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksandr Sharahov
Участник
Гирлионайльдо,

думаю, первая попытка была верной, надо внимательней пройтись по CPU64BITS
...
Рейтинг: 0 / 0
29.07.2018, 20:55
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680759
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
А почему embarcadero такие му**ки? И не могут сделать, сборку всех исходников из исходников.
И исключить все не возможные dcu для сборки?


Все их исходники пересобираются через source\rtl\BuildWinRTL.dproj
...
Рейтинг: 0 / 0
29.07.2018, 20:56
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680761
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Aleksandr Sharahov,

Не знаю, выравнивания нету никакого. Не знаю почему, всё время 12. Уже всё перетыкал. Другие участки возможные
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
const
  // Using an initialized _AnsiStr to be sure of alignement
  // and so that it is read only.
  // Note: This const assumes a little endian machine.
  EmptyStringA: _AnsiStr =
{$IFDEF CPU64BITS}
  #$00#$00#$00#$00 +  // Padding, data is 16 byte aligned
{$ENDIF}
  #$FF#$FF +          // codePage := FFFF;
  #$01#$00 +          // elemSize := 1;
  #$FF#$FF#$FF#$FF +  // refCnt := -1;
  #$00#$00#$00#$00 +  // length := 0;
  #$00#$00;           // Data   := nil;

  EmptyStringW: _AnsiStr =
{$IFDEF CPU64BITS}
  #$00#$00#$00#$00 +  // Padding, data is 16 byte aligned
{$ENDIF}
  #$FF#$FF +          // codePage := FFFF;
  #$02#$00 +          // elemSize := 2;
  #$FF#$FF#$FF#$FF +  // refCnt := -1;
  #$00#$00#$00#$00 +  // length := 0;
  #$00#$00;           // Data   := nil;



Я трогать не стал. Мб может и в них дела. А может и не в них
...
Рейтинг: 0 / 0
29.07.2018, 20:58
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680774
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Короче то, что не работала - это моя жопо рукость. Ибо он собирал по пути
Documents\Embarcadero\Studio\19.0\lib\Win32

Заменив файлики. Я увидел результат
...
Рейтинг: 0 / 0
29.07.2018, 21:17
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680776
Aleksandr Sharahov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksandr Sharahov
Участник
ГирлионайльдоAleksandr Sharahov,

Не знаю, выравнивания нету никакого. Не знаю почему, всё время 12. Уже всё перетыкал. Другие участки возможные
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
const
  // Using an initialized _AnsiStr to be sure of alignement
  // and so that it is read only.
  // Note: This const assumes a little endian machine.
  EmptyStringA: _AnsiStr =
{$IFDEF CPU64BITS}
  #$00#$00#$00#$00 +  // Padding, data is 16 byte aligned
{$ENDIF}
  #$FF#$FF +          // codePage := FFFF;
  #$01#$00 +          // elemSize := 1;
  #$FF#$FF#$FF#$FF +  // refCnt := -1;
  #$00#$00#$00#$00 +  // length := 0;
  #$00#$00;           // Data   := nil;

  EmptyStringW: _AnsiStr =
{$IFDEF CPU64BITS}
  #$00#$00#$00#$00 +  // Padding, data is 16 byte aligned
{$ENDIF}
  #$FF#$FF +          // codePage := FFFF;
  #$02#$00 +          // elemSize := 2;
  #$FF#$FF#$FF#$FF +  // refCnt := -1;
  #$00#$00#$00#$00 +  // length := 0;
  #$00#$00;           // Data   := nil;



Я трогать не стал. Мб может и в них дела. А может и не в них

как я понимаю, этот код относится к строковым константам,
тогда имеет смысл тут тоже раскомментировать,
+ проверить выравнивание констант
...
Рейтинг: 0 / 0
29.07.2018, 22:01
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39680777
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Aleksandr Sharahov1. одинаковая скорость movdqu и movdqa на выровненных данных
2. падение скорости на 10% у movdqu на невыровненных данных
Если данные выровнены, то можно сравнивать образец сразу с памятью, без загрузки в регистр. Но в случае именно замены символа там код сильно усложнится и это усложнение может съесть весь выигрыш. А вот при сравнении строк - это ускоряет немного.
...
Рейтинг: 0 / 0
29.07.2018, 22:11
| Ответить | Цитировать | Написать  
Быстрая замена символа
    #39681280
чччД__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД__
Гость
Up!
...
Рейтинг: 0 / 0
30.07.2018, 20:13
| Ответить | Цитировать | Написать  
9 сообщений из 259, страница 11 из 11
  11  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Быстрая замена символа
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39680761&tid=2040575]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 151ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 207ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]