paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:50:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduction of tcgint

Browse Source 
git-svn-id: trunk@17017 -
This commit is contained in:
florian 2011-02-26 20:15:53 +00:00
parent ef699b1864
commit fcd3872d88
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cgbase.pas
View File

@ -331,8 +331,8 @@ interface
{# From a constant numeric value, return the abstract code generator {# From a constant numeric value, return the abstract code generator
size. size.
} }
function int_cgsize(const a: aint): tcgsize;{$ifdef USEINLINE}inline;{$endif} function int_cgsize(const a: tcgint): tcgsize;{$ifdef USEINLINE}inline;{$endif}
function int_float_cgsize(const a: aint): tcgsize; function int_float_cgsize(const a: tcgint): tcgsize;
{ return the inverse condition of opcmp } { return the inverse condition of opcmp }
function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif} function inverse_opcmp(opcmp: topcmp): topcmp;{$ifdef USEINLINE}inline;{$endif}
@ -589,7 +589,7 @@ implementation
end; end;
function int_cgsize(const a: aint): tcgsize;{$ifdef USEINLINE}inline;{$endif} function int_cgsize(const a: tcgint): tcgsize;{$ifdef USEINLINE}inline;{$endif}
const const
size2cgsize : array[0..8] of tcgsize = ( size2cgsize : array[0..8] of tcgsize = (
OS_NO,OS_8,OS_16,OS_NO,OS_32,OS_NO,OS_NO,OS_NO,OS_64 OS_NO,OS_8,OS_16,OS_NO,OS_32,OS_NO,OS_NO,OS_NO,OS_64
@ -602,7 +602,7 @@ implementation
end; end;
function int_float_cgsize(const a: aint): tcgsize; function int_float_cgsize(const a: tcgint): tcgsize;
begin begin
case a of case a of
4 : 4 :

3
compiler/globtype.pas
View File

@ -86,6 +86,9 @@ interface
ASizeInt = PInt; ASizeInt = PInt;
ASizeUInt = PUInt; ASizeUInt = PUInt;
{ type used for handling constants etc. in the code generator }
TCGInt = Int64;
{ This must be an ordinal type with the same size as a pointer { This must be an ordinal type with the same size as a pointer
Note: Must be unsigned! Otherwise, ugly code like Note: Must be unsigned! Otherwise, ugly code like
pointer(-1) will result in a pointer with the value pointer(-1) will result in a pointer with the value

2
compiler/parabase.pas
View File

@ -63,7 +63,7 @@ unit parabase;
TCGPara = object TCGPara = object
Location : PCGParalocation; Location : PCGParalocation;
IntSize : aint; { size of the total location in bytes } IntSize : tcgint; { size of the total location in bytes }
Alignment : ShortInt; Alignment : ShortInt;
Size : TCGSize; { Size of the parameter included in all locations } Size : TCGSize; { Size of the parameter included in all locations }
{$ifdef powerpc} {$ifdef powerpc}