paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:45:58 +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 }
procedure alloc(len:TObjSectionOfs);
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 beforealloc;virtual;
procedure beforewrite;virtual;
@ -1531,7 +1531,7 @@ implementation
end;
procedure TObjData.writebytes(const Data;len:aword);
procedure TObjData.writebytes(const Data;len:TObjSectionOfs);
begin
if not assigned(CurrObjSec) then
internalerror(200402251);