Модератор: Модераторы
С чего бы мне казалось, если я этот компилятор пишу?Mikhail писал(а):Kemet писал(а): компиляторе я оперирую лишь одной сущностью - целое.
Вам кажется. На самом деле это не так. Вот если есть только Integer, то действительно сущность будет одна.
ИМХО, Вы усложняете. Излишнее обобщение тоже плохо.
Mikhail писал(а):Нет не чушь. если бы после Integer могло стоять любое число, то сущность была бы одна.
Mikhail писал(а):Явное указание размера операндов очень слабо вяжется с кроссплатформенным программированием.
Mikhail писал(а):а если у вас 8-ми битный контроллер?
Kemet писал(а): чего бы мне казалось, если я этот компилятор пишу?
В смысле пишу не компилятор zonnon'а, а языка, где типы обозначаются так же.
Код: Выделить всё
var r: Number{32}; //целое 32 бита
d: Number{32.}; //вещественное с плавающей точкой 32 бита
d: Number{32.4}; //вещественное с фиксированной точкой 32 бита 4 бита на дробную часть
Для опоры.debi12345 писал(а):Зачем ?
Это уже диапазонные типы, размероность которых определяется компилятором.debi12345 писал(а):А если напрмер хотим ограничить значение до 31 :
alexey38 писал(а):И что? Вы, что ли никогда не программировали на таких (8-ми битный контроллере)?
Там 64 битная арифметика реализуется точно также, как и на 32-битном процессоре. Учите ассемблер, и затем уже давайте советы. А то реально какой-то малограмотный бред несете.
Mikhail писал(а):Kemet писал(а): чего бы мне казалось, если я этот компилятор пишу?
В смысле пишу не компилятор zonnon'а, а языка, где типы обозначаются так же.
Ну тогда Вам следующее рацпредложение, по "сокращению сущностей".Код: Выделить всё
var r: Number{32}; //целое 32 бита
d: Number{32.}; //вещественное с плавающей точкой 32 бита
d: Number{32.4}; //вещественное с фиксированной точкой 32 бита 4 бита на дробную часть
hinst писал(а):Mikhail я вижу тебе не нравятся классы, но ведь все кто применяют объектно-ориентированный дизайн не могут ошибаться, и не зря наверное классы вделали во все нормальные языки, в том числе, в те, в которых классов изначально не было. В Pascal приделали классы, в C приделали классы, получился C++. В Java, C#, Python, Perl, PHP - везде классы. Если кто-то не осилил классы, это не значит, что надо их выбросить
Kemet писал(а):Очередное обострение?
i: integer{16};
u: cardinal{16}
r: real{32};
x: real{32, IEEE-LE}
а если у вас 8-ми битный контроллер?
Код: Выделить всё
i1: integer as MIN_FIT;
i2: integer as MAX_FIT;
i3: integer as HUGE;
debi12345 писал(а):АФАЙК, под них производитель выкладывает свои SDK - пока что на "С". Чтобы выкладывали на PASCAL-е, реально нужно чтобы было:
Нет не чушь. если бы после Integer могло стоять любое число, то сущность была бы одна.
Это уже диапазонные типы, размероность которых определяется компилятором.
debi12345 писал(а):Для IA32 все что не равно 32 - диапазонные (неотлавливемые аппаратными прерываниями), АФАЙК. 8 бит в это случает ничуть не оптимизированне чем 5 бит.
debi12345 писал(а):Может потому, что компилятор генерит код проверки диапазона для INT8 перед каждой операцией ?
Код: Выделить всё
program addspeed;
{$mode objfpc}
uses
sysutils,dateutils;
var
i2: longint;
i3: longint;
i1: byte;
i: longint;
dt: tdatetime;
begin
i1:= 1;
i2:= 0;
dt:= now;
for i:=0 to 100000000 do i2:= i2 + i1;
writeln('longint + byte: ',millisecondof(now - dt),' ms');
i3:= 1;
i2:= 0;
dt:= now;
for i:=0 to 100000000 do i2:= i2 + i3;
writeln('longint + longint: ',millisecondof(now - dt),' ms');
end.
Код: Выделить всё
int32 + int8
incl %edx
movzbl %bl,%eax
addl %esi,%eax
movl %eax,%esi
cmpl $100000000,%edx
jl .Lj11
int32 + int32
incl %edx
movl %ebx,%eax
addl %esi,%eax
movl %eax,%esi
cmpl $100000000,%edx
jl .Lj46
Код: Выделить всё
int32 + int8
.Lj11:
addl $1,%edx
movzbl %bl,%eax
addl %esi,%eax
jno .Lj14
call FPC_OVERFLOW
.Lj14:
movl %eax,%esi
cmpl $100000000,%edx
jl .Lj11
int32 + int32
.Lj47:
addl $1,%edx
movl %ebx,%eax
addl %esi,%eax
jno .Lj50
call FPC_OVERFLOW
.Lj50:
movl %eax,%esi
cmpl $100000000,%edx
jl .Lj47Код: Выделить всё
for i:=0 to 100000000 do begin
if i2 > -1 then i2:= i2 + i1;
end;
Код: Выделить всё
.Lj11:
incl %edx
cmpl $-1,%esi
jng .Lj13
movzbl %bl,%eax
addl %esi,%eax
movl %eax,%esi
.Lj13:
cmpl $100000000,%edx
jl .Lj11
Код: Выделить всё
.Lj48:
incl %edx
cmpl $-1,%esi
jng .Lj50
movl %ebx,%eax
addl %esi,%eax
movl %eax,%esi
.Lj50:
cmpl $100000000,%edx
jl .Lj48