SizeOf/ru

program sizeOfDemo(input, output, stderr);

{$typedAddress on}

uses
    heaptrc;

type
    s = record
        c: char;
        i: longint;
    end;

var
    x: ^s;

begin
    returnNilIfGrowHeapFails := true;
    
    getMem(x, sizeOf(x));
    
    if not assigned(x) then
    begin
        writeLn(stderr, 'malloc for x failed');
        halt(1);
    end;
    
    x^.c := 'r';
    x^.i := -42;
    
    freeMem(x, sizeOf(x));
end.

program sizeOfDemo(input, output, stderr);

type
    integerArray = array of integer;

function sum(const f: integerArray): int64;
{$ifdef CPUx86_64}
assembler;
{$asmMode intel}
asm// убеждаемся, что f находится в конкретном регистре// rsi := f  (указатель на массив)// проверка на пустой (nil) указатель (напр. пустой массив)// rsi = 0 ?// если rsi = nil, то переходим к @sum_abort// загружаем последний индекс массива [теоретически это верхний элемент массива F]// rcx := (rsi - sizeOf(sizeInt))^// загружаем первый элемент, поскольку условие цикла не дойдет до него{$if sizeOf(integer) = 4}// eax := rsi^{$elseif sizeOf(integer) = 2}// ax := rsi^{$else}{$error неожиданный целочисленный размер}{$endif}// мы сделаем, если f не содержит больше элементов// rcx = 0 ?// если high(f) = 0,  то переходим к @sum_done{$if sizeOf(integer) = 4}// edx := (rsi + 4 * rcx)^{$elseif sizeOf(integer) = 2}// dx := (rsi + 2 * rcx)^{$else}{$error неожиданный масштабный коэффициент}{$endif}// rax := rax + rdx// если OF, то переходим к @sum_abort// dec(rcx)// если rcx <> 0,  то переходим к @sum_iterate// переходим к @sum_done// загружаем нейтральный элемент для прибавления// rax := 0
    // убеждаемся, что f находится в конкретном регистре
    mov rsi, f                       // rsi := f  (указатель на массив)
    
    // проверка на пустой (nil) указатель (напр. пустой массив)
    test rsi, rsi                    // rsi = 0 ?
    jz @sum_abort                    // если rsi = nil, то переходим к @sum_abort
    
    // загружаем последний индекс массива [теоретически это верхний элемент массива F]
    mov rcx, [rsi] - sizeOf(sizeInt) // rcx := (rsi - sizeOf(sizeInt))^
    
    // загружаем первый элемент, поскольку условие цикла не дойдет до него
    {$if sizeOf(integer) = 4}
    mov eax, [rsi]                   // eax := rsi^
    {$elseif sizeOf(integer) = 2}
    mov ax, [rsi]                    // ax := rsi^
    {$else} {$error неожиданный целочисленный размер} {$endif}
    
    // мы сделаем, если f не содержит больше элементов
    test rcx, rcx                    // rcx = 0 ?
    jz @sum_done                     // если high(f) = 0,  то переходим к @sum_done
    
@sum_iterate:
    {$if sizeOf(integer) = 4}
    mov edx, [rsi + rcx * 4]         // edx := (rsi + 4 * rcx)^
    {$elseif sizeOf(integer) = 2}
    mov dx, [rsi + rcx * 2]          // dx := (rsi + 2 * rcx)^
    {$else} {$error неожиданный масштабный коэффициент} {$endif}
    
    add rax, rdx                     // rax := rax + rdx
    
    jo @sum_abort                    // если OF, то переходим к @sum_abort
    
    loop @sum_iterate                // dec(rcx)
                                     // если rcx <> 0,  то переходим к @sum_iterate
    
    jmp @sum_done                    // переходим к @sum_done
    
@sum_abort:
    // загружаем нейтральный элемент для прибавления
    xor rax, rax                     // rax := 0
    
@sum_done:
END;
{$else}
unimplemented;
begin
    sum := 0;
end;
{$endif}

begin
    writeLn(sum(integerArray.create(2, 5, 11, 17, 23)));
end.

program dynamicArraySizeDemo(input, output, stderr);

uses
    sysUtils;

resourcestring
    enteredN = 'Вы ввели %0:d целых чисел';
    totalData = 'занимающих всего %0:d Bytes.';

var
    f: array of longint;

begin
    setLength(f, 0);
    
    while not eof() do
    begin
        setLength(f, length(f) + 1);
        readLn(f[length(f)]);
    end;
    
    writeLn(format(enteredN, [length(f)]));
    writeLn(format(totalData, [length(f) * sizeOf(f[0])]));
end.