* pinteger in non-delphi/objfpc mode is psmallint

rtl/i386/fastmove.inc

@@ -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;

rtl/inc/systemh.inc

@@ -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

rtl/objpas/objpas.pp

@@ -26,7 +26,8 @@ unit objpas;
     const
        MaxInt  = MaxLongint;
     type
-       integer = longint;
+       Integer  = longint;
+       PInteger = ^Integer;
 
        { Ansistring are the default }
        PString = PAnsiString;
@@ -184,14 +185,14 @@ Var Len : longint;
 begin
 {
   Paramstr(0) should return the name of the binary.
-  Since this functionality is included in the system unit, 
-  we fetch it from there. 
-  Normally, pathnames are less than 255 chars anyway, 
+  Since this functionality is included in the system unit,
+  we fetch it from there.
+  Normally, pathnames are less than 255 chars anyway,
   so this will work correct in 99% of all cases.
   In time, the system unit should get a GetExeName call.
 }
   if (Param=0) then
-    Result:=System.Paramstr(0) 
+    Result:=System.Paramstr(0)
   else if (Param>0) and (Param<argc) then
     begin
     Len:=0;
@@ -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