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

* preserve opsize

Browse Source 
git-svn-id: trunk@5555 -
This commit is contained in:
florian 2006-12-07 20:42:59 +00:00
parent 84726ed76c
commit 6d2e5027b3
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/m68k/ra68k.pas
View File

@ -35,7 +35,7 @@ unit ra68k;
Tm68kInstruction=class(TInstruction)
opsize : topsize;
// function ConcatInstruction(p : TAsmList):tai;override;
function ConcatInstruction(p : TAsmList):tai;override;
function ConcatLabeledInstr(p : TAsmList):tai;
end;
@ -48,6 +48,13 @@ unit ra68k;
TM68kInstruction
*****************************************************************************}
function TM68kInstruction.ConcatInstruction(p : TAsmList):tai;
var
ai : taicpu;
begin
ai:=taicpu(inherited ConcatInstruction(p));
ai.opsize:=opsize;
end;
{
function TM68kInstruction.ConcatInstruction(p : TAsmList):tai;
var