paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 23:06:07 +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; unit browcol;
interface interface
uses uses
cobjects,objects,symconst,symtable; cobjects,objects,symconst,symtable,cpuinfo;
{$ifndef FPC} {$ifndef FPC}
type type
@ -1378,9 +1378,9 @@ end;
constresourcestring, constresourcestring,
conststring : conststring :
{ Name:=''''+GetStr(PString(sym^.Value))+'''';} { Name:=''''+GetStr(PString(sym^.Value))+'''';}
Name:=''''+StrPas(pointer(sym^.Value))+''''; Name:=''''+StrPas(pointer(tpointerord(sym^.Value)))+'''';
constreal: constreal:
Name:=FloatToStr(PBestReal(sym^.Value)^); Name:=FloatToStr(PBestReal(tpointerord(sym^.Value))^);
constbool: constbool:
{ if boolean(sym^.Value)=true then { if boolean(sym^.Value)=true then
Name:='TRUE' Name:='TRUE'
@ -1392,7 +1392,7 @@ end;
constchar: constchar:
Name:=''''+chr(sym^.Value)+''''; Name:=''''+chr(sym^.Value)+'''';
constset: constset:
{ Name:=SetToStr(pnormalset(sym^.Value))}; { Name:=SetToStr(pnormalset(tpointerord(sym^.Value)))};
constnil: ; constnil: ;
end; end;
GetConstValueName:=Name; GetConstValueName:=Name;
@ -2094,7 +2094,10 @@ begin
end. end.
{ {
$Log$ $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 * restore next instead of indexnext field for dc local var in GetAbsProcParmDefStr
Revision 1.4 2000/08/16 18:33:53 peter Revision 1.4 2000/08/16 18:33:53 peter