![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
![]() laughed as one fey Сообщений: 12 167 Спасибо сказали: 20596 раз ![]() |
Использует кто?
Эксперимент по зарождению холисрача в нулёвой теме |
|
|
![]() |
![]()
Сообщение
#2
|
|
![]() •●Revolucionario●• Сообщений: 2 467 Спасибо сказали: 5936 раз ![]() |
Да там задачи-то, по сути, никакой нет. Тупо разногласия в рассмотрении байт. Даже специально сейчас протестировала гипотетический аналог на PB:
Код EnableExplicit; Essential. #WordCap = 2; We need 2 words (4 bytes). Structure DoubleVision StructureUnion; 2 merged arrays (byte & word one). Array wArr.u(#WordCap-1); Desired array, aligned there. Array bArr.a(0); Base array, bounds doesn't matter. EndStructureUnion; They are shared, however... EndStructure Macro PP(TypeName, Num, Val, TypeConst); Sugar. Debug TypeName + Str(Num+1) + ": " + Hex(Val, TypeConst) EndMacro Procedure FillUp(Array Arr.a(1)); Получатель байт. Define I, Val.a, Tofix = (ArraySize(Arr())+1)*SizeOf(Word)-1; Подготовка, переcчет границ. For I = 0 To ToFix : Val = Random(255) : DisableDebugger; Подавляем отладчик, здесь он не прав. Arr(I) = Val : EnableDebugger : PP("Byte", I, Val, #PB_Byte) : Next; Выдаем данные и записываем. EndProcedure Procedure Test(Array Arr.u(1)); Получатель слов. Debug "-----------------------------"; Разделитель. Define I, Tofix = ArraySize(Arr()); Получаем размер массива... For I = 0 To ToFix : PP("Word", I, Arr(I), #PB_Word) : Next; Вывод. EndProcedure Define I, ToFix, DWArray.DoubleVision : With DWArray; Подготовка. FillUP(\bArr()) : Test(\wArr()) : EndWith; Тестирование. ...Вот чуть избыточно получилось, т.к. я описала как генератор, так и получатель. Помимо того задачи нет, есть единственная проблема с shared-границей. P.S. Еще оно "managed" а не "management". Но это так, к слову. -------------------- life MOV.I #life+1, *life
האם יש זמן לעצור ? |
|
|
![]()
Сообщение
#3
|
|
![]() Яблочный произвол! Сообщений: 11 080 Спасибо сказали: 3988 раз ![]() |
|
|
|
![]() ![]() |
Текстовая версия | Сейчас: 4 August 2025 - 18:13 |
Copyright by Алексей Крючков
![]() Programming by Degtyarev Dmitry |
|