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

* ptrint for a longint(ptr) typecast

Browse Source 
git-svn-id: trunk@10059 -
This commit is contained in:
marco 2008-01-27 16:50:36 +00:00
parent 8cf136b8e8
commit a76611d68b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/numlib/src/typ.pas
View File

@ -462,8 +462,8 @@ begin
for i:=1 to n do for i:=1 to n do
begin begin
s := s + p1^*p2^; s := s + p1^*p2^;
Inc(longint(p1), i1); Inc(ptrint(p1), i1);
Inc(longint(p2), i2) Inc(ptrint(p2), i2)
end; end;
Inprod := s Inprod := s
end; end;