Changeset 182 for branches/virtualcpu4/UInstructionReader.pas
- Timestamp:
- Apr 13, 2019, 1:32:32 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/virtualcpu4/UInstructionReader.pas
r181 r182 14 14 TInstructionReader = class 15 15 protected 16 DataSizeLast: TBitWidth;17 DataSizePrefix: TBitWidth;18 AddrSizeLast: TBitWidth;19 AddrSizePrefix: TBitWidth;20 16 public 21 17 Cpu: TCpu; 22 18 IP: Integer; 19 Prefix: Boolean; 23 20 DataSize: TBitWidth; 21 DataSizeBase: TBitWidth; 24 22 AddrSize: TBitWidth; 23 AddrSizeBase: TBitWidth; 25 24 procedure Init; 26 25 function Read8: Byte; inline; … … 39 38 procedure TInstructionReader.Init; 40 39 begin 41 DataSize := Cpu.DataSize; 42 AddrSize := Cpu.AddrSize; 40 DataSizeBase := Cpu.DataSizeBase; 41 DataSize := DataSizeBase; 42 AddrSizeBase := Cpu.AddrSizeBase; 43 AddrSize := AddrSizeBase; 43 44 end; 44 45
Note:
See TracChangeset
for help on using the changeset viewer.