* PChar -> PAnsiChar

packages/numlib/src/iom.pas

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

packages/numlib/src/roo.pas

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

packages/numlib/src/spe.pas

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

packages/numlib/src/typ.pas

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

packages/numlib/tests/intge1te.pas

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

packages/numlib/tests/speentte.pas

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

packages/numlib/tests/spege1te.pas

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

packages/numlib/tests/spemaxte.pas

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

packages/numlib/tests/spepolte.pas

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

packages/numlib/tests/spepowte.pas

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

packages/numlib/tests/spesgnte.pas

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