Модератор: Модераторы
vitaly_l писал(а):Кто Вам сказал что Пи нужно вычислять, как: "отношение длины к диаметру"??? ... <== Вас "обманули" одурачили в школе!
Лекс Айрин писал(а):Дож писал(а):Как видим, в трёх случаях ни разу значение не возвращалось через стек.
Что ж, ошибся. Про регистры то я и забыл... Впрочем, это, на самом деле, мало что меняет -- если присмотреться, то все переменные хранятся в стеке.
Код: Выделить всё
.section .text.n_p$program_$$_func_register_int$longint$longint$$longint,"x"
.balign 16,0x90
.globl P$PROGRAM_$$_FUNC_REGISTER_INT$LONGINT$LONGINT$$LONGINT
P$PROGRAM_$$_FUNC_REGISTER_INT$LONGINT$LONGINT$$LONGINT:
# Var A located in register eax
# Var B located in register edx
# Var $result located in register eax
# [15] begin
# [16] Result := A + B;
leal (%eax,%edx),%eax // <-- Ну и где здесь ebp?
# Var $result located in register eax
# [17] end;
ret
(содержимое ebp практически сразу же становится равным esp ). А после присваивания принадлежащий функции участок стека удаляется.
Код: Выделить всё
var
X: LongInt = 0;
Y: LongInt = 0;
function GetRandom: LongInt;
begin
Inc(X);
Y := Y + X;
Result := X*Y;
end;
vitaly_l писал(а):sign писал(а):Нельзя изменить Pi, поскольку это соотношение из физической реальности. Но, я согласен, вам, художникам, сие непонятно!
Физической или же всё таки геометрической???
Хотя, безусловно Вами приведён: Весомый аргумент, но Вы заблуждаетесь.
Смотрите, меняю Пи и затем меняю в корне "всю" математику.
Допустим: Пи теперь не 3.14, а 6.28 (сокращено до 2 знака).
Теперь осмыслим: точность геометрии сохранится? <== Да/нет?
Безусловно ответ "Да", т.к. я всего лишь увеличил Пи в два раза.
Снег Север писал(а):Кстати, пока не забыл - Мамай и Дмитрий Донской один и тот же человек? :lol:
Дож писал(а):Всё-таки Фоменко и Носовский вносят свою пользу: они создали довольно обширную систему, в рамках которой задали историкам много очень даже правильных вопросов, перепроверили много источников, применили много теорий, начиная от откровенных бредней и заканчивая вполне логичными и правильными подходами.
Дож писал(а):У Вас очень детское и наивное представление: будто бы общее почти всегда можно познать на основе частных случаев. «Если придумали алгоритм в простом случае, то легко доработаем до более сложного случая». «Если решили простую задачу, то без проблем решим и усложнённую версию». Теперь вот общие выводы делаем на основе каких-то ассемблерных кодов, которые я получил.
Дож писал(а):И лучше вообще уйти от ассемблера, деталей реализации и прочих лишних сущностей, особенно если Вы в них плаваете, и сформулировать что-то в рамках языка паскаль (как пример: «переменная GetRandom — это Result после окончания работы функции, без этой псевдопеременной невозможно реализовать функцию как конструкцию, она временная, не описана, но к ней реально получить доступ, и она называется GetRandom и т.д.»).
vitaly_l писал(а):sign писал(а):Нельзя изменить Pi, поскольку это соотношение из физической реальности. Но, я согласен, вам, художникам, сие непонятно!
Физической или же всё таки геометрической???
Хотя, безусловно Вами приведён: Весомый аргумент, но Вы заблуждаетесь.
Смотрите, меняю Пи и затем меняю в корне "всю" математику.
Допустим: Пи теперь не 3.14, а 6.28 (сокращено до 2 знака).
Теперь осмыслим: точность геометрии сохранится? <== Да/нет?
Безусловно ответ "Да", т.к. я всего лишь увеличил Пи в два раза.
vitaly_l писал(а):А что станет с математикой???
Правильно! Все формулы, "придётся" переделать под новое Пи, которое теперь равно 6.28, а не 3.14...
vitaly_l писал(а):И кто из нас оторван от реальности? Художники или программисты? А? Ага...
vitaly_l писал(а):sign писал(а): вы в слова "Большой взрыв" вкладываете своё обыденное понимание.
при понимании теории БВ - пропуск в мир реальной физики - инфляция.
Я напомню, что мы холиварим: "о глобальных переменных"... И рассматриваем большой взрыв как зарождение вселенной.
А до большого взрыва "компьютер" был выключен и вселенной не существовало? <=== Правильно?
vitaly_l писал(а):Или же вернёмся к реальности и увидим, что есть ещё скорость света, которая...
инфляция вход? А дефляция - тогда это я так понимаю выход? Да?
vitaly_l писал(а):Снег Север писал(а):кстати, произвольно изменить число пи или "е" нельзя.
Ну это вообще позор для физика... Утверждать что число "е" изменить нельзя... Где Вы учились?
Лекс Айрин писал(а):Дож писал(а):У Вас очень детское и наивное представление: будто бы общее почти всегда можно познать на основе частных случаев. «Если придумали алгоритм в простом случае, то легко доработаем до более сложного случая». «Если решили простую задачу, то без проблем решим и усложнённую версию». Теперь вот общие выводы делаем на основе каких-то ассемблерных кодов, которые я получил.
Вообще, так работают все программисты (И, как ни странно, ученые)
И, кстати, странная у Вас манера отказываться от своих аргументов, как только они вам мешают.
Дож писал(а):И лучше вообще уйти от ассемблера, деталей реализации и прочих лишних сущностей, особенно если Вы в них плаваете, и сформулировать что-то в рамках языка паскаль (как пример: «переменная GetRandom — это Result после окончания работы функции, без этой псевдопеременной невозможно реализовать функцию как конструкцию, она временная, не описана, но к ней реально получить доступ, и она называется GetRandom и т.д.»).
Оу... Вы все сказали именно так, как следует.... но именно ВЫ просили этих подробностей. Кстати, не забудьте еще и возможность вызвать функцию из себя самой... (рекурсия).
И ради чего Вы вставали в позу, если сами все понимаете?
Дож писал(а):На данный момент получается «GetRandom — это переменная, которая указывает на какой-то мусор на стеке, и существующая в короткий момент времени завершения выполения функции GetRandom».
Код: Выделить всё
var
X: LongInt = 0;
Y: LongInt = 0;
procedure GetRandom(out Result: LongInt);
begin
Inc(X);
Y := Y + X;
Result := X*Y;
end;
bormant писал(а):На точку входа в процедуру она указывает, и для функций, и для процедур. Иной семантики у идентификатора процедуры/функции нет. Возвращаемыми функцией результат подставляется в точке ее вызова, но вызов делается на точку входа.
Дож писал(а):А в данном случае пациент больше напоминает Рыбникова (который придумал русскую арифметику и русскую таблицу химических элементов): и здесь ссылка на видео...
vitaly_l писал(а):там не должно быть никакого адреса
Код: Выделить всё
{$mode ObjFPC}
var
X: LongInt = 0;
Y: LongInt = 0;
procedure GetRandom(out Result: LongInt);
begin
Inc(X);
Y := Y + X;
Result := X*Y;
end;
var t: LongInt;
begin
GetRandom(t);
end.
Код: Выделить всё
fpc -al test
Код: Выделить всё
...
.section .text.n_p$program_getrandom$longint,"x"
.balign 16,0x90
.globl P$PROGRAM_GETRANDOM$LONGINT
P$PROGRAM_GETRANDOM$LONGINT:
# Temps allocated between ebp-4 and ebp-4
# [d.pas]
# [7] begin
pushl %ebp
movl %esp,%ebp
subl $4,%esp
# Var Result located at ebp-4
movl %eax,-4(%ebp)
# [8] Inc(X);
incl TC_P$PROGRAM_X
# [9] Y := Y + X;
movl TC_P$PROGRAM_Y,%edx
movl TC_P$PROGRAM_X,%eax
addl %eax,%edx
movl %edx,TC_P$PROGRAM_Y
# [10] Result := X*Y;
movl TC_P$PROGRAM_X,%edx
movl TC_P$PROGRAM_Y,%eax
imull %eax,%edx
movl -4(%ebp),%eax
movl %edx,(%eax)
# [11] end;
leave
ret
.section .text.n__main,"x"
.balign 16,0x90
.globl PASCALMAIN
PASCALMAIN:
.globl _main
_main:
# Temps allocated between ebp+0 and ebp+0
# [14] begin
pushl %ebp
movl %esp,%ebp
call FPC_INITIALIZEUNITS
# [15] GetRandom(t);
movl $U_P$PROGRAM_T,%eax
call P$PROGRAM_GETRANDOM$LONGINT
# [16] end.
call FPC_DO_EXIT
leave
ret
# End asmlist al_procedures
...
Код: Выделить всё
P$PROGRAM_GETRANDOM$LONGINT:
Код: Выделить всё
movl $U_P$PROGRAM_T,%eax
call P$PROGRAM_GETRANDOM$LONGINT
Код: Выделить всё
_CODE SEGMENT PARA PUBLIC USE32 'CODE'
ALIGN 16
PUBLIC P$PROGRAM_GETRANDOM$LONGINT
P$PROGRAM_GETRANDOM$LONGINT:
; Temps allocated between esp+0 and esp+0
; Var Result located in register eax
; [d.pas]
; [7] begin
; [8] Inc(X);
inc dword ptr [TC_P$PROGRAM_X]
; [9] Y := Y + X;
mov ecx,dword ptr [TC_P$PROGRAM_Y]
mov edx,dword ptr [TC_P$PROGRAM_X]
add ecx,edx
mov dword ptr [TC_P$PROGRAM_Y],ecx
; [10] Result := X*Y;
mov edx,dword ptr [TC_P$PROGRAM_X]
mov ecx,dword ptr [TC_P$PROGRAM_Y]
imul edx,ecx
mov dword ptr [eax],edx
; [11] end;
ret
_CODE ENDS
_CODE SEGMENT PARA PUBLIC USE32 'CODE'
ALIGN 16
PUBLIC PASCALMAIN
PASCALMAIN:
PUBLIC _main
_main:
; Temps allocated between esp+0 and esp+0
; [14] begin
call FPC_INITIALIZEUNITS
; [15] GetRandom(t);
mov eax,offset U_P$PROGRAM_T
call P$PROGRAM_GETRANDOM$LONGINT
; [16] end.
call FPC_DO_EXIT
ret
; End asmlist al_procedures
; Begin asmlist al_globals
_CODE ENDS
bormant писал(а):Как видите, опять это адрес P$PROGRAM_GETRANDOM$LONGINT, который в паскалевом коде GetRandom.
Стоп... 
Изучим: call P$PROGRAM_GETRANDOM$LONGINT.... безусловно CALL это переход на нужный адрес в памяти... вот только там лежит НАЧАЛО процедуры... Точнее: программного кода, который должен быть выполнен от адреса заданного в CALL до команды RET... Команда RET берёт в стеке адрес возврата на строку кода, которая находится ПОСЛЕ команды CALL. Соответственно: P$PROGRAM_GETRANDOM$LONGINT <=== это не адрес ВОЗВРАЩАЕМОГО значения, а адрес НАЧАЛА кода процедуры. <=== Разве не так? vitaly_l писал(а):Но программистам <=== использовать GoTo <=== запрещено!!!
А к тем программистам, которые будут пользоваться GoTo, придёт: коварный BSOD-a и система клиентов: "ласты склеит".
vitaly_l писал(а):Но Лекс Айрин - прав, НАЗВАНИЕ функции, хранится в памяти, ТАКЖЕ, как обычная переменная и туда(по адресу названия) можно записать "ЛЮБОЕ" значение ( которое - НЕ превысит объём выделенной памяти ).
vitaly_l писал(а):Дож, Ваше видео, к математике, химии, а тем более ко мне — никакого отношения не имеет. На видео, провокатор, зомбирует малограмотных граждан, прививает им нацизм и деменцию. Дож, но зачем, Вы-то, разумный и образованный человек: размещая ПРЯМЫЕ гиперссылки - поднимаете рейтинг нацистам? Быть может имеет смысл убрать ПРЯМУЮ гиперссылку на нацистский фильм, чтобы другие дети и малограмотные не заболели деменцией/нацизмом? Как Вы думаете, Дож?
Дож писал(а):Как насчёт нет, vitaly_l?