diff options
author | tom_at_work <tom_at_work@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-02-08 22:11:27 +0000 |
---|---|---|
committer | tom_at_work <tom_at_work@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2007-02-08 22:11:27 +0000 |
commit | e9d59ade4f403ed6fcc11939ecf9dd1164de33ea (patch) | |
tree | 80a4f72cc39c456f815bb8de21201e016034cfc0 /compiler/symsym.pas | |
parent | a3262c5a52444698d17bebf76a4da25a376396b2 (diff) | |
download | fpc-e9d59ade4f403ed6fcc11939ecf9dd1164de33ea.tar.gz |
* fix incorrect generation of huge static arrays on 64 bit systems; however, GAS only supports 2^31-1 sized ones
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@6382 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/symsym.pas')
-rw-r--r-- | compiler/symsym.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/symsym.pas b/compiler/symsym.pas index 68d851a305..2c9859fc84 100644 --- a/compiler/symsym.pas +++ b/compiler/symsym.pas @@ -129,7 +129,7 @@ interface procedure ppuwrite(ppufile:tcompilerppufile);override; procedure buildderef;override; procedure deref;override; - function getsize : longint; + function getsize : aint; function getpackedbitsize : longint; function is_regvar(refpara: boolean):boolean; procedure trigger_notifications(what:Tnotification_flag); @@ -231,7 +231,7 @@ interface constructor create(const n : string); destructor destroy;override; constructor ppuload(ppufile:tcompilerppufile); - function getsize : longint; + function getsize : aint; procedure ppuwrite(ppufile:tcompilerppufile);override; procedure buildderef;override; procedure deref;override; @@ -880,7 +880,7 @@ implementation end; - function tpropertysym.getsize : longint; + function tpropertysym.getsize : aint; begin getsize:=0; end; @@ -971,7 +971,7 @@ implementation end; - function tabstractvarsym.getsize : longint; + function tabstractvarsym.getsize : aint; begin if assigned(vardef) and ((vardef.typ<>arraydef) or |