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

+ constsym with type=constguid can be written to ppu now,

Browse Source 
fixes web bug #1820
This commit is contained in:
florian 2002-09-26 12:04:53 +00:00
parent 344d688209
commit e1c908703a
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/symsym.pas
View File

@ -2016,6 +2016,11 @@ implementation
ppufile.getnormalset(ps^); ppufile.getnormalset(ps^);
valueptr:=ps; valueptr:=ps;
end; end;
constguid :
begin
new(pguid(valueptr));
ppufile.getdata(valueptr^,sizeof(tguid));
end;
constnil : ; constnil : ;
else else
Message1(unit_f_ppu_invalid_entry,tostr(ord(consttyp))); Message1(unit_f_ppu_invalid_entry,tostr(ord(consttyp)));
@ -2033,6 +2038,8 @@ implementation
dispose(pbestreal(valueptr)); dispose(pbestreal(valueptr));
constset : constset :
dispose(pnormalset(valueptr)); dispose(pnormalset(valueptr));
constguid :
dispose(pguid(valueptr));
end; end;
inherited destroy; inherited destroy;
end; end;
@ -2087,6 +2094,8 @@ implementation
ppufile.puttype(consttype); ppufile.puttype(consttype);
ppufile.putnormalset(valueptr^); ppufile.putnormalset(valueptr^);
end; end;
constguid :
ppufile.putdata(valueptr^,sizeof(tguid));
else else
internalerror(13); internalerror(13);
end; end;
@ -2497,7 +2506,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.66 2002-09-16 14:11:13 peter Revision 1.67 2002-09-26 12:04:53 florian
+ constsym with type=constguid can be written to ppu now,
fixes web bug 1820
Revision 1.66 2002/09/16 14:11:13 peter
* add argument to equal_paras() to support default values or not * add argument to equal_paras() to support default values or not
Revision 1.65 2002/09/09 17:34:16 peter Revision 1.65 2002/09/09 17:34:16 peter