paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 02:10:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

- moved type constant

Browse Source
This commit is contained in:
carl 2002-04-07 13:41:50 +00:00
parent 6e5e687dc6
commit 4cff0f13fd
3 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i386/cpuinfo.pas
View File

@ -30,11 +30,6 @@ Type
AWord = Cardinal;
PAWord = ^AWord;
{ the ordinal type used when evaluating constant integer expressions }
TConstExprInt = int64;
{ ... the same unsigned }
TConstExprUInt = {$ifdef fpc}qword{$else}int64{$endif};
{ this must be an ordinal type with the same size as a pointer }
{ Note: must be unsigned!! Otherwise, ugly code like }
{ pointer(-1) will result in a pointer with the value }
@ -51,7 +46,10 @@ Implementation
end.
{
$Log$
Revision 1.5 2002-04-02 17:11:34 peter
Revision 1.6 2002-04-07 13:41:50 carl
- moved type constant
Revision 1.5 2002/04/02 17:11:34 peter
* tlocation,treference update
* LOC_CONSTANT added for better constant handling
* secondadd splitted in multiple routines

10
compiler/ia64/cpuinfo.pas
View File

@ -29,11 +29,6 @@ Interface
Type
AWord = QWord;
{ the ordinal type used when evaluating constant integer expressions }
TConstExprInt = int64;
{ ... the same unsigned }
TConstExprUInt = {$ifdef fpc}qword{$else}int64{$endif};
{ this must be an ordinal type with the same size as a pointer }
{ to allow some dirty type casts for example when using }
{ tconstsym.value }
@ -54,7 +49,10 @@ Implementation
end.
{
$Log$
Revision 1.2 2001-01-05 17:36:58 florian
Revision 1.3 2002-04-07 13:42:40 carl
- moved type constant
Revision 1.2 2001/01/05 17:36:58 florian
* the info about exception frames is stored now on the stack
instead on the heap

10
compiler/powerpc/cpuinfo.pas
View File

@ -22,11 +22,6 @@ Type
AWord = Dword;
Type
{ the ordinal type used when evaluating constant integer expressions }
TConstExprInt = int64;
{ ... the same unsigned }
TConstExprUInt = {$ifdef fpc}qword{$else}int64{$endif};
{ this must be an ordinal type with the same size as a pointer }
{ to allow some dirty type casts for example when using }
{ tconstsym.value }
@ -45,7 +40,10 @@ Implementation
end.
{
$Log$
Revision 1.2 2001-12-29 15:28:58 jonas
Revision 1.3 2002-04-07 13:43:11 carl
- moved type constant
Revision 1.2 2001/12/29 15:28:58 jonas
* powerpc/cgcpu.pas compiles :)
* several powerpc-related fixes
* cpuasm unit is now based on common tainst unit