diff --git a/compiler/i386/cpuinfo.pas b/compiler/i386/cpuinfo.pas index 6ae44c2014..8cf1485ef7 100644 --- a/compiler/i386/cpuinfo.pas +++ b/compiler/i386/cpuinfo.pas @@ -28,7 +28,7 @@ Interface Type {# Natural integer register type and size for the target machine } - AWord = Cardinal; + AWord = longword; PAWord = ^AWord; { this must be an ordinal type with the same size as a pointer } @@ -36,8 +36,8 @@ Type { pointer(-1) will result in a pointer with the value } { $fffffffffffffff on a 32bit machine if the compiler uses } { int64 constants internally (JM) } - TConstPtrUInt = cardinal; - + TConstPtrUInt = longword; + bestreal = extended; ts32real = single; ts64real = double; @@ -77,7 +77,10 @@ Implementation end. { $Log$ - Revision 1.14 2002-09-07 15:25:10 peter + Revision 1.15 2002-09-07 20:48:43 carl + * cardinal -> longword + + Revision 1.14 2002/09/07 15:25:10 peter * old logs removed and tabs fixed Revision 1.13 2002/08/15 15:15:55 carl diff --git a/compiler/m68k/cgcpu.pas b/compiler/m68k/cgcpu.pas index 2dc8d8c5ea..d09665e880 100644 --- a/compiler/m68k/cgcpu.pas +++ b/compiler/m68k/cgcpu.pas @@ -415,7 +415,7 @@ Implementation rg.getexplicitregisterint(list,R_D1); list.concat(taicpu.op_const_reg(A_MOVE,S_L,a, R_D0)); list.concat(taicpu.op_reg_reg(A_MOVE,S_L,reg, R_D1)); - cg.a_call_name(list,'FPC_MUL_CARDINAL'); + cg.a_call_name(list,'FPC_MUL_LONGWORD'); list.concat(taicpu.op_reg_reg(A_MOVE,S_L,R_D0, reg)); rg.ungetregisterint(list,R_D0); rg.ungetregisterint(list,R_D1); @@ -619,7 +619,7 @@ Implementation rg.getexplicitregisterint(list,R_D1); list.concat(taicpu.op_reg_reg(A_MOVE,S_L,reg1, R_D0)); list.concat(taicpu.op_reg_reg(A_MOVE,S_L,reg2, R_D1)); - cg.a_call_name(list,'FPC_MUL_CARDINAL'); + cg.a_call_name(list,'FPC_MUL_LONGWORD'); list.concat(taicpu.op_reg_reg(A_MOVE,S_L,R_D0, reg2)); rg.ungetregisterint(list,R_D0); rg.ungetregisterint(list,R_D1); @@ -1234,7 +1234,10 @@ end. { $Log$ - Revision 1.6 2002-09-07 15:25:12 peter + Revision 1.7 2002-09-07 20:53:28 carl + * cardinal -> longword + + Revision 1.6 2002/09/07 15:25:12 peter * old logs removed and tabs fixed Revision 1.5 2002/08/19 18:17:48 carl diff --git a/compiler/m68k/cpuinfo.pas b/compiler/m68k/cpuinfo.pas index 32822c45eb..b2dd82e96d 100644 --- a/compiler/m68k/cpuinfo.pas +++ b/compiler/m68k/cpuinfo.pas @@ -19,7 +19,7 @@ Interface Type { Architecture word - Native unsigned type } - AWord = Cardinal; + AWord = longword; PAWord = ^AWord; { this must be an ordinal type with the same size as a pointer } @@ -29,7 +29,7 @@ Type { pointer(-1) will result in a pointer with the value } { $fffffffffffffff on a 32bit machine if the compiler uses } { int64 constants internally (JM) } - TConstPtrUInt = Cardinal; + TConstPtrUInt = longword; bestreal = real; ts32real = single; @@ -67,7 +67,10 @@ Implementation end. { $Log$ - Revision 1.4 2002-09-07 15:25:13 peter + Revision 1.5 2002-09-07 20:53:28 carl + * cardinal -> longword + + Revision 1.4 2002/09/07 15:25:13 peter * old logs removed and tabs fixed Revision 1.3 2002/08/15 15:15:55 carl diff --git a/compiler/m68k/n68kcnv.pas b/compiler/m68k/n68kcnv.pas index e7461153ae..45d8848e74 100644 --- a/compiler/m68k/n68kcnv.pas +++ b/compiler/m68k/n68kcnv.pas @@ -92,7 +92,7 @@ implementation a cardinal value. } begin - fname := 'fpc_cardinal_to_double'; + fname := 'fpc_longword_to_double'; result := ccallnode.createintern(fname,ccallparanode.create( left,nil)); left:=nil; @@ -292,7 +292,10 @@ begin end. { $Log$ - Revision 1.3 2002-09-07 15:25:13 peter + Revision 1.4 2002-09-07 20:53:28 carl + * cardinal -> longword + + Revision 1.3 2002/09/07 15:25:13 peter * old logs removed and tabs fixed Revision 1.2 2002/08/14 19:31:26 carl diff --git a/compiler/msg/errore.msg b/compiler/msg/errore.msg index e752f874a7..7f608499f3 100644 --- a/compiler/msg/errore.msg +++ b/compiler/msg/errore.msg @@ -1086,18 +1086,18 @@ type_e_array_required=04033_E_Array type required % If you are accessing a variable using an index '[]' then % the type must be an array. In FPC mode also a pointer is allowed. type_e_interface_type_expected=04034_E_interface type expected, but got "$1" -type_w_mixed_signed_unsigned=04035_W_Mixing signed expressions and cardinals gives a 64bit result -% If you divide (or calculate the modulus of) a signed expression by a cardinal (or vice versa), +type_w_mixed_signed_unsigned=04035_W_Mixing signed expressions and longwords gives a 64bit result +% If you divide (or calculate the modulus of) a signed expression by a longword (or vice versa), % or if you have overflow and/or range checking turned on and use an arithmetical -% expression (+, -, *, div, mod) in which both signed numbers and cardinals appear, +% expression (+, -, *, div, mod) in which both signed numbers and longwords appear, % then everything has to be evaluated in 64bit which is slower than normal % 32bit arithmetics. You can avoid this by typecasting one operand so it % matches the resulttype of the other one. type_w_mixed_signed_unsigned2=04036_W_Mixing signed expressions and cardinals here may cause a range check error % If you use a binary operator (and, or, xor) and one of -% the operands is a cardinal while the other one is a signed expression, then, +% the operands is a longword while the other one is a signed expression, then, % if range checking is turned on, you may get a range check error because in -% such a case both operands are converted to cardinal before the operation is +% such a case both operands are converted to longword before the operation is % carried out. You can avoid this by typecasting one operand so it % matches the resulttype of the other one. type_e_typecast_wrong_size_for_assignment=04037_E_Typecast has different size ($1 -> $2) in assignment diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas index 628fd1ec64..de6a97884c 100644 --- a/compiler/ncnv.pas +++ b/compiler/ncnv.pas @@ -1435,7 +1435,7 @@ implementation if is_signed(left.resulttype.def) then fname := 'fpc_longint_to_'+typname else - fname := 'fpc_cardinal_to_'+typname; + fname := 'fpc_longword_to_'+typname; result := ccallnode.createintern(fname,ccallparanode.create( left,nil)); left:=nil; @@ -2037,7 +2037,10 @@ begin end. { $Log$ - Revision 1.79 2002-09-07 15:25:03 peter + Revision 1.80 2002-09-07 20:40:23 carl + * cardinal -> longword + + Revision 1.79 2002/09/07 15:25:03 peter * old logs removed and tabs fixed Revision 1.78 2002/09/07 12:16:04 carl diff --git a/compiler/ninl.pas b/compiler/ninl.pas index c560647507..4630da06e3 100644 --- a/compiler/ninl.pas +++ b/compiler/ninl.pas @@ -243,7 +243,7 @@ implementation else case torddef(source.resulttype.def).typ of u32bit: - procname := procname + 'cardinal'; + procname := procname + 'longword'; u64bit: procname := procname + 'qword'; s64bit: @@ -2376,7 +2376,10 @@ begin end. { $Log$ - Revision 1.86 2002-09-07 12:16:04 carl + Revision 1.87 2002-09-07 20:42:16 carl + * cardinal -> longword + + Revision 1.86 2002/09/07 12:16:04 carl * second part bug report 1996 fix, testrange in cordconstnode only called if option is set (also make parsing a tiny faster) diff --git a/compiler/powerpc/cpuinfo.pas b/compiler/powerpc/cpuinfo.pas index 545660f75c..66765f03df 100644 --- a/compiler/powerpc/cpuinfo.pas +++ b/compiler/powerpc/cpuinfo.pas @@ -19,7 +19,7 @@ Interface Type { Architecture word - Native unsigned type } - AWord = Cardinal; + AWord = Longword; PAWord = ^AWord; { this must be an ordinal type with the same size as a pointer } @@ -29,7 +29,7 @@ Type { pointer(-1) will result in a pointer with the value } { $fffffffffffffff on a 32bit machine if the compiler uses } { int64 constants internally (JM) } - TConstPtrUInt = Cardinal; + TConstPtrUInt = Longword; bestreal = double; ts32real = single; @@ -67,7 +67,10 @@ Implementation end. { $Log$ - Revision 1.11 2002-09-07 15:25:14 peter + Revision 1.12 2002-09-07 20:57:08 carl + * cardinal -> longword + + Revision 1.11 2002/09/07 15:25:14 peter * old logs removed and tabs fixed Revision 1.10 2002/08/15 15:15:55 carl diff --git a/compiler/psystem.pas b/compiler/psystem.pas index 610774e8a9..8c47684ea4 100644 --- a/compiler/psystem.pas +++ b/compiler/psystem.pas @@ -152,7 +152,7 @@ implementation addtype('Char',cchartype); addtype('WideChar',cwidechartype); adddef('Text',tfiledef.createtext); - addtype('Cardinal',u32bittype); + addtype('Longword',u32bittype); addtype('QWord',cu64bittype); addtype('Int64',cs64bittype); adddef('TypedFile',tfiledef.createtyped(voidtype)); @@ -268,7 +268,7 @@ implementation voidtype.setdef(torddef.create(uvoid,0,0)); u8bittype.setdef(torddef.create(u8bit,0,255)); u16bittype.setdef(torddef.create(u16bit,0,65535)); - u32bittype.setdef(torddef.create(u32bit,0,high(cardinal))); + u32bittype.setdef(torddef.create(u32bit,0,high(longword))); s32bittype.setdef(torddef.create(s32bit,low(longint),high(longint))); cu64bittype.setdef(torddef.create(u64bit,low(qword),TConstExprInt(high(qword)))); cs64bittype.setdef(torddef.create(s64bit,low(int64),high(int64))); @@ -469,7 +469,10 @@ implementation end. { $Log$ - Revision 1.38 2002-08-23 13:11:11 mazen + Revision 1.39 2002-09-07 20:46:10 carl + * cardinal -> longword + + Revision 1.38 2002/08/23 13:11:11 mazen fixed compilation problem related to tai_labeled_instruction Revision 1.37 2002/08/18 20:06:25 peter diff --git a/compiler/sparc/cpuinfo.pas b/compiler/sparc/cpuinfo.pas index a76c6aaca1..0fb37cd2b8 100644 --- a/compiler/sparc/cpuinfo.pas +++ b/compiler/sparc/cpuinfo.pas @@ -33,7 +33,7 @@ UNIT cpuinfo; INTERFACE TYPE {# Natural integer register type and size for the target machine } - AWord=Cardinal; + AWord=Longword; PAWord=^AWord; { the ordinal type used when evaluating constant integer expressions } TConstExprInt=int64;