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

* fixed compiling errors

Browse Source
This commit is contained in:
Jonas Maebe 2001-09-04 11:53:48 +00:00
parent ed449defca
commit 4bac905291
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/browcol.pas
View File

@ -1374,25 +1374,25 @@ end;
if Name='' then
case sym.consttyp of
constord :
Name:=sym.consttype.def.typesym.name+'('+IntToStr(sym.value)+')';
Name:=sym.consttype.def.typesym.name+'('+IntToStr(sym.valueord)+')';
constresourcestring,
conststring :
{ Name:=''''+GetStr(PString(sym.value))+'''';}
Name:=''''+StrPas(pchar(tpointerord(sym.value)))+'''';
Name:=''''+StrPas(pchar(sym.valueptr))+'''';
constreal:
Name:=FloatToStr(PBestReal(tpointerord(sym.value))^);
Name:=FloatToStr(PBestReal(sym.valueptr)^);
constbool:
{ if boolean(sym.value)=true then
Name:='TRUE'
else
Name:='FALSE';}
Name:='Longbool('+IntToStr(sym.value)+')';
Name:='Longbool('+IntToStr(sym.valueord)+')';
constint:
Name:=IntToStr(sym.value);
Name:=IntToStr(sym.valueord);
constchar:
Name:=''''+chr(sym.value)+'''';
Name:=''''+chr(sym.valueord)+'''';
constset:
{ Name:=SetToStr(pnormalset(sym.value))};
{ Name:=SetToStr(pnormalset(sym.valueptr)) };
constnil: ;
end;
GetConstValueName:=Name;
@ -2125,7 +2125,10 @@ begin
end.
{
$Log$
Revision 1.20 2001-08-07 17:08:49 peter
Revision 1.21 2001-09-04 11:53:48 jonas
* fixed compiling errors
Revision 1.20 2001/08/07 17:08:49 peter
* fixed rettype->returntype renaming
Revision 1.19 2001/08/04 11:06:29 peter