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

* pinteger in non-delphi/objfpc mode is psmallint

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i386/fastmove.inc
View File

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

7
rtl/inc/systemh.inc
View File

@ -230,7 +230,7 @@ Type
PSmallInt = ^Smallint; PSmallInt = ^Smallint;
PShortInt = ^Shortint; PShortInt = ^Shortint;
PInteger = ^Longint; PInteger = ^Integer;
PByte = ^Byte; PByte = ^Byte;
PWord = ^word; PWord = ^word;
PDWord = ^DWord; PDWord = ^DWord;
@ -796,7 +796,10 @@ const
{ {
$Log$ $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 + GetProcessID added
Revision 1.110 2004/11/26 22:26:30 peter Revision 1.110 2004/11/26 22:26:30 peter

16
rtl/objpas/objpas.pp
View File

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