Explorar o código

* fixed compilation after TStringList->TCmdStrList change

git-svn-id: trunk@6233 -
tom_at_work %!s(int64=18) %!d(string=hai) anos
pai
achega
a06081f590
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      ide/fpdebug.pas

+ 1 - 1
ide/fpdebug.pas

@@ -690,7 +690,7 @@ begin
 end;
 end;
 
 
 procedure TDebugController.SetSourceDirs;
 procedure TDebugController.SetSourceDirs;
-  var f,s: string;
+  var f,s: ansistring;
       i : longint;
       i : longint;
       Dir : SearchRec;
       Dir : SearchRec;
 begin
 begin