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

* avoid the longint + cardinal to int64 conversion (merged Pierre's patch)

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-16 15:57:52 +00:00
parent 0293387955
commit 48b2ad6e9a
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/go32v2/dxeload.pp
View File

@ -27,7 +27,7 @@ type
magic,
symbol_offset,
element_size,
nrelocs : longint;
nrelocs : cardinal;
end;
function dxe_load(filename : string) : pointer;
@ -44,6 +44,7 @@ type
pointer_array = array[0..maxlongint] of pointer;
tpa = ^pointer_array;
plongint = ^longint;
pcardinal = ^cardinal;
ppointer = ^pointer;
var
dh : dxe_header;
@ -51,7 +52,7 @@ var
f : file;
relocs : tpa;
i : longint;
addr : plongint;
addr : pcardinal;
begin
dxe_load:=nil;
{ open the file }
@ -88,7 +89,7 @@ begin
for i:=0 to dh.nrelocs-1 do
begin
cardinal(addr):=cardinal(data)+cardinal(relocs^[i]);
addr^:=addr^+pointer(data);
addr^:=addr^+cardinal(data);
end;
dxe_load:=pointer( dh.symbol_offset + cardinal(data));
end;
@ -96,7 +97,10 @@ end;
end.
{
$Log$
Revision 1.2 2000-07-13 11:33:40 michael
Revision 1.3 2000-12-16 15:57:52 jonas
* avoid the longint + cardinal to int64 conversion (merged Pierre's patch)
Revision 1.2 2000/07/13 11:33:40 michael
+ removed logs
}