Browse Source

* string -> shortstring

Michael VAN CANNEYT 2 years ago
parent
commit
3a5b18e0e4
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/aros/system.pp

+ 2 - 2
rtl/aros/system.pp

@@ -79,8 +79,8 @@ var
   killed : Boolean = False;
   killed : Boolean = False;
 
 
 function GetLibAdress(Base: Pointer; Offset: LongInt): Pointer;
 function GetLibAdress(Base: Pointer; Offset: LongInt): Pointer;
-procedure Debug(s: string);
-procedure Debugln(s: string);
+procedure Debug(s: shortstring);
+procedure Debugln(s: shortstring);
 procedure EnableBackTraceStr;
 procedure EnableBackTraceStr;
 
 
 implementation
 implementation