Changeset 11


Ignore:
Timestamp:
Aug 7, 2024, 12:35:37 AM (4 months ago)
Author:
chronos
Message:
  • Modified: Updated Common package.
  • Fixed: Wrong return address from CALL instruction.
Location:
branches/ByteArray
Files:
74 added
70 deleted
21 edited

Legend:

Unmodified
Added
Removed

  • branches/ByteArray

    • Property svn:ignore

      •  

        old new  
        55ByteArray.lps
        66ByteArray.res
         7ByteArray.exe

  • branches/ByteArray/Assembler.pas

    r10 r11  
    55uses
    66  Classes, SysUtils, Instructions, Cpu, Generics.Collections, Int,
    7   Memory, Message, Parser;
     7  IntMemory, Message, Parser;
    88
    99type

  • branches/ByteArray/ByteArray.lpi

    r9 r11  
    102102      </Unit>
    103103      <Unit>
    104         <Filename Value="Devices/Memory.pas"/>
     104        <Filename Value="Devices/IntMemory.pas"/>
    105105        <IsPartOfProject Value="True"/>
    106106      </Unit>
    … …  
    199199      </Unit>
    200200      <Unit>
    201         <Filename Value="Common.pas"/>
     201        <Filename Value="Utils.pas"/>
    202202        <IsPartOfProject Value="True"/>
    203203      </Unit>

  • branches/ByteArray/ByteArray.lpr

    r9 r11  
    1010  Interfaces, SysUtils,// this includes the LCL widgetset
    1111  Forms, FormConsole, FormDevice, FormScreen, FormDisassembler,
    12   FormAssembler, Cpu, BigInt, Channel, Common.Memory, FrameBuffer, Device,
     12  FormAssembler, Cpu, BigInt, Channel, Memory, FrameBuffer, Device,
    1313  Storage, DeviceMapper, Machine, Disassembler, Instructions, Parser, Message,
    1414  Assembler, Serial, Mouse, FormSourceEditor, FormMessages, FormMemory,
    15   FormStorage, Common, FormSettings, Core, FormDebugger, VarInt, Int
     15  FormStorage, Utils, FormSettings, Core, FormDebugger, VarInt, Int
    1616  { you can add units after this };
    1717

  • branches/ByteArray/Core.pas

    r10 r11  
    44
    55uses
    6   Classes, SysUtils, Machine, ActnList, Forms, Common.PersistentForm,
    7   Common.ApplicationInfo, Common.RegistryEx, Common.Translator, Common.Theme,
     6  Classes, SysUtils, Machine, ActnList, Forms, PersistentForm,
     7  ApplicationInfo, RegistryEx, Translator, Theme,
    88  FormConsole, FormScreen, FormSourceEditor, FormMemory, FormDisassembler,
    99  FormStorage, FormDebugger;
    … …  
    7777
    7878uses
    79   BigInt, Cpu, Common.FormEx, FormSettings, Common.FormAbout;
     79  BigInt, Cpu, FormEx, FormSettings, FormAbout;
    8080
    8181{ TCore }

  • branches/ByteArray/Cpu.pas

    r10 r11  
    392392
    393393procedure TCpu.InstructionCall;
    394 begin
     394var
     395  NewAddress: TInt;
     396begin
     397  NewAddress := Read(AddressWidth);
    395398  Push(PC, AddressWidth);
    396   PC := Read(AddressWidth);
     399  PC := NewAddress;
    397400end;
    398401

  • branches/ByteArray/Devices/Device.pas

    r9 r11  
    44
    55uses
    6   Classes, SysUtils, Channel, Forms, Int, Common.FormEx, Generics.Collections;
     6  Classes, SysUtils, Channel, Forms, Int, FormEx, Generics.Collections;
    77
    88type

  • branches/ByteArray/Devices/FrameBuffer.pas

    r9 r11  
    44
    55uses
    6   Classes, SysUtils, Device, Channel, Memory, Int;
     6  Classes, SysUtils, Device, Channel, IntMemory, Int;
    77
    88type

  • branches/ByteArray/Disassembler.pas

    r5 r11  
    44
    55uses
    6   Classes, SysUtils, Cpu, Instructions, StrUtils, Memory, BigInt;
     6  Classes, SysUtils, Cpu, Instructions, StrUtils, IntMemory, BigInt;
    77
    88type

  • branches/ByteArray/Forms/FormAssembler.pas

    r5 r11  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, SynEdit,
    7   SynHighlighterAny, SynHighlighterMulti, Common.FormEx, Generics.Collections;
     7  SynHighlighterAny, SynHighlighterMulti, FormEx, Generics.Collections;
    88
    99type

  • branches/ByteArray/Forms/FormDebugger.pas

    r5 r11  
    44
    55uses
    6   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Common.FormEx;
     6  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, FormEx;
    77
    88type

  • branches/ByteArray/Forms/FormMemory.pas

    r10 r11  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
    7   Menus, Memory, Common.FormEx;
     7  Menus, IntMemory, FormEx;
    88
    99type

  • branches/ByteArray/Forms/FormMessages.pas

    r5 r11  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   Generics.Collections, Message, Common.FormEx;
     7  Generics.Collections, Message, FormEx;
    88
    99type

  • branches/ByteArray/Forms/FormSettings.pas

    r5 r11  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   Common.FormEx;
     7  FormEx;
    88
    99type
    … …  
    3939
    4040uses
    41   Core, Common.Theme, Common.Languages;
     41  Core, Theme, Languages;
    4242
    4343{ TFormSettings }

  • branches/ByteArray/Forms/FormSourceEditor.pas

    r5 r11  
    55uses
    66  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus,
    7   ActnList, FormMessages, FormAssembler, Project, Common.FormEx, Assembler,
    8   Machine, Memory;
     7  ActnList, FormMessages, FormAssembler, Project, FormEx, Assembler,
     8  Machine, IntMemory;
    99
    1010type
    … …  
    9494
    9595uses
    96   Common, Core;
     96  Utils, Core;
    9797
    9898{ TFormSourceEditor }

  • branches/ByteArray/Languages/ByteArray.cs.po

    r10 r11  
    109109msgstr "Časovač"
    110110
    111 #: memory.soutofrange
    112 msgctxt "memory.soutofrange"
     111#: intmemory.soutofrange
     112#, fuzzy
     113msgctxt "intmemory.soutofrange"
    113114msgid "Address out of range."
    114115msgstr "Adresa mimo rozsah."

  • branches/ByteArray/Languages/ByteArray.pot

    r10 r11  
    9999msgstr ""
    100100
    101 #: memory.soutofrange
    102 msgctxt "memory.soutofrange"
     101#: intmemory.soutofrange
     102msgctxt "intmemory.soutofrange"
    103103msgid "Address out of range."
    104104msgstr ""

  • branches/ByteArray/Machine.pas

    r9 r11  
    44
    55uses
    6   Classes, SysUtils, Cpu, Memory, FrameBuffer, DeviceMapper, Storage, Serial;
     6  Classes, SysUtils, Cpu, IntMemory, FrameBuffer, DeviceMapper, Storage, Serial;
    77
    88type

  • branches/ByteArray/Packages/Common/Common.lpk

    r5 r11  
    4545    <Files Count="36">
    4646      <Item1>
    47         <Filename Value="Common.StopWatch.pas"/>
    48         <UnitName Value="Common.StopWatch"/>
     47        <Filename Value="StopWatch.pas"/>
     48        <UnitName Value="StopWatch"/>
    4949      </Item1>
    5050      <Item2>
    51         <Filename Value="Common.Utils.pas"/>
    52         <UnitName Value="Common.Utils"/>
     51        <Filename Value="Common.pas"/>
     52        <UnitName Value="Common"/>
    5353      </Item2>
    5454      <Item3>
    55         <Filename Value="Common.DebugLog.pas"/>
    56         <HasRegisterProc Value="True"/>
    57         <UnitName Value="Common.DebugLog"/>
     55        <Filename Value="DebugLog.pas"/>
     56        <HasRegisterProc Value="True"/>
     57        <UnitName Value="DebugLog"/>
    5858      </Item3>
    5959      <Item4>
    … …  
    6262      </Item4>
    6363      <Item5>
    64         <Filename Value="Common.PrefixMultiplier.pas"/>
    65         <HasRegisterProc Value="True"/>
    66         <UnitName Value="Common.PrefixMultiplier"/>
     64        <Filename Value="PrefixMultiplier.pas"/>
     65        <HasRegisterProc Value="True"/>
     66        <UnitName Value="PrefixMultiplier"/>
    6767      </Item5>
    6868      <Item6>
    69         <Filename Value="Common.URI.pas"/>
    70         <UnitName Value="Common.URI"/>
     69        <Filename Value="URI.pas"/>
     70        <UnitName Value="URI"/>
    7171      </Item6>
    7272      <Item7>
    73         <Filename Value="Common.Threading.pas"/>
    74         <UnitName Value="Common.Threading"/>
     73        <Filename Value="Threading.pas"/>
     74        <UnitName Value="Threading"/>
    7575      </Item7>
    7676      <Item8>
    77         <Filename Value="Common.Memory.pas"/>
    78         <UnitName Value="Common.Memory"/>
     77        <Filename Value="Memory.pas"/>
     78        <UnitName Value="Memory"/>
    7979      </Item8>
    8080      <Item9>
    81         <Filename Value="Common.ResetableThread.pas"/>
    82         <UnitName Value="Common.ResetableThread"/>
     81        <Filename Value="ResetableThread.pas"/>
     82        <UnitName Value="ResetableThread"/>
    8383      </Item9>
    8484      <Item10>
    85         <Filename Value="Common.Pool.pas"/>
    86         <UnitName Value="Common.Pool"/>
     85        <Filename Value="Pool.pas"/>
     86        <UnitName Value="Pool"/>
    8787      </Item10>
    8888      <Item11>
    89         <Filename Value="Common.LastOpenedList.pas"/>
    90         <HasRegisterProc Value="True"/>
    91         <UnitName Value="Common.LastOpenedList"/>
     89        <Filename Value="LastOpenedList.pas"/>
     90        <HasRegisterProc Value="True"/>
     91        <UnitName Value="LastOpenedList"/>
    9292      </Item11>
    9393      <Item12>
    94         <Filename Value="Common.RegistryEx.pas"/>
    95         <UnitName Value="Common.RegistryEx"/>
     94        <Filename Value="RegistryEx.pas"/>
     95        <UnitName Value="RegistryEx"/>
    9696      </Item12>
    9797      <Item13>
    98         <Filename Value="Common.JobProgressView.pas"/>
    99         <HasRegisterProc Value="True"/>
    100         <UnitName Value="Common.JobProgressView"/>
     98        <Filename Value="JobProgressView.pas"/>
     99        <HasRegisterProc Value="True"/>
     100        <UnitName Value="JobProgressView"/>
    101101      </Item13>
    102102      <Item14>
    103         <Filename Value="Common.XML.pas"/>
    104         <UnitName Value="Common.XML"/>
     103        <Filename Value="XML.pas"/>
     104        <UnitName Value="XML"/>
    105105      </Item14>
    106106      <Item15>
    107         <Filename Value="Common.ApplicationInfo.pas"/>
    108         <HasRegisterProc Value="True"/>
    109         <UnitName Value="Common.ApplicationInfo"/>
     107        <Filename Value="ApplicationInfo.pas"/>
     108        <HasRegisterProc Value="True"/>
     109        <UnitName Value="ApplicationInfo"/>
    110110      </Item15>
    111111      <Item16>
    112         <Filename Value="Common.SyncCounter.pas"/>
    113         <UnitName Value="Common.SyncCounter"/>
     112        <Filename Value="SyncCounter.pas"/>
     113        <UnitName Value="SyncCounter"/>
    114114      </Item16>
    115115      <Item17>
    116         <Filename Value="Common.ListViewSort.pas"/>
    117         <HasRegisterProc Value="True"/>
    118         <UnitName Value="Common.ListViewSort"/>
     116        <Filename Value="ListViewSort.pas"/>
     117        <HasRegisterProc Value="True"/>
     118        <UnitName Value="ListViewSort"/>
    119119      </Item17>
    120120      <Item18>
    121         <Filename Value="Common.PersistentForm.pas"/>
    122         <HasRegisterProc Value="True"/>
    123         <UnitName Value="Common.PersistentForm"/>
     121        <Filename Value="PersistentForm.pas"/>
     122        <HasRegisterProc Value="True"/>
     123        <UnitName Value="PersistentForm"/>
    124124      </Item18>
    125125      <Item19>
    126         <Filename Value="Common.FindFile.pas"/>
    127         <HasRegisterProc Value="True"/>
    128         <UnitName Value="Common.FindFile"/>
     126        <Filename Value="FindFile.pas"/>
     127        <HasRegisterProc Value="True"/>
     128        <UnitName Value="FindFile"/>
    129129      </Item19>
    130130      <Item20>
    131         <Filename Value="Common.ScaleDPI.pas"/>
    132         <HasRegisterProc Value="True"/>
    133         <UnitName Value="Common.ScaleDPI"/>
     131        <Filename Value="ScaleDPI.pas"/>
     132        <HasRegisterProc Value="True"/>
     133        <UnitName Value="ScaleDPI"/>
    134134      </Item20>
    135135      <Item21>
    136         <Filename Value="Common.Theme.pas"/>
    137         <HasRegisterProc Value="True"/>
    138         <UnitName Value="Common.Theme"/>
     136        <Filename Value="Theme.pas"/>
     137        <HasRegisterProc Value="True"/>
     138        <UnitName Value="Theme"/>
    139139      </Item21>
    140140      <Item22>
    141         <Filename Value="Common.StringTable.pas"/>
    142         <UnitName Value="Common.StringTable"/>
     141        <Filename Value="StringTable.pas"/>
     142        <UnitName Value="StringTable"/>
    143143      </Item22>
    144144      <Item23>
    145         <Filename Value="Common.MetaCanvas.pas"/>
    146         <UnitName Value="Common.MetaCanvas"/>
     145        <Filename Value="MetaCanvas.pas"/>
     146        <UnitName Value="MetaCanvas"/>
    147147      </Item23>
    148148      <Item24>
    149         <Filename Value="Common.Geometric.pas"/>
    150         <UnitName Value="Common.Geometric"/>
     149        <Filename Value="Geometric.pas"/>
     150        <UnitName Value="Geometric"/>
    151151      </Item24>
    152152      <Item25>
    153         <Filename Value="Common.Translator.pas"/>
    154         <HasRegisterProc Value="True"/>
    155         <UnitName Value="Common.Translator"/>
     153        <Filename Value="Translator.pas"/>
     154        <HasRegisterProc Value="True"/>
     155        <UnitName Value="Translator"/>
    156156      </Item25>
    157157      <Item26>
    158         <Filename Value="Common.Languages.pas"/>
    159         <UnitName Value="Common.Languages"/>
     158        <Filename Value="Languages.pas"/>
     159        <UnitName Value="Languages"/>
    160160      </Item26>
    161161      <Item27>
    162         <Filename Value="Common.PixelPointer.pas"/>
    163         <UnitName Value="Common.PixelPointer"/>
     162        <Filename Value="PixelPointer.pas"/>
     163        <UnitName Value="PixelPointer"/>
    164164      </Item27>
    165165      <Item28>
    166         <Filename Value="Common.DataFile.pas"/>
    167         <UnitName Value="Common.DataFile"/>
     166        <Filename Value="DataFile.pas"/>
     167        <UnitName Value="DataFile"/>
    168168      </Item28>
    169169      <Item29>
    170         <Filename Value="Common.TestCase.pas"/>
    171         <UnitName Value="Common.TestCase"/>
     170        <Filename Value="TestCase.pas"/>
     171        <UnitName Value="TestCase"/>
    172172      </Item29>
    173173      <Item30>
    174         <Filename Value="Common.Generics.pas"/>
    175         <UnitName Value="Common.Generics"/>
     174        <Filename Value="Generics.pas"/>
     175        <UnitName Value="Generics"/>
    176176      </Item30>
    177177      <Item31>
    … …  
    181181      </Item31>
    182182      <Item32>
    183         <Filename Value="Common.Table.pas"/>
    184         <UnitName Value="Common.Table"/>
     183        <Filename Value="Table.pas"/>
     184        <UnitName Value="Table"/>
    185185      </Item32>
    186186      <Item33>
    187         <Filename Value="Common.FormEx.pas"/>
    188         <HasRegisterProc Value="True"/>
    189         <UnitName Value="Common.FormEx"/>
     187        <Filename Value="FormEx.pas"/>
     188        <HasRegisterProc Value="True"/>
     189        <UnitName Value="FormEx"/>
    190190      </Item33>
    191191      <Item34>
    192         <Filename Value="Forms\Common.FormTests.pas"/>
    193         <UnitName Value="Common.FormTests"/>
     192        <Filename Value="Forms\FormTests.pas"/>
     193        <UnitName Value="FormTests"/>
    194194      </Item34>
    195195      <Item35>
    196         <Filename Value="Forms\Common.FormTest.pas"/>
    197         <UnitName Value="Common.FormTest"/>
     196        <Filename Value="Forms\FormTest.pas"/>
     197        <UnitName Value="FormTest"/>
    198198      </Item35>
    199199      <Item36>
    200         <Filename Value="Forms\Common.FormAbout.pas"/>
    201         <UnitName Value="Common.FormAbout"/>
     200        <Filename Value="Forms\FormAbout.pas"/>
     201        <UnitName Value="FormAbout"/>
    202202      </Item36>
    203203    </Files>

  • branches/ByteArray/Packages/Common/CommonPackage.pas

    r5 r11  
    99
    1010uses
    11   Common.StopWatch, Common.Utils, Common.DebugLog, Common.Delay,
    12   Common.PrefixMultiplier, Common.URI, Common.Threading, Common.Memory,
    13   Common.ResetableThread, Common.Pool, Common.LastOpenedList,
    14   Common.RegistryEx, Common.JobProgressView, Common.XML,
    15   Common.ApplicationInfo, Common.SyncCounter, Common.ListViewSort,
    16   Common.PersistentForm, Common.FindFile, Common.ScaleDPI, Common.Theme,
    17   Common.StringTable, Common.MetaCanvas, Common.Geometric, Common.Translator,
    18   Common.Languages, Common.PixelPointer, Common.DataFile, Common.TestCase,
    19   Common.Generics, Common.Table, Common.FormEx, Common.FormTests,
    20   Common.FormTest, Common.FormAbout, LazarusPackageIntf;
     11  StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading,
     12  Memory, ResetableThread, Pool, LastOpenedList, RegistryEx, JobProgressView,
     13  XML, ApplicationInfo, SyncCounter, ListViewSort, PersistentForm, FindFile,
     14  ScaleDPI, Theme, StringTable, MetaCanvas, Geometric, Translator, Languages,
     15  PixelPointer, DataFile, TestCase, Generics, Table, FormEx, FormTests,
     16  FormTest, FormAbout, LazarusPackageIntf;
    2117
    2218implementation
    … …  
    2420procedure Register;
    2521begin
    26   RegisterUnit('Common.DebugLog', @Common.DebugLog.Register);
    27   RegisterUnit('Common.PrefixMultiplier', @Common.PrefixMultiplier.Register);
    28   RegisterUnit('Common.LastOpenedList', @Common.LastOpenedList.Register);
    29   RegisterUnit('Common.JobProgressView', @Common.JobProgressView.Register);
    30   RegisterUnit('Common.ApplicationInfo', @Common.ApplicationInfo.Register);
    31   RegisterUnit('Common.ListViewSort', @Common.ListViewSort.Register);
    32   RegisterUnit('Common.PersistentForm', @Common.PersistentForm.Register);
    33   RegisterUnit('Common.FindFile', @Common.FindFile.Register);
    34   RegisterUnit('Common.ScaleDPI', @Common.ScaleDPI.Register);
    35   RegisterUnit('Common.Theme', @Common.Theme.Register);
    36   RegisterUnit('Common.Translator', @Common.Translator.Register);
    37   RegisterUnit('Common.FormEx', @Common.FormEx.Register);
     22  RegisterUnit('DebugLog', @DebugLog.Register);
     23  RegisterUnit('PrefixMultiplier', @PrefixMultiplier.Register);
     24  RegisterUnit('LastOpenedList', @LastOpenedList.Register);
     25  RegisterUnit('JobProgressView', @JobProgressView.Register);
     26  RegisterUnit('ApplicationInfo', @ApplicationInfo.Register);
     27  RegisterUnit('ListViewSort', @ListViewSort.Register);
     28  RegisterUnit('PersistentForm', @PersistentForm.Register);
     29  RegisterUnit('FindFile', @FindFile.Register);
     30  RegisterUnit('ScaleDPI', @ScaleDPI.Register);
     31  RegisterUnit('Theme', @Theme.Register);
     32  RegisterUnit('Translator', @Translator.Register);
     33  RegisterUnit('FormEx', @FormEx.Register);
    3834end;
    3935

  • branches/ByteArray/Project.pas

    r5 r11  
    44
    55uses
    6   Classes, SysUtils, Common.LastOpenedList;
     6  Classes, SysUtils, LastOpenedList;
    77
    88type
Note: See TracChangeset for help on using the changeset viewer.