* pinteger in non-delphi/objfpc mode is psmallint

This commit is contained in:
peter 2005-01-24 18:03:19 +00:00
parent 39ba224077
commit 8be342c36b
3 changed files with 17 additions and 8 deletions

View File

@ -39,6 +39,7 @@ Version: 1.40 - 16-SEP-2004
{$asmmode intel}
{-------------------------------------------------------------------------}
(*
{Just to show that a good Pascal algorithm can beat the default BASM}
procedure MoveJOH_PAS_3(const Source; var Dest; Count : Integer);
var
@ -102,6 +103,7 @@ begin
PInteger(I)^ := Temp;
end;
end; {MoveJOH_PAS}
*)
const
SMALLMOVESIZE = 36;

View File

@ -230,7 +230,7 @@ Type
PSmallInt = ^Smallint;
PShortInt = ^Shortint;
PInteger = ^Longint;
PInteger = ^Integer;
PByte = ^Byte;
PWord = ^word;
PDWord = ^DWord;
@ -796,7 +796,10 @@ const
{
$Log$
Revision 1.111 2004-12-05 14:36:37 hajny
Revision 1.112 2005-01-24 18:03:19 peter
* pinteger in non-delphi/objfpc mode is psmallint
Revision 1.111 2004/12/05 14:36:37 hajny
+ GetProcessID added
Revision 1.110 2004/11/26 22:26:30 peter

View File

@ -26,7 +26,8 @@ unit objpas;
const
MaxInt = MaxLongint;
type
integer = longint;
Integer = longint;
PInteger = ^Integer;
{ Ansistring are the default }
PString = PAnsiString;
@ -390,7 +391,10 @@ end.
{
$Log$
Revision 1.12 2003-05-29 08:43:52 michael
Revision 1.13 2005-01-24 18:03:19 peter
* pinteger in non-delphi/objfpc mode is psmallint
Revision 1.12 2003/05/29 08:43:52 michael
+ Paramstr(0) must return binary name
Revision 1.11 2002/09/07 16:01:22 peter