diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-27 16:50:36 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-27 16:50:36 +0000 |
| commit | aad6c9f3cf516d6a638442b7c2c56669399633a0 (patch) | |
| tree | c108aea4142eda11e34b988289ad85041ebc0c71 /packages/numlib | |
| parent | eeaa01fd80d6e8cfd4668b442a5e80d23f6ba14a (diff) | |
| download | fpc-aad6c9f3cf516d6a638442b7c2c56669399633a0.tar.gz | |
* ptrint for a longint(ptr) typecast
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10059 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/numlib')
| -rw-r--r-- | packages/numlib/src/typ.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/numlib/src/typ.pas b/packages/numlib/src/typ.pas index 410daa8420..642bf6c0d5 100644 --- a/packages/numlib/src/typ.pas +++ b/packages/numlib/src/typ.pas @@ -462,8 +462,8 @@ begin for i:=1 to n do begin s := s + p1^*p2^; - Inc(longint(p1), i1); - Inc(longint(p2), i2) + Inc(ptrint(p1), i1); + Inc(ptrint(p2), i2) end; Inprod := s end; |