Changeset 9 for trunk/Database.pas


Ignore:
Timestamp:
Jan 7, 2017, 1:28:56 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Converted to Lazarus project. Application can be run with errors.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66Win32
        77*.~dsk
         8C-evo.exe
         9Integrated.compiled
         10Integrated.lps
         11lib

  • trunk/Database.pas

    r6 r9  
    1 {$INCLUDE switches}
     1{$INCLUDE Switches.pas}
    22// {$DEFINE TEXTLOG}
    33// {$DEFINE LOADPERF}
    … …  
    171171  UnBuilt: array [0 .. nPl - 1] of integer; { number of units built }
    172172
    173 procedure MaskD(var x; Count, Mask: Cardinal); Register;
    174 asm
     173procedure MaskD(var x; Count, Mask: Cardinal);
     174begin
     175{ TODO
    175176  sub eax,4
    176177@r: and [eax+edx*4],ecx
    177178  dec edx
    178179  jnz @r
     180  }
    179181end;
    180182
Note: See TracChangeset for help on using the changeset viewer.