Ignore:
Timestamp:
Aug 9, 2018, 9:45:07 AM (6 years ago)
Author:
chronos
Message:
  • Added: More processor instructions.
Location:
branches/virtcpu fixed int
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/virtcpu fixed int

    • Property svn:ignore

      •  

        old new  
        33virtcpu.lps
        44virtcpu.res
         5*.dbg

  • branches/virtcpu fixed int/UInstructionWriter.pas

    r163 r165  
    2626    procedure AddIn(R1, R2: Integer);
    2727    procedure AddOut(R1, R2: Integer);
    28     procedure AddJr(Addr: Integer);
     28    procedure AddJump(Addr: Integer);
     29    {$IFDEF EXT_REL_JUMP}procedure AddJr(Addr: Integer);{$ENDIF}
    2930    procedure AddInc(R: Integer);
    3031    constructor Create;
    … …  
    9495end;
    9596
     97procedure TInstructionWriter.AddJump(Addr: Integer);
     98begin
     99  Write(T(opJump));
     100  Write(Addr);
     101end;
     102
     103{$IFDEF EXT_REL_JUMP}
    96104procedure TInstructionWriter.AddJr(Addr: Integer);
    97105begin
    … …  
    99107  Write(Addr - IP - 1);
    100108end;
     109{$ENDIF}
    101110
    102111procedure TInstructionWriter.AddInc(R: Integer);
Note: See TracChangeset for help on using the changeset viewer.