paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 12:48:17 +01:00
parent 7a23cfb2c8
commit 3798dd8d53
11 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/numlib/src/iom.pas
View File

@ -176,7 +176,7 @@ procedure iomwrms(var out: ArbString; var a: ArbFloat; m, n, form, c: ArbInt);
var
pa: ^arfloat1;
i, l, kk: ArbInt;
s: string;
s: ShortString;
BEGIN
if (n<1) or (m<1) then
exit;

6
packages/numlib/src/roo.pas
View File

@ -511,7 +511,7 @@ Begin
End
End {rooqua};
Procedure roo001(uplo, trans, diag: char; n: ArbInt; Var ap1, x1: ArbFloat;
Procedure roo001(uplo, trans, diag: AnsiChar; n: ArbInt; Var ap1, x1: ArbFloat;
incx: ArbInt);
Var
@ -618,7 +618,7 @@ Begin
End
End;
Procedure roo002(uplo, trans, diag: char; n: ArbInt;
Procedure roo002(uplo, trans, diag: AnsiChar; n: ArbInt;
Var ap1, x1: ArbFloat; incx: ArbInt );
Var ap : arfloat1 absolute ap1;
@ -914,7 +914,7 @@ Begin
End
End;
Procedure roo006(trans: char; m, n: ArbInt; alpha: ArbFloat; Var a1: ArbFloat;
Procedure roo006(trans: AnsiChar; m, n: ArbInt; alpha: ArbFloat; Var a1: ArbFloat;
lda: ArbInt; Var x1: ArbFloat; incx : ArbInt; beta: ArbFloat;
Var y1: ArbFloat; incy : ArbInt);

2
packages/numlib/src/spe.pas
View File

@ -1761,7 +1761,7 @@ var exitsave : pointer;
procedure MyExit;
{
const ErrorS : array[400..408,1..6] of char =
const ErrorS : array[400..408,1..6] of AnsiChar =
('spepow',
'spebk0',
'spebk1',

8
packages/numlib/src/typ.pas
View File

@ -257,7 +257,7 @@ Function Re(z: complex): ArbFloat;
Function Im(z: complex): ArbFloat;
{ Creates a string from a floatingpoint value}
Function R2S(x: ArbFloat; p, q: integer): string;
Function R2S(x: ArbFloat; p, q: integer): ShortString;
{Calculate inproduct of V1 and V2, which are vectors with N elements;
I1 and I2 are the SIZEOF the datatypes of V1 and V2
@ -298,7 +298,7 @@ begin
end;
{Kind of Sysutils.TrimRight and TrimLeft called after eachother}
procedure Compress(var s: string);
procedure Compress(var s: ShortString);
var i, j: LONGINT;
begin
j := length(s);
@ -308,8 +308,8 @@ begin
s := copy(s, i, j+1-i)
end;
Function R2S(x: ArbFloat; p, q: integer): string;
var s: string;
Function R2S(x: ArbFloat; p, q: integer): ShortString;
var s: ShortString;
i, j, k: integer;
begin
if q=-1 then

4
packages/numlib/tests/intge1te.pas
View File

@ -69,8 +69,8 @@ const
var
alfa, ond, inte, int1: ArbFloat;
u, i: ArbInt;
s: string;
q: char;
s: ShortString;
q: AnsiChar;
f: rfunc1r;
scale: boolean;

2
packages/numlib/tests/speentte.pas
View File

@ -6,7 +6,7 @@ uses
var
x: ArbFloat;
h: string;
h: ShortString;
t: ArbInt;
begin
Write('program results speentte');

2
packages/numlib/tests/spege1te.pas
View File

@ -14,7 +14,7 @@ const
var
x: ArbFloat;
t, u: ArbInt;
s, h: string;
s, h: ShortString;
f: rfunc1r;
begin

2
packages/numlib/tests/spemaxte.pas
View File

@ -6,7 +6,7 @@ uses
var
x, y: ArbFloat;
h: string;
h: ShortString;
t: ArbInt;
begin
Write('program results spemaxte');

2
packages/numlib/tests/spepolte.pas
View File

@ -12,7 +12,7 @@ const
var
n, t: ArbInt;
x: ArbFloat;
h: string;
h: ShortString;
a: array[n1..n2] of ArbFloat;
begin
Write('program results spepolte');

2
packages/numlib/tests/spepowte.pas
View File

@ -7,7 +7,7 @@ uses
var
x, y: ArbFloat;
t: ArbInt;
s, h: string;
s, h: ShortString;
begin
s := 'spepow';

2
packages/numlib/tests/spesgnte.pas
View File

@ -6,7 +6,7 @@ uses
var
x: ArbFloat;
h: string;
h: shortstring;
t: ArbInt;
begin
Write('program results spesgnte');