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

Legend:

Unmodified
Added
Removed

  • branches/ByteArray

    • Property svn:ignore

      •  

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

  • 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
Note: See TracChangeset for help on using the changeset viewer.