paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-28 09:20:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* store lower set bound in a setdef

Browse Source
This commit is contained in:
florian 2025-05-13 22:56:09 +02:00
parent 1bbce99395
commit 5462dd388b
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -48,7 +48,7 @@ const
CurrentPPUVersion = 208;
{ for any other changes to the ppu format, increase this version number
(it's a cardinal) }
CurrentPPULongVersion = 28;
CurrentPPULongVersion = 29;
{ unit flags }
uf_big_endian = $000004;

5
compiler/symdef.pas
View File

@ -1090,7 +1090,7 @@ interface
elementdef : tdef;
elementdefderef : tderef;
setbase,
setmax : asizeint;
setlow,setmax : asizeint;
constructor create(def: tdef; low, high: asizeint; doregister: boolean);virtual;
constructor ppuload(ppufile:tcompilerppufile);
function getcopy : tstoreddef;override;
@ -4228,6 +4228,7 @@ implementation
elementdef:=def;
elementdefderef.reset;
setmax:=high;
setlow:=low;
actual_setalloc:=current_settings.setalloc;
{$if defined(cpu8bitalu) or defined(cpu16bitalu)}
if actual_setalloc=0 then
@ -4263,6 +4264,7 @@ implementation
ppufile.getderef(elementdefderef);
savesize:=ppufile.getasizeint;
setbase:=ppufile.getasizeint;
setlow:=ppufile.getasizeint;
setmax:=ppufile.getasizeint;
ppuload_platform(ppufile);
end;
@ -4282,6 +4284,7 @@ implementation
ppufile.putderef(elementdefderef);
ppufile.putasizeint(savesize);
ppufile.putasizeint(setbase);
ppufile.putasizeint(setlow);
ppufile.putasizeint(setmax);
writeentry(ppufile,ibsetdef);
end;