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

* the len parameter of TObjData.writebytes changed to TObjSectionOfs to avoid 8-bit truncation on Z80

Browse Source 
git-svn-id: trunk@45620 -
This commit is contained in:
nickysn 2020-06-07 23:05:13 +00:00
parent dfa736bdca
commit 47ba80a545
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogbase.pas
View File

@ -430,7 +430,7 @@ interface
{ Allocation } { Allocation }
procedure alloc(len:TObjSectionOfs); procedure alloc(len:TObjSectionOfs);
procedure allocalign(len:longint); procedure allocalign(len:longint);
procedure writebytes(const Data;len:aword); procedure writebytes(const Data;len:TObjSectionOfs);
procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);virtual;abstract; procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);virtual;abstract;
procedure beforealloc;virtual; procedure beforealloc;virtual;
procedure beforewrite;virtual; procedure beforewrite;virtual;
@ -1531,7 +1531,7 @@ implementation
end; end;
procedure TObjData.writebytes(const Data;len:aword); procedure TObjData.writebytes(const Data;len:TObjSectionOfs);
begin begin
if not assigned(CurrObjSec) then if not assigned(CurrObjSec) then
internalerror(200402251); internalerror(200402251);