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

+ Fixed cast tconstsym.value with tpointerord

Browse Source
This commit is contained in:
marco 2000-08-18 14:33:07 +00:00
parent 28af0a7223
commit 606baed8e2
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/browcol.pas
View File

@ -27,7 +27,7 @@
unit browcol;
interface
uses
cobjects,objects,symconst,symtable;
cobjects,objects,symconst,symtable,cpuinfo;
{$ifndef FPC}
type
@ -1378,9 +1378,9 @@ end;
constresourcestring,
conststring :
{ Name:=''''+GetStr(PString(sym^.Value))+'''';}
Name:=''''+StrPas(pointer(sym^.Value))+'''';
Name:=''''+StrPas(pointer(tpointerord(sym^.Value)))+'''';
constreal:
Name:=FloatToStr(PBestReal(sym^.Value)^);
Name:=FloatToStr(PBestReal(tpointerord(sym^.Value))^);
constbool:
{ if boolean(sym^.Value)=true then
Name:='TRUE'
@ -1392,7 +1392,7 @@ end;
constchar:
Name:=''''+chr(sym^.Value)+'''';
constset:
{ Name:=SetToStr(pnormalset(sym^.Value))};
{ Name:=SetToStr(pnormalset(tpointerord(sym^.Value)))};
constnil: ;
end;
GetConstValueName:=Name;
@ -2094,7 +2094,10 @@ begin
end.
{
$Log$
Revision 1.5 2000-08-18 13:18:12 pierre
Revision 1.6 2000-08-18 14:33:07 marco
+ Fixed cast tconstsym.value with tpointerord
Revision 1.5 2000/08/18 13:18:12 pierre
* restore next instead of indexnext field for dc local var in GetAbsProcParmDefStr
Revision 1.4 2000/08/16 18:33:53 peter