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

* getu32bit() now has a longword result instead of a longint

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-08 20:27:37 +00:00
parent 38f088b5a7
commit b787f0ceec
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test/cg/tcnvint3.pp
View File

@ -81,10 +81,12 @@ const
end; end;
function getu32bit : longint; {$ifndef tp}
function getu32bit : longword;
begin begin
getu32bit := GETU32BIT_RESULT; getu32bit := GETU32BIT_RESULT;
end; end;
{$endif tp}
var var
s8bit : shortint; s8bit : shortint;
@ -413,7 +415,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2002-09-07 15:40:55 peter Revision 1.4 2002-09-08 20:27:37 jonas
* getu32bit() now has a longword result instead of a longint
Revision 1.3 2002/09/07 15:40:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.2 2002/05/13 13:45:38 peter Revision 1.2 2002/05/13 13:45:38 peter