Home Explore Help
Sign In
pascal
/
fpc
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
29c36aa407
commit
c8551879f7
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