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

* fixed currency size

Browse Source
This commit is contained in:
florian 2002-09-16 09:31:10 +00:00
parent 77b18bfd67
commit 685b7f4896
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -1916,8 +1916,9 @@ implementation
begin
case typ of
s32real : savesize:=4;
s64real : savesize:=8;
s80real : savesize:=extended_size;
s64real,
s64currency,
s64comp : savesize:=8;
else
savesize:=0;
@ -5541,7 +5542,10 @@ implementation
end.
{
$Log$
Revision 1.94 2002-09-09 17:34:15 peter
Revision 1.95 2002-09-16 09:31:10 florian
* fixed currency size
Revision 1.94 2002/09/09 17:34:15 peter
* tdicationary.replace added to replace and item in a dictionary. This
is only allowed for the same name
* varsyms are inserted in symtable before the types are parsed. This