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

* fix bootstrapping with 2.4.2

Browse Source 
git-svn-id: trunk@16459 -
This commit is contained in:
florian 2010-11-27 21:28:45 +00:00
parent 099df04a5e
commit b1a6ec532d
2 changed files with 36 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/symconst.pas
View File

@ -584,6 +584,42 @@ const
'public','published' 'public','published'
); );
{ !! Be sure to keep these in sync with ones in rtl/inc/varianth.inc }
varempty = 0;
varnull = 1;
varsmallint = 2;
varinteger = 3;
varsingle = 4;
vardouble = 5;
varcurrency = 6;
vardate = 7;
varolestr = 8;
vardispatch = 9;
varerror = 10;
varboolean = 11;
varvariant = 12;
varunknown = 13;
vardecimal = 14;
varshortint = 16;
varbyte = 17;
varword = 18;
varlongword = 19;
varint64 = 20;
varqword = 21;
varUndefined = -1;
varstrarg = $48;
varustrarg = $49;
varstring = $100;
varany = $101;
varustring = $102;
vardefmask = $fff;
vararray = $2000;
varbyref = $4000;
implementation implementation
end. end.

40
compiler/symdef.pas
View File

@ -799,46 +799,6 @@ implementation
fpccrc fpccrc
; ;
{****************************************************************************
Constants
****************************************************************************}
{ !! Be sure to keep these in sync with ones in rtl/inc/varianth.inc }
const
varempty = 0;
varnull = 1;
varsmallint = 2;
varinteger = 3;
varsingle = 4;
vardouble = 5;
varcurrency = 6;
vardate = 7;
varolestr = 8;
vardispatch = 9;
varerror = 10;
varboolean = 11;
varvariant = 12;
varunknown = 13;
vardecimal = 14;
varshortint = 16;
varbyte = 17;
varword = 18;
varlongword = 19;
varint64 = 20;
varqword = 21;
varUndefined = -1;
varstrarg = $48;
varustrarg = $49;
varstring = $100;
varany = $101;
varustring = $102;
vardefmask = $fff;
vararray = $2000;
varbyref = $4000;
{**************************************************************************** {****************************************************************************
Helpers Helpers
****************************************************************************} ****************************************************************************}