From 47ba80a54525b5ef8662f28282e4ccd73fc7d698 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 7 Jun 2020 23:05:13 +0000
Subject: [PATCH] * the len parameter of TObjData.writebytes changed to
 TObjSectionOfs to avoid 8-bit truncation on Z80

git-svn-id: trunk@45620 -
---
 compiler/ogbase.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index 3100807471..90374fe2c3 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -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);