blob: 5ac9e8aae4ea7e92606da7de3070800eaadae037 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
Unit DataTypes;
{$mode objfpc}{$H+}
{$ASMMODE intel}
// NewView - a new OS/2 Help Viewer
// Copyright 2001 Aaron Lawrence (aaronl at consultant dot com)
// This software is released under the Gnu Public License - see readme.txt
Interface
// Just defines various types useful in manipulating help files.
type
int32 = longword;
int16 = word;
int8 = byte;
pInt16 = ^int16;
pInt32 = ^int32;
pInt8 = ^byte;
ULong = Cardinal;
PCharArray = packed array[ 0..0 ] of PCHar;
Int32Array = packed array[ 0..0 ] of Int32;
Int16Array = packed array[ 0..0 ] of Int16;
Int8Array = packed array[ 0..0 ] of Int8;
PCharArrayPointer = ^PCharArray;
Int32ArrayPointer = ^Int32Array;
Int16ArrayPointer = ^Int16Array;
Int8ArrayPointer = ^Int8Array;
TBooleanArray = array[ 0..0 ] of boolean;
BooleanArrayPointer = ^TBooleanArray;
TProgressCallback = procedure(n, outof: integer; AMessage: string) of object;
procedure FillInt32Array( pArray: Int32ArrayPointer;
Size: longint;
Value: Int32 );
Implementation
// This is a nice fast implementation of filling an
// array of dwords (Int32/longword)
procedure FillInt32Array( pArray: Int32ArrayPointer;
Size: longint;
Value: Int32 );
begin
assert( Size > 0 );
Asm
Mov EAX, Value
Mov EDI, pArray
Mov ECX, Size
CLD // direction = up
REP STOSD // store double word, until ECX = 0
End;
end;
Initialization
End.
|
