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
c8551879f7
commit
40bb7d9bdf
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/powerpc/stringss.inc

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

@@ -17,7 +17,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;
 
+function strpcopy(d : PAnsiChar;const s : shortstring) : PAnsiChar;assembler;
 
 asm
 
 asm
 
         { get length  }
 
         { get length  }
 
         lbz     r0,0(r4)
 
         lbz     r0,0(r4)