paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 06:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get rid of tabs with wrong size

Browse Source 
git-svn-id: trunk@21913 -
This commit is contained in:
florian 2012-07-15 14:04:50 +00:00
parent 3d76823929
commit 25b80bedf9
1 changed files with 66 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

132
rtl/win32/system.pp
View File

@ -562,72 +562,72 @@ end;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt; function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
type type
tdosheader = packed record tdosheader = packed record
e_magic : word; e_magic : word;
e_cblp : word; e_cblp : word;
e_cp : word; e_cp : word;
e_crlc : word; e_crlc : word;
e_cparhdr : word; e_cparhdr : word;
e_minalloc : word; e_minalloc : word;
e_maxalloc : word; e_maxalloc : word;
e_ss : word; e_ss : word;
e_sp : word; e_sp : word;
e_csum : word; e_csum : word;
e_ip : word; e_ip : word;
e_cs : word; e_cs : word;
e_lfarlc : word; e_lfarlc : word;
e_ovno : word; e_ovno : word;
e_res : array[0..3] of word; e_res : array[0..3] of word;
e_oemid : word; e_oemid : word;
e_oeminfo : word; e_oeminfo : word;
e_res2 : array[0..9] of word; e_res2 : array[0..9] of word;
e_lfanew : longint; e_lfanew : longint;
end; end;
tpeheader = packed record tpeheader = packed record
PEMagic : longint; PEMagic : longint;
Machine : word; Machine : word;
NumberOfSections : word; NumberOfSections : word;
TimeDateStamp : longint; TimeDateStamp : longint;
PointerToSymbolTable : longint; PointerToSymbolTable : longint;
NumberOfSymbols : longint; NumberOfSymbols : longint;
SizeOfOptionalHeader : word; SizeOfOptionalHeader : word;
Characteristics : word; Characteristics : word;
Magic : word; Magic : word;
MajorLinkerVersion : byte; MajorLinkerVersion : byte;
MinorLinkerVersion : byte; MinorLinkerVersion : byte;
SizeOfCode : longint; SizeOfCode : longint;
SizeOfInitializedData : longint; SizeOfInitializedData : longint;
SizeOfUninitializedData : longint; SizeOfUninitializedData : longint;
AddressOfEntryPoint : longint; AddressOfEntryPoint : longint;
BaseOfCode : longint; BaseOfCode : longint;
BaseOfData : longint; BaseOfData : longint;
ImageBase : longint; ImageBase : longint;
SectionAlignment : longint; SectionAlignment : longint;
FileAlignment : longint; FileAlignment : longint;
MajorOperatingSystemVersion : word; MajorOperatingSystemVersion : word;
MinorOperatingSystemVersion : word; MinorOperatingSystemVersion : word;
MajorImageVersion : word; MajorImageVersion : word;
MinorImageVersion : word; MinorImageVersion : word;
MajorSubsystemVersion : word; MajorSubsystemVersion : word;
MinorSubsystemVersion : word; MinorSubsystemVersion : word;
Reserved1 : longint; Reserved1 : longint;
SizeOfImage : longint; SizeOfImage : longint;
SizeOfHeaders : longint; SizeOfHeaders : longint;
CheckSum : longint; CheckSum : longint;
Subsystem : word; Subsystem : word;
DllCharacteristics : word; DllCharacteristics : word;
SizeOfStackReserve : longint; SizeOfStackReserve : longint;
SizeOfStackCommit : longint; SizeOfStackCommit : longint;
SizeOfHeapReserve : longint; SizeOfHeapReserve : longint;
SizeOfHeapCommit : longint; SizeOfHeapCommit : longint;
LoaderFlags : longint; LoaderFlags : longint;
NumberOfRvaAndSizes : longint; NumberOfRvaAndSizes : longint;
DataDirectory : array[1..$80] of byte; DataDirectory : array[1..$80] of byte;
end; end;
begin begin
result:=tpeheader((pointer(getmodulehandle(nil))+(tdosheader(pointer(getmodulehandle(nil))^).e_lfanew))^).SizeOfStackReserve; result:=tpeheader((pointer(getmodulehandle(nil))+(tdosheader(pointer(getmodulehandle(nil))^).e_lfanew))^).SizeOfStackReserve;
end; end;
var var
st : Pointer; st : Pointer;