Browse Source

--- Merging r15297 into '.':
U rtl/haiku/errno.inc
--- Merging r15404 into '.':
U rtl/bsd/sysosh.inc
U rtl/freebsd/ptypes.inc
--- Merging r15405 into '.':
G rtl/freebsd/ptypes.inc
--- Merging r15419 into '.':
U rtl/unix/cwstring.pp
--- Merging r15452 into '.':
U rtl/inc/fexpand.inc
--- Merging r15454 into '.':
U rtl/unix/sysunixh.inc
--- Merging r15456 into '.':
U tests/test/units/dos/tfexpand.pp
--- Merging r15464 into '.':
U packages/openssl/src/openssl.pas
--- Merging r15469 into '.':
G packages/openssl/src/openssl.pas
--- Merging r15485 into '.':
U packages/graph/src/inc/modes.inc

# revisions: 15297,15404,15405,15419,15452,15454,15456,15464,15469,15485
------------------------------------------------------------------------
r15297 | olivier | 2010-05-20 00:25:59 +0200 (Thu, 20 May 2010) | 2 lines
Changed paths:
M /trunk/rtl/haiku/errno.inc

* Define two more constants in order to compile fppkg under Haiku after r152751

------------------------------------------------------------------------
------------------------------------------------------------------------
r15404 | marco | 2010-06-10 22:22:22 +0200 (Thu, 10 Jun 2010) | 3 lines
Changed paths:
M /trunk/rtl/bsd/sysosh.inc
M /trunk/rtl/freebsd/ptypes.inc

* start exchanging untyped "Pointer" handle types to pointer to empty records.
see discussion mantis 16607

------------------------------------------------------------------------
------------------------------------------------------------------------
r15405 | marco | 2010-06-10 22:28:39 +0200 (Thu, 10 Jun 2010) | 3 lines
Changed paths:
M /trunk/rtl/freebsd/ptypes.inc

* continue exchanging untyped "Pointer" handle types to pointer to empty records.
see discussion mantis 16607.

------------------------------------------------------------------------
------------------------------------------------------------------------
r15419 | jonas | 2010-06-13 13:44:33 +0200 (Sun, 13 Jun 2010) | 2 lines
Changed paths:
M /trunk/rtl/unix/cwstring.pp

* de-tabbed

------------------------------------------------------------------------
------------------------------------------------------------------------
r15452 | hajny | 2010-06-19 18:15:40 +0200 (Sat, 19 Jun 2010) | 1 line
Changed paths:
M /trunk/rtl/inc/fexpand.inc

* fix for web bug #16651
------------------------------------------------------------------------
------------------------------------------------------------------------
r15454 | hajny | 2010-06-19 18:22:10 +0200 (Sat, 19 Jun 2010) | 1 line
Changed paths:
M /trunk/rtl/unix/sysunixh.inc

* do not use / as DriveSeparator
------------------------------------------------------------------------
------------------------------------------------------------------------
r15456 | hajny | 2010-06-19 18:27:03 +0200 (Sat, 19 Jun 2010) | 1 line
Changed paths:
M /trunk/tests/test/units/dos/tfexpand.pp

* add test for web bug #16651
------------------------------------------------------------------------
------------------------------------------------------------------------
r15464 | sekelsenmat | 2010-06-21 16:17:35 +0200 (Mon, 21 Jun 2010) | 1 line
Changed paths:
M /trunk/packages/openssl/src/openssl.pas

Adds new RSA, RAND, EVP, X509, Crypto and ERR functions to OpenSSL and also adds a mechanism to show which functions weren't loaded.
------------------------------------------------------------------------
------------------------------------------------------------------------
r15469 | sekelsenmat | 2010-06-21 23:17:30 +0200 (Mon, 21 Jun 2010) | 1 line
Changed paths:
M /trunk/packages/openssl/src/openssl.pas

Patch from Inoussa OUEDRAOGO, improves OpenSSL
------------------------------------------------------------------------
------------------------------------------------------------------------
r15485 | jonas | 2010-06-27 14:38:30 +0200 (Sun, 27 Jun 2010) | 3 lines
Changed paths:
M /trunk/packages/graph/src/inc/modes.inc

* properly initialise graphresult when setgraphmode is called directly
(patch by Nikolay Nikolov, mantis #16798)

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@16376 -

marco 14 years ago
parent
commit
ad7436f93a

+ 1 - 0
packages/graph/src/inc/modes.inc

@@ -549,6 +549,7 @@ end;
           _GraphResult := grInvalidMode;
           _GraphResult := grInvalidMode;
           exit;
           exit;
         end;
         end;
+      _GraphResult := grOk;
       modeinfo^.InitMode;
       modeinfo^.InitMode;
       if _GraphResult <> grOk then
       if _GraphResult <> grOk then
         begin
         begin

File diff suppressed because it is too large
+ 846 - 46
packages/openssl/src/openssl.pas


+ 2 - 1
rtl/bsd/sysosh.inc

@@ -19,7 +19,8 @@
 type
 type
   { fd are int in C also for 64bit targets (x86_64) }
   { fd are int in C also for 64bit targets (x86_64) }
   THandle = Longint;
   THandle = Longint;
-  TThreadID = pointer;
+  TThreadRec = record end;
+  TThreadID  = ^TThreadRec;
   
   
   { pthread_mutex_t }
   { pthread_mutex_t }
   PRTLCriticalSection = ^TRTLCriticalSection;
   PRTLCriticalSection = ^TRTLCriticalSection;

+ 18 - 8
rtl/freebsd/ptypes.inc

@@ -117,17 +117,27 @@ type
   ptimespec= ^timespec;
   ptimespec= ^timespec;
   Ttimespec= timespec;
   Ttimespec= timespec;
 
 
-   pthread_t            = pointer;
-   pthread_attr_t       = pointer;
+   pthread_t_rec        = record end;
+   pthread_attr_t_rec   = record end;
+//   pthread_mutex_t_rec   = record end;
+   pthread_mutexattr_t_rec   = record end;
+   pthread_cond_t_rec   = record end;
+   pthread_condattr_t_rec   = record end;
+   pthread_rwlock_t_rec   = record end;
+   pthread_rwlockattr_t_rec   = record end;
+
+   pthread_t            = ^pthread_t_rec;
+   pthread_attr_t       = ^pthread_attr_t_rec;
    pthread_mutex_t      = {$i pmutext.inc}
    pthread_mutex_t      = {$i pmutext.inc}
-   pthread_mutexattr_t  = pointer;
-   pthread_cond_t       = pointer;
-   pthread_condattr_t   = pointer;
+   pthread_mutexattr_t  = ^pthread_mutexattr_t_rec;
+   pthread_cond_t       = ^pthread_cond_t_rec;
+   pthread_condattr_t   = ^pthread_condattr_t_rec;
    pthread_key_t        = cint;
    pthread_key_t        = cint;
-   pthread_rwlock_t     = pointer;
-   pthread_rwlockattr_t = pointer;
+   pthread_rwlock_t     = ^pthread_rwlock_t_rec;
+   pthread_rwlockattr_t = ^pthread_rwlock_t_rec;
 
 
-   sem_t                = pointer;
+   sem_t_rec		= record end;
+   sem_t                = ^sem_t_rec;
    rlim_t		= int64;
    rlim_t		= int64;
    TRlim		= rlim_t;
    TRlim		= rlim_t;
   {
   {

+ 3 - 2
rtl/haiku/errno.inc

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by the Free Pascal development team.
     Copyright (c) 1999-2000 by the Free Pascal development team.
 
 
-    BeOS POSIX compliant error codes
+    Haiku POSIX compliant error codes
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
     for details about the copyright.
@@ -386,10 +386,11 @@ const
     ESysESRCH       = (B_POSIX_ERROR_BASE + 13);
     ESysESRCH       = (B_POSIX_ERROR_BASE + 13);
     ESysETIMEDOUT   = ord(B_TIMED_OUT);
     ESysETIMEDOUT   = ord(B_TIMED_OUT);
     ESysEXDEV       = ord(B_CROSS_DEVICE_LINK);
     ESysEXDEV       = ord(B_CROSS_DEVICE_LINK);
+    ESysEMSGSIZE     = EMSGSIZE;
+    ESysEOPNOTSUPP   = EOPNOTSUPP;
 
 
     {ESysEBADMSG     =    realtime extension POSIX only   }
     {ESysEBADMSG     =    realtime extension POSIX only   }
     {ESysECANCELED   =    async. I/O extension POSIX only }
     {ESysECANCELED   =    async. I/O extension POSIX only }
-    {ESysEMSGSIZE    =    realtime extension POSIX only   }
     {ESysEINPROGRESS =    async. I/O extension POSIX only }
     {ESysEINPROGRESS =    async. I/O extension POSIX only }
 
 
 {***********************************************************************}
 {***********************************************************************}

+ 1 - 1
rtl/inc/fexpand.inc

@@ -177,7 +177,7 @@ begin
     if PathStart > 1 then
     if PathStart > 1 then
 {$ELSE FPC_FEXPAND_VOLUMES}
 {$ELSE FPC_FEXPAND_VOLUMES}
     if (Length (Pa) > 1) and (Pa [1] in ['A'..'Z', 'a'..'z']) and
     if (Length (Pa) > 1) and (Pa [1] in ['A'..'Z', 'a'..'z']) and
-                                                 (Pa [2] = DriveSeparator) then
+      (Pa [2] = DriveSeparator) and (DriveSeparator <> DirectorySeparator) then
 {$ENDIF FPC_FEXPAND_VOLUMES}
 {$ENDIF FPC_FEXPAND_VOLUMES}
         begin
         begin
 
 

+ 2 - 2
rtl/unix/cwstring.pp

@@ -191,7 +191,7 @@ procedure Wide2AnsiMove(source:pwidechar;var dest:ansistring;len:SizeInt);
     if PtrInt(iconv_wide2ansi)=-1 then
     if PtrInt(iconv_wide2ansi)=-1 then
       begin
       begin
         DefaultUnicode2AnsiMove(source,dest,len);
         DefaultUnicode2AnsiMove(source,dest,len);
-	exit;
+        exit;
       end;
       end;
 {$endif VER2_2}
 {$endif VER2_2}
     mynil:=nil;
     mynil:=nil;
@@ -257,7 +257,7 @@ procedure Ansi2WideMove(source:pchar;var dest:widestring;len:SizeInt);
     if PtrInt(iconv_ansi2wide)=-1 then
     if PtrInt(iconv_ansi2wide)=-1 then
       begin
       begin
         DefaultAnsi2UnicodeMove(source,dest,len);
         DefaultAnsi2UnicodeMove(source,dest,len);
-	exit;
+        exit;
       end;
       end;
 {$endif VER2_2}
 {$endif VER2_2}
     mynil:=nil;
     mynil:=nil;

+ 1 - 1
rtl/unix/sysunixh.inc

@@ -28,7 +28,7 @@ const
  LineEnding = #10;
  LineEnding = #10;
  LFNSupport = true;
  LFNSupport = true;
  DirectorySeparator = '/';
  DirectorySeparator = '/';
- DriveSeparator = '/';
+ DriveSeparator = '';
  ExtensionSeparator = '.';
  ExtensionSeparator = '.';
  PathSeparator = ':';
  PathSeparator = ':';
  AllowDirectorySeparators : set of char = ['\','/'];
  AllowDirectorySeparators : set of char = ['\','/'];

+ 28 - 5
tests/test/units/dos/tfexpand.pp

@@ -100,6 +100,7 @@ const
   {$ELSE MACOS}
   {$ELSE MACOS}
    {$IFDEF UNIX}
    {$IFDEF UNIX}
  DirectorySeparator = '/';
  DirectorySeparator = '/';
+ DriveSeparator = '/';
  FileNameCaseSensitive = true;
  FileNameCaseSensitive = true;
    {$ELSE UNIX}
    {$ELSE UNIX}
     {$IFDEF AMIGA}
     {$IFDEF AMIGA}
@@ -150,12 +151,14 @@ begin
   for I := 1 to Length (S) do
   for I := 1 to Length (S) do
    if S [I] = DirectorySeparator2 then
    if S [I] = DirectorySeparator2 then
     S [I] := DirectorySeparator;
     S [I] := DirectorySeparator;
+{$IFNDEF FPC_FEXPAND_DRIVES}
  if DriveSeparator = DirectorySeparator then
  if DriveSeparator = DirectorySeparator then
-  begin
-   I := Pos (DirectorySeparator + DirectorySeparator, S);
-   if I <> 0 then
-    Delete (S, I, 1);
-  end;
+  I := Pos (DirectorySeparator + DirectorySeparator, S)
+ else
+  I := Pos (DriveSeparator, S);
+ if I <> 0 then
+  Delete (S, 1, I);
+{$ENDIF FPC_FEXPAND_DRIVES}
 end;
 end;
 
 
 procedure GetDir (Drive: byte; var Directory: string);
 procedure GetDir (Drive: byte; var Directory: string);
@@ -202,6 +205,13 @@ begin
 {$ENDIF DEBUG}
 {$ENDIF DEBUG}
  Rslt := Translate (Rslt);
  Rslt := Translate (Rslt);
  Rslt2 := FExpand (Src);
  Rslt2 := FExpand (Src);
+{$IFDEF DIRECT}
+ {$IFNDEF FPC_FEXPAND_DRIVES}
+ I := Pos (System.DriveSeparator, Rslt2);
+ if I <> 0 then
+  Delete (Rslt2, 1, I);
+ {$ENDIF FPC_FEXPAND_DRIVES}
+{$ENDIF DIRECT}
 {$IFNDEF UNIX}
 {$IFNDEF UNIX}
  if (Length (Rslt2) > 1) and (Rslt2 [1] in ['a'..'z']) and (Rslt2[2]=DriveSep) then
  if (Length (Rslt2) > 1) and (Rslt2 [1] in ['a'..'z']) and (Rslt2[2]=DriveSep) then
    Rslt2 [1] := UpCase (Rslt2 [1]);
    Rslt2 [1] := UpCase (Rslt2 [1]);
@@ -253,6 +263,11 @@ begin
  TestDir0 := TestDir;
  TestDir0 := TestDir;
 {$IFDEF DIRECT}
 {$IFDEF DIRECT}
  XToDirect (TestDir);
  XToDirect (TestDir);
+ {$IFNDEF FPC_FEXPAND_DRIVES}
+ I := Pos (System.DriveSeparator, TestDir);
+ if I <> 0 then
+  Delete (TestDir, 1, I);
+ {$ENDIF FPC_FEXPAND_DRIVES}
 {$ENDIF DIRECT}
 {$ENDIF DIRECT}
  Assign (F, TestFileName);
  Assign (F, TestFileName);
  Rewrite (F);
  Rewrite (F);
@@ -263,6 +278,13 @@ begin
 {$ENDIF DIRECT}
 {$ENDIF DIRECT}
 {$I+}
 {$I+}
  GetDir (0, CurDir);
  GetDir (0, CurDir);
+{$IFDEF DIRECT}
+ {$IFNDEF FPC_FEXPAND_DRIVES}
+ I := Pos (System.DriveSeparator, CurDir);
+ if I <> 0 then
+  Delete (CurDir, 1, I);
+ {$ENDIF FPC_FEXPAND_DRIVES}
+{$ENDIF DIRECT}
 {$IFNDEF NODRIVEC}
 {$IFNDEF NODRIVEC}
  GetDir (3, CDir);
  GetDir (3, CDir);
 {$ENDIF NODRIVEC}
 {$ENDIF NODRIVEC}
@@ -326,6 +348,7 @@ if CDir [Length (CDir)] = DirSep then Check ('c:anything', CDir + 'anything')
  Check ('.' + DirSep + 'd', CurDir + DirSep + 'd');
  Check ('.' + DirSep + 'd', CurDir + DirSep + 'd');
  {$ENDIF NODOTS}
  {$ENDIF NODOTS}
 {$ENDIF MACOS}
 {$ENDIF MACOS}
+ Check ('d' + DirSep + TestFileName, CurDir + DirSep + 'd' + DirSep + TestFileName);
  Check (' d', CurDir + DirSep + ' d');
  Check (' d', CurDir + DirSep + ' d');
  Check ('dd', CurDir + DirSep + 'dd');
  Check ('dd', CurDir + DirSep + 'dd');
 {$IFDEF MACOS}
 {$IFDEF MACOS}

Some files were not shown because too many files changed in this diff