Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* string -> shortstring

Michael VAN CANNEYT 2 years ago
parent
7fad431910
commit
21a693f5b8
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/i8086/stringss.inc

+ 1 - 1
rtl/i8086/stringss.inc
View File 

@@ -41,7 +41,7 @@
 
 
 
 {$ifndef FPC_UNIT_HAS_STRPCOPY}
 
 {$ifndef FPC_UNIT_HAS_STRPCOPY}
 
 {$define FPC_UNIT_HAS_STRPCOPY}
 
 {$define FPC_UNIT_HAS_STRPCOPY}
 
-function strpcopy(d : PAnsiChar;const s : string) : PAnsiChar;assembler;nostackframe;
 
+function strpcopy(d : PAnsiChar;const s : shortstring) : PAnsiChar;assembler;nostackframe;
 
 const
 
 const
 
   { used for an offset fixup for accessing the proc parameters in asm routines
 
   { used for an offset fixup for accessing the proc parameters in asm routines
 
     that use nostackframe. We can't use the parameter name directly, because
 
     that use nostackframe. We can't use the parameter name directly, because