Explorar o código

* fixed invalid type conversion

Jonas Maebe %!s(int64=20) %!d(string=hai) anos
pai
achega
8577978556
Modificáronse 1 ficheiros con 5 adicións e 2 borrados
  1. 5 2
      rtl/unix/bunxovl.inc

+ 5 - 2
rtl/unix/bunxovl.inc

@@ -58,7 +58,7 @@ Var
   Buf : Array[0..PATH_MAX+1]  of char;
 Begin 
   Buf[PATH_MAX+1]:=#0; 
-  If FpGetcwd(pchar(Buf[0]),PATH_MAX)=Nil then
+  If FpGetcwd(@Buf[0],PATH_MAX)=Nil then
     FpGetcwd:=''
   else  
     FpGetcwd:=Buf;
@@ -380,7 +380,10 @@ end;
 
 {
  $Log$
- Revision 1.15  2004-11-23 08:40:34  michael
+ Revision 1.16  2004-11-25 12:18:35  jonas
+   * fixed invalid type conversion
+
+ Revision 1.15  2004/11/23 08:40:34  michael
  + Added overloaded functions
 
  Revision 1.14  2004/11/19 13:15:14  marco