diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 16:40:21 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 16:40:21 +0000 |
| commit | 6a160a2b7a9e28d6f193cb405afc4edf299ba1bb (patch) | |
| tree | a2360f94c9c666150f754adbf062f790aee0f3a0 | |
| parent | de4a779e10d5fd70bcb8267db670baed9e7c2064 (diff) | |
| download | fpc-6a160a2b7a9e28d6f193cb405afc4edf299ba1bb.tar.gz | |
- removed commented out code from tcgz80.a_load_reg_cgpara
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45108 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/z80/cgcpu.pas | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/compiler/z80/cgcpu.pas b/compiler/z80/cgcpu.pas index ad38313567..6c73725572 100644 --- a/compiler/z80/cgcpu.pas +++ b/compiler/z80/cgcpu.pas @@ -291,43 +291,6 @@ unit cgcpu; else internalerror(2020040801); end; -{ if tcgsize2size[cgpara.Size] > 2 then - begin - if tcgsize2size[cgpara.Size] <> 4 then - internalerror(2013031101); - if cgpara.location^.Next = nil then - begin - if tcgsize2size[cgpara.location^.size] <> 4 then - internalerror(2013031101); - end - else - begin - if tcgsize2size[cgpara.location^.size] <> 2 then - internalerror(2013031101); - if tcgsize2size[cgpara.location^.Next^.size] <> 2 then - internalerror(2013031101); - if cgpara.location^.Next^.Next <> nil then - internalerror(2013031101); - end; - - if tcgsize2size[cgpara.size]>cgpara.alignment then - pushsize:=cgpara.size - else - pushsize:=int_cgsize(cgpara.alignment); - pushsize2 := int_cgsize(tcgsize2size[pushsize] - 2); - list.concat(taicpu.op_reg(A_PUSH,TCgsize2opsize[pushsize2],makeregsize(list,GetNextReg(r),pushsize2))); - list.concat(taicpu.op_reg(A_PUSH,S_W,makeregsize(list,r,OS_16))); - end - else - begin - cgpara.check_simple_location; - if tcgsize2size[cgpara.location^.size]>cgpara.alignment then - pushsize:=cgpara.location^.size - else - pushsize:=int_cgsize(cgpara.alignment); - list.concat(taicpu.op_reg(A_PUSH,TCgsize2opsize[pushsize],makeregsize(list,r,pushsize))); - end;} - end else begin |