Explorar el Código

* truncated log

peter hace 25 años
padre
commit
6b66a55cd6
Se han modificado 100 ficheros con 563 adiciones y 2640 borrados
  1. 4 51
      rtl/amiga/dos.pp
  2. 4 23
      rtl/amiga/exec.pp
  3. 4 5
      rtl/amiga/objinc.inc
  4. 4 19
      rtl/amiga/os.inc
  5. 4 58
      rtl/go32v2/crt.pp
  6. 4 12
      rtl/go32v2/disk.inc
  7. 4 54
      rtl/go32v2/dos.pp
  8. 4 14
      rtl/go32v2/dpmi.inc
  9. 4 65
      rtl/go32v2/dpmiexcp.pp
  10. 4 17
      rtl/go32v2/dxeload.pp
  11. 4 27
      rtl/go32v2/emu387.pp
  12. 4 29
      rtl/go32v2/filutil.inc
  13. 4 31
      rtl/go32v2/go32.pp
  14. 4 80
      rtl/go32v2/graph.inc
  15. 4 10
      rtl/go32v2/initc.pp
  16. 4 4
      rtl/go32v2/msmouse.pp
  17. 4 8
      rtl/go32v2/objinc.inc
  18. 4 31
      rtl/go32v2/ports.pp
  19. 4 9
      rtl/go32v2/printer.pp
  20. 4 19
      rtl/go32v2/profile.pp
  21. 4 42
      rtl/go32v2/system.pp
  22. 4 6
      rtl/go32v2/thread.inc
  23. 4 18
      rtl/i386/cpu.pp
  24. 4 146
      rtl/i386/i386.inc
  25. 4 48
      rtl/i386/math.inc
  26. 4 10
      rtl/i386/mmx.pp
  27. 4 52
      rtl/i386/rttip.inc
  28. 4 31
      rtl/i386/set.inc
  29. 4 12
      rtl/i386/setjump.inc
  30. 3 3
      rtl/i386/setjumph.inc
  31. 4 10
      rtl/i386/strings.inc
  32. 5 15
      rtl/i386/stringss.inc
  33. 4 52
      rtl/inc/astrings.inc
  34. 5 16
      rtl/inc/except.inc
  35. 4 36
      rtl/inc/file.inc
  36. 4 10
      rtl/inc/filerec.inc
  37. 4 7
      rtl/inc/generic.inc
  38. 4 23
      rtl/inc/getopts.pp
  39. 4 24
      rtl/inc/heaph.inc
  40. 4 42
      rtl/inc/heaptrc.pp
  41. 4 19
      rtl/inc/innr.inc
  42. 5 44
      rtl/inc/int64.inc
  43. 5 2
      rtl/inc/lineinfo.pp
  44. 4 7
      rtl/inc/lstrings.pp
  45. 4 15
      rtl/inc/mathh.inc
  46. 4 62
      rtl/inc/objects.pp
  47. 4 16
      rtl/inc/objpas.inc
  48. 4 4
      rtl/inc/objpash.inc
  49. 4 40
      rtl/inc/real2str.inc
  50. 4 10
      rtl/inc/rtti.inc
  51. 4 7
      rtl/inc/sockets.inc
  52. 4 7
      rtl/inc/socketsh.inc
  53. 4 69
      rtl/inc/sstrings.inc
  54. 4 16
      rtl/inc/strings.pp
  55. 4 4
      rtl/inc/stringsi.inc
  56. 4 53
      rtl/inc/system.inc
  57. 4 57
      rtl/inc/systemh.inc
  58. 4 39
      rtl/inc/text.inc
  59. 4 13
      rtl/inc/textrec.inc
  60. 4 23
      rtl/inc/typefile.inc
  61. 4 28
      rtl/inc/ucomplex.pp
  62. 4 48
      rtl/linux/crt.pp
  63. 4 14
      rtl/linux/disk.inc
  64. 4 30
      rtl/linux/dos.pp
  65. 4 6
      rtl/linux/errno.inc
  66. 4 12
      rtl/linux/errors.pp
  67. 4 34
      rtl/linux/filutil.inc
  68. 4 4
      rtl/linux/gpm.pp
  69. 4 4
      rtl/linux/ipc.pp
  70. 4 35
      rtl/linux/linux.pp
  71. 4 9
      rtl/linux/printer.pp
  72. 4 31
      rtl/linux/sockets.pp
  73. 4 9
      rtl/linux/syscalls.inc
  74. 4 6
      rtl/linux/sysconst.inc
  75. 4 53
      rtl/linux/syslinux.pp
  76. 4 6
      rtl/linux/sysnr.inc
  77. 4 4
      rtl/linux/systypes.inc
  78. 4 49
      rtl/objpas/dati.inc
  79. 2 15
      rtl/objpas/datih.inc
  80. 4 4
      rtl/objpas/diskh.inc
  81. 4 16
      rtl/objpas/filutilh.inc
  82. 2 17
      rtl/objpas/fina.inc
  83. 2 9
      rtl/objpas/finah.inc
  84. 4 30
      rtl/objpas/math.pp
  85. 4 15
      rtl/objpas/objpas.pp
  86. 4 22
      rtl/objpas/stre.inc
  87. 4 6
      rtl/objpas/strg.inc
  88. 4 25
      rtl/objpas/syspch.inc
  89. 4 11
      rtl/objpas/syspchh.inc
  90. 4 47
      rtl/objpas/sysstr.inc
  91. 2 24
      rtl/objpas/sysstrh.inc
  92. 4 43
      rtl/objpas/sysutils.pp
  93. 5 45
      rtl/objpas/typinfo.pp
  94. 5 5
      rtl/os2/disk.inc
  95. 5 2
      rtl/os2/dive.pas
  96. 4 26
      rtl/os2/dos.pas
  97. 4 7
      rtl/os2/filutil.inc
  98. 169 182
      rtl/os2/objinc.inc
  99. 4 24
      rtl/os2/os.inc
  100. 4 7
      rtl/os2/pmbitmap.pas

+ 4 - 51
rtl/amiga/dos.pp

@@ -1722,62 +1722,15 @@ End.
 
 {
   $Log$
-  Revision 1.12  2000-01-07 16:41:28  daniel
+  Revision 1.13  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.12  2000/01/07 16:41:28  daniel
     * copyright 2000
 
   Revision 1.11  2000/01/07 16:32:21  daniel
     * copyright 2000 added
 
-  Revision 1.10  1998/10/14 10:46:14  pierre
-  added several ; missing
-
-  Revision 1.9  1998/09/14 20:20:57  carl
-    * FSplit bugfix
-    * Structures bugfixes by Nils Sjoholm
-
-  Revision 1.8  1998/08/19 14:52:52  carl
-    * SearchRec was not aligned!! so BOUM!...
-
-  Revision 1.7  1998/08/17 12:30:42  carl
-    * FExpand removes dot characters
-    * Findfirst single/double dot expansion
-    + SetFtime implemented
-
-  Revision 1.6  1998/08/13 13:18:45  carl
-    * FSearch bugfix
-    * FSplit bugfix
-    + GetFAttr,SetFAttr and GetFTime accept dos dir separators
-
-  Revision 1.5  1998/08/04 13:37:10  carl
-    * bugfix of findfirst, was not convberting correctl backslahes
-
-       History (Nils Sjoholm):
-       10.02.1999-2000 by First version for Amiga.
-                   Just GetDate and GetTime.
-
-       11.02.1999-2000 by Added AmigaToDt and DtToAmiga
-                   Changed GetDate and GetTime to
-                   use AmigaToDt and DtToAmiga.
-
-                   Added DiskSize and DiskFree.
-                   They are using a string as arg
-                   have to try to fix that.
-
-       12.02.1999-2000 by Added Fsplit and FExpand.
-                   Cleaned up the unit and removed
-                   stuff that was not used yet.
-
-       13.02.1999-2000 by Added CToPas and PasToC and removed
-                   the uses of strings.
-
-       14.02.1999-2000 by Removed AmigaToDt and DtToAmiga
-                   from public area.
-                   Added deviceids and devicenames
-                   arrays so now diskfree and disksize
-                   is compatible with dos.
-
-
-
 }
 
 

+ 4 - 23
rtl/amiga/exec.pp

@@ -1555,31 +1555,12 @@ END. (* UNIT EXEC *)
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:28  daniel
-    * copyright 2000
-
-  Revision 1.3  1998/09/14 20:22:32  carl
-    * Several bugfixes by Nils Sjoholm
-
-  Revision 1.1.1.1  1998/03/25 11:18:47  root
-  * Restored version
-
-  Revision 1.3  1998/01/26 12:02:42  michael
-  + Added log at the end
-
+  Revision 1.5  2000-02-09 16:59:28  peter
+    * truncated log
 
+  Revision 1.4  2000/01/07 16:41:28  daniel
+    * copyright 2000
 
-  Working file: rtl/amiga/exec.pp
-  description:
-  ----------------------------
-  revision 1.2
-  date: 1997/12/14 19:02:47;  author: carl;  state: Exp;  lines: +11 -10
-  * small bugfixes
-  ----------------------------
-  revision 1.1
-  date: 1997/12/10 13:48:45;  author: carl;  state: Exp;
-  + exec dynamic library definitions and calls.
-  =============================================================================
 }
 
 

+ 4 - 5
rtl/amiga/objinc.inc

@@ -297,15 +297,14 @@ END;
 
 {
   $Log$
-  Revision 1.5  2000-01-07 16:41:29  daniel
+  Revision 1.6  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.5  2000/01/07 16:41:29  daniel
     * copyright 2000
 
   Revision 1.4  2000/01/07 16:32:22  daniel
     * copyright 2000 added
 
-  Revision 1.3  1998/07/13 12:31:40  carl
-    * bugfix of FileOpen, on error would not return zero
-
-
 }
 

+ 4 - 19
rtl/amiga/os.inc

@@ -21,28 +21,13 @@
 
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:29  daniel
+  Revision 1.4  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:29  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:22  daniel
     * copyright 2000 added
 
-  Revision 1.1.1.1  1998/03/25 11:18:47  root
-  * Restored version
-
-  Revision 1.3  1998/01/30 13:22:24  carl
-   - undef amiga!
-
-  Revision 1.2  1998/01/26 12:02:47  michael
-  + Added log at the end
-
-
-  
-  Working file: rtl/amiga/os.inc
-  description:
-  ----------------------------
-  revision 1.1
-  date: 1998/01/24 05:11:03;  author: carl;  state: Exp;
-    + initial revision
-  =============================================================================
 }

+ 4 - 58
rtl/go32v2/crt.pp

@@ -820,7 +820,10 @@ end.
 
 {
   $Log$
-  Revision 1.11  2000-01-07 16:41:30  daniel
+  Revision 1.12  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.11  2000/01/07 16:41:30  daniel
     * copyright 2000
 
   Revision 1.10  2000/01/07 16:32:23  daniel
@@ -838,61 +841,4 @@ end.
   Revision 1.6  1999/10/22 14:36:20  peter
     * crtreturn also needs f:textrec as parameter
 
-  Revision 1.5  1999/06/09 16:46:09  peter
-    * fixed fullwin,textbackground
-
-  Revision 1.4  1999/03/26 00:00:17  peter
-    * fixed lastmode at startup for > 25 lines
-
-  Revision 1.3  1999/02/03 09:56:17  florian
-    + added simple support for monochrome video cards (not cursors yet),
-      thanks to Jeff Patterson
-
-  Revision 1.2  1999/01/22 11:12:09  florian
-    + support of font8x8 added
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.17  1998/12/15 22:42:49  peter
-    * removed temp symbols
-
-  Revision 1.16  1998/12/09 23:04:36  jonas
-    * fixed bug in InsLine (changed "my" from "WinMaxY -1" to "WinMaxY - WinMinY")
-
-  Revision 1.15  1998/11/28 14:09:48  peter
-    * NOATTCDQ define
-
-  Revision 1.14  1998/11/26 23:14:52  jonas
-    * changed cdq to cltd in AT&T assembler block
-
-  Revision 1.13  1998/08/26 10:01:54  peter
-    * fixed readln cursor position
-
-  Revision 1.12  1998/08/19 17:57:55  peter
-    * fixed crtread with wrong cursor position
-
-  Revision 1.11  1998/08/19 14:55:44  peter
-    * fixed removeline which scrolled too much lines
-
-  Revision 1.10  1998/08/18 13:32:46  carl
-    * bugfix to make it work with FPC 0.99.5 (Delayloop is not correctly
-  converted by ATT parser)
-
-  Revision 1.9  1998/08/15 17:00:10  peter
-    * moved delaycnt from interface to implementation
-
-  Revision 1.8  1998/08/08 21:56:45  peter
-    * updated crt with new delay, almost like bp7 routine
-
-  Revision 1.5  1998/05/31 14:18:12  peter
-    * force att or direct assembling
-    * cleanup of some files
-
-  Revision 1.4  1998/05/28 10:21:38  pierre
-    * Handles of input and output restored
-
-  Revision 1.3  1998/05/27 00:19:16  peter
-    * fixed crt input
-
 }

+ 4 - 12
rtl/go32v2/disk.inc

@@ -77,18 +77,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:30  daniel
-    * copyright 2000
-
-  Revision 1.2  1999/04/08 12:22:58  peter
-    * removed os.inc
+  Revision 1.4  2000-02-09 16:59:28  peter
+    * truncated log
 
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.2  1998/10/30 14:13:13  michael
-  + Implementation of functions by Gertjan Schouten
+  Revision 1.3  2000/01/07 16:41:30  daniel
+    * copyright 2000
 
-  Revision 1.1  1998/10/11 13:42:55  michael
-  Added disk functions
 }

+ 4 - 54
rtl/go32v2/dos.pp

@@ -1169,7 +1169,10 @@ End;
 end.
 {
   $Log$
-  Revision 1.21  2000-02-09 13:00:32  peter
+  Revision 1.22  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.21  2000/02/09 13:00:32  peter
     + getlongname
 
   Revision 1.20  2000/02/02 17:34:49  pierre
@@ -1210,59 +1213,6 @@ end.
     * fsearch checks first if the specified file exists and returns that
       if it was found
 
-  Revision 1.9  1999/05/16 17:08:58  peter
-    * fixed driveletter checking
-
-  Revision 1.8  1999/05/08 19:47:22  peter
-    * check ioresult after getdir calls
-
-  Revision 1.7  1999/05/04 23:55:50  pierre
-   * unneeded assembler code converted to pascal
-
-  Revision 1.6  1999/04/28 11:42:44  peter
-    + FileNameCaseSensetive boolean
-
-  Revision 1.5  1999/04/02 00:01:29  peter
-    * fixed LFNFindfirst on network drives
-
-  Revision 1.4  1999/03/01 15:40:48  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.3  1999/01/22 15:44:59  pierre
-   Daniel change removed : broke make cycle !!
-
-  Revision 1.2  1999/01/22 10:07:03  daniel
-  - Findclose removed: This is TP incompatible!!
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.19  1998/11/23 13:53:59  peter
-    * more fexpand fixes from marco van de voort
-
-  Revision 1.18  1998/11/23 12:48:02  peter
-    * fexpand('o:') fixed to return o:\ (from the mailinglist)
-
-  Revision 1.17  1998/11/22 09:33:21  florian
-    * fexpand bug (temp. strings were too shoort) fixed, was reported
-      by Marco van de Voort
-
-  Revision 1.16  1998/11/17 09:37:41  pierre
-   * explicit conversion from word dosreg.ax to integer doserror
-
-  Revision 1.15  1998/11/01 20:27:18  peter
-    * fixed some doserror settings
-
-  Revision 1.14  1998/10/22 15:05:28  pierre
-   * fsplit adapted to long filenames
-
-  Revision 1.13  1998/09/16 16:47:24  peter
-    * merged fixes
-
-  Revision 1.11.2.2  1998/09/16 16:16:04  peter
-    * go32v1 compiles again
-
 }
 
 

+ 4 - 14
rtl/go32v2/dpmi.inc

@@ -45,7 +45,10 @@ asm
 
 {
 $Log$
-Revision 1.3  2000-01-07 16:41:31  daniel
+Revision 1.4  2000-02-09 16:59:28  peter
+  * truncated log
+
+Revision 1.3  2000/01/07 16:41:31  daniel
   * copyright 2000
 
 Revision 1.2  2000/01/07 16:32:23  daniel
@@ -54,17 +57,4 @@ Revision 1.2  2000/01/07 16:32:23  daniel
 Revision 1.1  1999/11/08 11:15:21  peter
   * move graph.inc to the target dir
 
-Revision 1.2  1999/07/12 13:27:10  jonas
-  + added Log and Id tags
-  * added first FPC support, only VGA works to some extend for now
-  * use -dasmgraph to use assembler routines, otherwise Pascal
-    equivalents are used
-  * use -dsupportVESA to support VESA (crashes under FPC for now)
-  * only dispose vesainfo at closegrph if a vesa card was detected
-  * changed int32 to longint (int32 is not declared under FPC)
-  * changed the declaration of almost every procedure in graph.inc to
-    "far;" becquse otherwise you can't assign them to procvars under TP
-    real mode (but unexplainable "data segnment too large" errors prevent
-    it from working under real mode anyway)
-
 }

+ 4 - 65
rtl/go32v2/dpmiexcp.pp

@@ -893,7 +893,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  2000-01-10 12:14:57  pierre
+  Revision 1.11  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.10  2000/01/10 12:14:57  pierre
    * add $goto on to avoid problems
 
   Revision 1.9  2000/01/07 16:41:31  daniel
@@ -902,68 +905,4 @@ end.
   Revision 1.8  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.7  1999/03/01 15:40:49  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.6  1999/02/05 12:49:25  pierre
-   <> debug conditionnal renamed DPMIEXCP_DEBUG
-
-  Revision 1.5  1999/01/22 15:46:33  pierre
-   * PsignalHandler is now a pointer as changed in linux.pp
-
-  Revision 1.4  1999/01/22 12:39:19  pierre
-   + added text arg for dump_stack
-
-  Revision 1.3  1999/01/18 09:14:20  pierre
-   * exception_level counting was wrong if dpmi_jmp_buf was copied
-
-  Revision 1.2  1998/12/21 14:23:12  pierre
-  dpmiexcp.pp
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.11  1998/11/17 09:42:50  pierre
-   * position check of signal handler was wrong
-
-  Revision 1.10  1998/10/13 21:42:42  peter
-    * cleanup and use of external var
-    * fixed ctrl-break crashes
-
-  Revision 1.9  1998/08/20 08:08:36  pierre
-    * dpmiexcp did not compile with older versions
-      due to the proc to procvar bug
-    * makefile separator problem fixed
-
-  Revision 1.8  1998/08/19 10:56:33  pierre
-    + added some special code for C interface
-      to avoid loading of crt1.o or dpmiexcp.o from the libc.a
-
-  Revision 1.7  1998/08/15 17:01:13  peter
-    * smartlinking the units works now
-    * setjmp/longjmp -> dmpi_setjmp/dpmi_longjmp to solve systemunit
-      conflict
-
-  Revision 1.6  1998/08/04 13:31:32  pierre
-    * changed all FPK into FPC
-
-  Revision 1.5  1998/07/08 12:02:19  carl
-    * make it compiler under fpc v0995
-
-  Revision 1.4  1998/06/26 08:19:08  pierre
-    + all debug in ifdef SYSTEMDEBUG
-    + added local arrays :
-      opennames names of opened files
-      fileopen boolean array to know if still open
-      usefull with gdb if you get problems about too
-      many open files !!
-
-  Revision 1.3  1998/05/31 14:18:23  peter
-    * force att or direct assembling
-    * cleanup of some files
-
-  Revision 1.2  1998/04/21 14:46:33  pierre
-    + debug info better output
-      no normal code changed
 }

+ 4 - 17
rtl/go32v2/dxeload.pp

@@ -96,26 +96,13 @@ end;
 end.
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:31  daniel
+  Revision 1.4  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:31  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.5  1998/10/23 16:45:41  pierre
-   * check if file can be opened, returns nil if not
-
-  Revision 1.4  1998/10/21 17:05:46  pierre
-   * wmemu387.dxe was not closed !!
-
-  Revision 1.3  1998/10/21 16:51:08  pierre
-   * dxeload range check problem solved
-
-  Revision 1.2  1998/05/31 14:18:24  peter
-    * force att or direct assembling
-    * cleanup of some files
-
 }

+ 4 - 27
rtl/go32v2/emu387.pp

@@ -217,7 +217,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:31  daniel
+  Revision 1.8  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:31  daniel
     * copyright 2000
 
   Revision 1.6  2000/01/07 16:32:23  daniel
@@ -226,30 +229,4 @@ end.
   Revision 1.5  1999/09/08 18:55:50  peter
     * pointer fixes
 
-  Revision 1.4  1999/04/28 00:27:43  pierre
-   * bug0230 fixed OVERFLOW and DIVZ cause FPU exception
-
-  Revision 1.3  1999/04/08 12:22:59  peter
-    * removed os.inc
-
-  Revision 1.2  1999/03/01 15:40:50  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.9  1998/10/26 14:49:45  pierre
-   * system debug info output to stderr
-
-  Revision 1.8  1998/08/15 17:01:14  peter
-    * smartlinking the units works now
-    * setjmp/longjmp -> dmpi_setjmp/dpmi_longjmp to solve systemunit
-      conflict
-
-  Revision 1.7  1998/07/22 21:37:51  michael
-  + ENViron unknow, replaced by envp
-
-  Revision 1.6  1998/07/21 12:06:56  carl
-    * restored working version
 }

+ 4 - 29
rtl/go32v2/filutil.inc

@@ -456,7 +456,10 @@ end;
 
 {
   $Log$
-  Revision 1.11  2000-01-16 22:25:38  peter
+  Revision 1.12  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.11  2000/01/16 22:25:38  peter
     * check handle for file closing
 
   Revision 1.10  2000/01/07 16:41:31  daniel
@@ -474,32 +477,4 @@ end;
   Revision 1.6  1999/08/19 14:00:08  pierre
    * bug in country info code fixed
 
-  Revision 1.5  1999/02/28 13:18:12  michael
-  + Added internationalization support
-
-  Revision 1.4  1999/02/24 15:57:28  michael
-  + Moved getlocaltime to system-dependent files
-
-  Revision 1.3  1999/02/09 17:16:59  florian
-    + typinfo is now also in the makefile for go32v2
-    + sysutils.filetruncate for go32v2
-
-  Revision 1.2  1999/02/03 11:42:31  michael
-  + Added filetruncate
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-    * use -FE
-
-  Revision 1.4  1998/10/29 13:16:19  michael
-  * Fix for fileseek by gertjan schouten
-
-  Revision 1.3  1998/10/15 09:39:13  michael
-  Changes from Gretjan Schouten
-
-  Revision 1.2  1998/10/12 08:02:16  michael
-  wrong file committed
-
-  Revision 1.1  1998/10/11 12:21:01  michael
-  Added file calls. Implemented for linux only
-
 }

+ 4 - 31
rtl/go32v2/go32.pp

@@ -1171,7 +1171,10 @@ end.
 
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:31  daniel
+  Revision 1.8  2000-02-09 16:59:28  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:31  daniel
     * copyright 2000
 
   Revision 1.6  2000/01/07 16:32:23  daniel
@@ -1182,34 +1185,4 @@ end.
     * global_dos_alloc returns zero and set int31error
       if DPMI call fails
 
-  Revision 1.4  1999/05/13 21:54:27  peter
-    * objpas fixes
-
-  Revision 1.3  1999/03/26 00:01:52  peter
-    * fixed rounding in global_dos_alloc
-
-  Revision 1.2  1999/03/01 15:40:51  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.1  1998/12/21 13:07:03  peter
-    * use -FE
-
-  Revision 1.12  1998/08/27 10:30:50  pierre
-    * go32v1 RTL did not compile (LFNsupport outside go32v2 defines !)
-      I renamed tb_selector to tb_segment because
-        it is a real mode segment as opposed to
-        a protected mode selector
-      Fixed it for go32v1 (remove the $E0000000 offset !)
-
-  Revision 1.11  1998/08/26 10:04:02  peter
-    * new lfn check from mailinglist
-    * renamed win95 -> LFNSupport
-    + tb_selector, tb_offset for easier access to transferbuffer
-
-  Revision 1.10  1998/08/11 00:07:17  peter
-    * $ifdef ver0_99_5 instead of has_property
-
-  Revision 1.9  1998/07/21 12:06:03  carl
-    * restored working version
 }

+ 4 - 80
rtl/go32v2/graph.inc

@@ -2521,7 +2521,10 @@ const CrtAddress: word = 0;
 
 {
 $Log$
-Revision 1.12  2000-01-02 19:00:30  jonas
+Revision 1.13  2000-02-09 16:59:28  peter
+  * truncated log
+
+Revision 1.12  2000/01/02 19:00:30  jonas
   * another small fix to getpixel320 and putpixel320 (when clip = off)
 
 Revision 1.11  1999/12/29 16:43:44  jonas
@@ -2609,83 +2612,4 @@ Revision 1.19  1999/09/24 22:52:38  jonas
   * bugfix for notput in 32k and 64k vesa modes
   * a div replaced by / in fillpoly
 
-Revision 1.18  1999/09/24 14:22:38  jonas
-  + getscanline16
-
-Revision 1.17  1999/09/24 11:31:38  jonas
-  * fixed another typo :(
-
-Revision 1.16  1999/09/23 14:00:41  jonas
-  * -dlogging no longer required to fuction correctly
-  * some typo's fixed
-
-Revision 1.15  1999/09/22 13:13:34  jonas
-  * renamed text.inc -> gtext.inc to avoid conflict with system unit
-  * fixed textwidth
-  * isgraphmode now gets properly updated, so mode restoring works
-    again
-
-Revision 1.14  1999/09/18 22:21:09  jonas
-  + hlinevesa256 and vlinevesa256
-  + supPort for not/xor/or/andput in vesamodes with 32k/64k colors
-  * lots of changes to avoid warnings under FPC
-
-Revision 1.13  1999/09/18 16:03:36  jonas
-  * graph.pp: removed pieslice and sector from ToDo list
-  * closegraph: exits now immidiately if isgraphmode = false (caused
-    RTE 204 with VESA enabled if you set exitproc to call closegraph
-    and also called closegraph explicitely before exit, like bgidemo)
-
-Revision 1.12  1999/09/15 13:37:50  jonas
-  * small change to internalellipsedef to be TP compatible
-  * fixed directputpixel for vga 320*200*256
-
-Revision 1.11  1999/09/12 17:28:59  jonas
-  * several changes to internalellipse to make it faster
-    and to make sure it updates the ArcCall correctly
-    (not yet done for width = 3)
-  * Arc mostly works now, only sometimes an endless loop, don't know
-    why
-
-Revision 1.10  1999/09/11 19:43:01  jonas
-  * FloodFill: did not take into account current viewPort settings
-  * GetScanLine: only get line inside viewPort, data outside of it
-    is not used anyway
-  * InternalEllipseDefault: fix for when xradius or yradius = 0 and
-    increase xradius and yradius always by one (TP does this too)
-  * fixed conlict in vesa.inc from last update
-  * some conditionals to avoid range check and overflow errors in
-    places where it doesn't matter
-
-Revision 1.9  1999/08/01 14:50:51  jonas
-  * fixed hline16 and vline16 for notput (also TP supports copy, and, or, xor and
-    notput for lines!!)
-  * fixed directputpixel16 to support all the different put types
-
-Revision 1.8  1999/07/18 15:07:19  jonas
-  + xor-, and and- orput supPort for VESA256 modes
-  * compile with -dlogging if you want some info to be logged to grlog.txt
-
-Revision 1.7  1999/07/14 18:18:02  florian
-  * cosmetic changes
-
-Revision 1.6  1999/07/14 18:16:23  florian
-  * HLine16 and VLine16 implemented
-
-Revision 1.5  1999/07/14 14:32:12  florian
-  * small VGA detection problem solved
-
-Revision 1.4  1999/07/12 13:27:08  jonas
-  + added Log and Id tags
-  * added first FPC supPort, only VGA works to some extend for now
-  * use -dasmgraph to use assembler routines, otherwise Pascal
-    equivalents are used
-  * use -dsupPortVESA to supPort VESA (crashes under FPC for now)
-  * only dispose vesainfo at closegrph if a vesa card was detected
-  * changed int32 to longint (int32 is not declared under FPC)
-  * changed the declaration of almost every procedure in graph.inc to
-    "far;" because otherwise you can't assign them to procvars under TP
-    real mode (but unexplainable "data segnment too large" errors prevent
-    it from working under real mode anyway)
-
 }

+ 4 - 10
rtl/go32v2/initc.pp

@@ -95,7 +95,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2000-01-09 00:35:17  pierre
+  Revision 1.6  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.5  2000/01/09 00:35:17  pierre
    * initc now loads dpmiexcp unit to avoid linker problems
 
   Revision 1.4  2000/01/07 16:41:32  daniel
@@ -104,13 +107,4 @@ end.
   Revision 1.3  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.2  1998/12/21 14:13:07  pierre
-   * problems with procvar address solved
-
-  Revision 1.1  1998/12/21 13:14:30  peter
-    * moved
-
-  Revision 1.1  1998/12/21 11:56:26  pierre
-   First implementation of intc unit
-
 }

+ 4 - 4
rtl/go32v2/msmouse.pp

@@ -391,13 +391,13 @@ Begin
 End.
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:32  daniel
+  Revision 1.4  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:32  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.1  1999/01/21 11:54:37  peter
-    * renamed mouse->msmouse to resolve conflict with the api mouse unit
-
 }

+ 4 - 8
rtl/go32v2/objinc.inc

@@ -131,17 +131,13 @@ END;
 
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:32  daniel
+  Revision 1.4  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:32  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.1  1998/12/21 13:07:03  peter
-    * use -FE
-
-  Revision 1.2  1998/05/31 14:18:26  peter
-    * force att or direct assembling
-    * cleanup of some files
-
 }

+ 4 - 31
rtl/go32v2/ports.pp

@@ -103,7 +103,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:32  daniel
+  Revision 1.4  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:32  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:23  daniel
@@ -112,34 +115,4 @@ end.
   Revision 1.1  1999/09/01 14:47:31  pierre
    TP port construction separated into this unit
 
-  Revision 1.4  1999/05/13 21:54:27  peter
-    * objpas fixes
-
-  Revision 1.3  1999/03/26 00:01:52  peter
-    * fixed rounding in global_dos_alloc
-
-  Revision 1.2  1999/03/01 15:40:51  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.1  1998/12/21 13:07:03  peter
-    * use -FE
-
-  Revision 1.12  1998/08/27 10:30:50  pierre
-    * go32v1 RTL did not compile (LFNsupport outside go32v2 defines !)
-      I renamed tb_selector to tb_segment because
-        it is a real mode segment as opposed to
-        a protected mode selector
-      Fixed it for go32v1 (remove the $E0000000 offset !)
-
-  Revision 1.11  1998/08/26 10:04:02  peter
-    * new lfn check from mailinglist
-    * renamed win95 -> LFNSupport
-    + tb_selector, tb_offset for easier access to transferbuffer
-
-  Revision 1.10  1998/08/11 00:07:17  peter
-    * $ifdef ver0_99_5 instead of has_property
-
-  Revision 1.9  1998/07/21 12:06:03  carl
-    * restored working version
 }

+ 4 - 9
rtl/go32v2/printer.pp

@@ -40,18 +40,13 @@ begin
 end.
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:32  daniel
+  Revision 1.4  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:32  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.1  1998/12/21 13:07:03  peter
-    * use -FE
-
-  Revision 1.2  1998/05/22 00:39:26  peter
-    * go32v1, go32v2 recompiles with the new objects
-    * remake3 works again with go32v2
-    - removed some "optimizes" from daniel which were wrong
-
 }

+ 4 - 19
rtl/go32v2/profile.pp

@@ -324,28 +324,13 @@ begin
 end.
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:32  daniel
+  Revision 1.5  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:32  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:23  daniel
     * copyright 2000 added
 
-  Revision 1.2  1999/03/02 13:56:35  peter
-    * use ATT assembler in profile
-    * use AS output in graph
-
-  Revision 1.1  1998/12/21 13:07:03  peter
-    * use -FE
-
-  Revision 1.4  1998/11/18 09:22:10  pierre
-    + added $error if compiled with -pg
-    + all output to stderr
-
-  Revision 1.3  1998/11/17 09:43:22  pierre
-   + No stack check
-
-  Revision 1.2  1998/05/31 14:18:28  peter
-    * force att or direct assembling
-    * cleanup of some files
-
 }

+ 4 - 42
rtl/go32v2/system.pp

@@ -1370,7 +1370,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.32  2000-02-09 12:41:14  peter
+  Revision 1.33  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.32  2000/02/09 12:41:14  peter
     * halt moved to system.inc
 
   Revision 1.31  2000/01/24 11:57:18  daniel
@@ -1425,45 +1428,4 @@ End.
   Revision 1.15  1999/08/19 14:03:16  pierre
    * use sysgetmem for startup and debug allocations
 
-  Revision 1.14  1999/07/19 07:57:49  michael
-  + Small fix from Michael Baikov in setup_params
-
-  Revision 1.13  1999/05/19 16:54:21  pierre
-   * closes all handles >+ 5
-
-  Revision 1.12  1999/05/17 21:52:33  florian
-    * most of the Object Pascal stuff moved to the system unit
-
-  Revision 1.11  1999/05/04 23:28:40  pierre
-    SYSTEM_DEBUG_STARTUP used to output args and env at start
-
-  Revision 1.10  1999/04/28 11:42:45  peter
-    + FileNameCaseSensetive boolean
-
-  Revision 1.9  1999/04/28 06:01:25  florian
-    * define MT for multithreading introduced
-
-  Revision 1.8  1999/04/08 12:23:02  peter
-    * removed os.inc
-
-  Revision 1.7  1999/03/10 22:15:28  florian
-    + system.cmdline variable for go32v2 and win32 added
-
-  Revision 1.6  1999/03/01 15:40:52  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.5  1999/01/18 10:05:50  pierre
-   + system_exit procedure added
-
-  Revision 1.4  1998/12/30 22:17:59  peter
-    * fixed mem decls to use $0:$0
-
-  Revision 1.3  1998/12/28 15:50:45  peter
-    + stdout, which is needed when you write something in the system unit
-      to the screen. Like the runtime error
-
-  Revision 1.2  1998/12/21 14:22:02  pierre
-   * old_int?? transformed to cvar to be readable by dpmiexcp
-
 }

+ 4 - 6
rtl/go32v2/thread.inc

@@ -39,12 +39,10 @@ function relocate_threadvar(offset : dword) : pointer;[public,alias: 'FPC_RELOCA
 
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:32  daniel
-    * copyright 2000
+  Revision 1.4  2000-02-09 16:59:29  peter
+    * truncated log
 
-  Revision 1.2  1999/04/28 06:01:26  florian
-    * define MT for multithreading introduced
+  Revision 1.3  2000/01/07 16:41:32  daniel
+    * copyright 2000
 
-  Revision 1.1  1999/04/27 19:41:06  florian
-    + first implementation for DOS, only a dummy
 }

+ 4 - 18
rtl/i386/cpu.pp

@@ -75,24 +75,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2000-01-07 16:41:32  daniel
-    * copyright 2000
-
-  Revision 1.5  1998/09/14 10:48:06  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.4  1998/08/11 00:04:46  peter
-    * $ifdef ver0_99_5 updates
+  Revision 1.7  2000-02-09 16:59:29  peter
+    * truncated log
 
-  Revision 1.3  1998/05/25 10:51:27  pierre
-    * CR0 works now (written using DB to allow to use it we INTEL and ATT output)
-    * floating_emulation bit set correctly
-
-  Revision 1.2  1998/05/12 10:42:41  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
+  Revision 1.6  2000/01/07 16:41:32  daniel
+    * copyright 2000
 
 }

+ 4 - 146
rtl/i386/i386.inc

@@ -1154,7 +1154,10 @@ end;
 
 {
   $Log$
-  Revision 1.68  2000-01-13 13:06:03  jonas
+  Revision 1.69  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.68  2000/01/13 13:06:03  jonas
     * fixed warning
 
   Revision 1.67  2000/01/11 21:11:04  marco
@@ -1214,149 +1217,4 @@ end;
     * saveregister is now working and used for assert and iocheck (which has
       been moved to system.inc because it's now system independent)
 
-  Revision 1.49  1999/07/06 10:53:52  peter
-    * removed temp defines
-
-  Revision 1.48  1999/07/03 09:03:47  florian
-    * int_new_class returned with zero flag=1, if at the entrance eax was zero
-      and newinstance wasn't called, fixed
-
-  Revision 1.47  1999/05/31 22:03:37  pierre
-   * added $define FPC_SYSTEM_HAS_... for use with generic.inc
-
-  Revision 1.46  1999/05/31 12:49:19  peter
-    * smaller sptr function
-
-  Revision 1.45  1999/04/22 10:52:40  peter
-    * nil check for strpas
-
-  Revision 1.44  1999/04/19 06:13:28  florian
-    * the class helper routines doesn't store the registers properly,
-      fixed
-
-  Revision 1.43  1999/04/08 11:30:57  peter
-    * removed warnings
-
-  Revision 1.42  1999/04/07 16:21:10  pierre
-   + no assembler if systemdebug defined
-
-  Revision 1.41  1999/03/01 15:40:55  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.40  1999/02/22 13:23:22  pierre
-   * VMT field zeroed at destructor forgot offset !!
-
-  Revision 1.39  1999/02/05 12:26:25  pierre
-   + code for FPC_TESTOBJEXT conditionnal
-
-  Revision 1.38  1999/02/02 11:04:27  florian
-    * class destructor helper routine for the new calling copnventions fixed
-
-  Revision 1.37  1998/12/21 14:28:20  pierre
-    * HandleError -> HandleErrorFrame to avoid problem in
-      assembler code in i386.inc
-      (call to overloaded function in assembler block !)
-
-  Revision 1.36  1998/12/18 17:21:32  peter
-    * fixed io-error handling
-
-  Revision 1.35  1998/12/15 22:42:53  peter
-    * removed temp symbols
-
-  Revision 1.34  1998/11/30 15:27:28  pierre
-   * vmt address pushed for CHECK_OBJECT was not removed from stack
-
-  Revision 1.33  1998/11/28 14:09:49  peter
-    * NOATTCDQ define
-
-  Revision 1.32  1998/11/26 23:15:08  jonas
-    * changed cdq to cltd in AT&T assembler block
-
-  Revision 1.31  1998/11/26 21:33:58  peter
-    + FPC_BOUNDCHECK
-
-  Revision 1.30  1998/11/17 00:41:08  peter
-    * renamed string functions
-
-  Revision 1.29  1998/10/19 08:49:16  pierre
-   * removed old code forgotten about vmtoffset
-
-  Revision 1.28  1998/10/16 13:37:46  pierre
-    * added code for vmt_offset in destructors
-
-  Revision 1.27  1998/10/16 08:53:50  peter
-    * fill_object in constructor changed to 'inline' code to overcome
-      pushw/pushl problem
-
-  Revision 1.26  1998/10/15 11:35:02  pierre
-   + first step of variable vmt offset
-     offset is stored in R_EDI (R_D0)
-     if objectvmtoffset is defined
-
-  Revision 1.25  1998/09/28 11:02:34  peter
-    * added some more $ifdef FPCNAMES
-
-  Revision 1.24  1998/09/28 10:23:43  florian
-    * FPC_NEW_CLASS optimized: addl $0,%eax => orl %eax,%eax
-
-  Revision 1.23  1998/09/28 08:40:47  michael
-  + Bugreport from Gertjan Schouten
-
-  Revision 1.22  1998/09/22 15:32:00  peter
-    + fpc_pchar_to_str alias for strpas
-
-  Revision 1.21  1998/09/14 10:48:08  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.20  1998/09/11 17:38:48  pierre
-     merge for fixes branch
-
-  Revision 1.19.2.1  1998/09/11 17:37:24  pierre
-    * correction respective to stricter as v2.9.1 syntax
-
-  Revision 1.19  1998/09/01 17:36:17  peter
-    + internconst
-
-  Revision 1.18  1998/08/11 00:04:47  peter
-    * $ifdef ver0_99_5 updates
-
-  Revision 1.17  1998/07/30 13:26:20  michael
-  + Added support for ErrorProc variable. All internal functions are required
-    to call HandleError instead of runerror from now on.
-    This is necessary for exception support.
-
-  Revision 1.16  1998/07/02 12:55:04  carl
-    * Put back DoError, DO NOT TOUCH!
-
-  Revision 1.15  1998/07/02 12:19:32  carl
-    + IO-Error and Overflow now print address in hex
-
-  Revision 1.14  1998/07/01 15:29:58  peter
-    * better readln/writeln
-
-  Revision 1.13  1998/06/26 08:20:57  daniel
-  - Doerror removed.
-
-  Revision 1.12  1998/05/31 14:15:47  peter
-    * force to use ATT or direct parsing
-
-  Revision 1.11  1998/05/30 14:30:21  peter
-    * force att reading
-
-  Revision 1.10  1998/05/25 10:40:49  peter
-    * remake3 works again on tflily
-
-  Revision 1.5  1998/04/29 13:28:19  peter
-    * some cleanup and i386_att usage
-
-  Revision 1.4  1998/04/10 15:41:54  florian
-    + some small comments added
-
-  Revision 1.3  1998/04/10 15:25:23  michael
-  - Removed so-called better random function
-
-  Revision 1.2  1998/04/08 07:53:31  michael
-  + Changed Random() function. Moved from system to processor dependent files (from Pedro Gimeno)
 }

+ 4 - 48
rtl/i386/math.inc

@@ -370,7 +370,10 @@
 
 {
   $Log$
-  Revision 1.19  2000-01-07 16:41:33  daniel
+  Revision 1.20  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.19  2000/01/07 16:41:33  daniel
     * copyright 2000
 
   Revision 1.18  2000/01/07 16:32:24  daniel
@@ -383,51 +386,4 @@
   Revision 1.16  1999/09/15 20:24:11  florian
     * some math functions are now coded inline by the compiler
 
-  Revision 1.15  1999/07/06 15:35:59  peter
-    * removed temp defines
-
-  Revision 1.14  1999/03/01 15:40:57  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.13  1998/12/15 22:42:56  peter
-    * removed temp symbols
-
-  Revision 1.12  1998/11/24 12:54:57  peter
-    * removed all explicit leave;ret commands and let them generate by
-      the compiler (needed for stack alignment)
-
-  Revision 1.11  1998/11/16 14:26:03  pierre
-   * changed fsqrtl to fsqrt (needed by as v2.9.4 for win32)
-
-  Revision 1.10  1998/10/02 09:25:29  peter
-    * more constant expression evals
-
-  Revision 1.9  1998/09/11 17:38:49  pierre
-     merge for fixes branch
-
-  Revision 1.8.2.1  1998/09/11 17:37:25  pierre
-    * correction respective to stricter as v2.9.1 syntax
-
-  Revision 1.8  1998/09/01 17:36:18  peter
-    + internconst
-
-  Revision 1.7  1998/08/25 08:49:05  florian
-    * corrected exp() function
-
-  Revision 1.6  1998/08/11 21:39:04  peter
-    * splitted default_extended from support_extended
-
-  Revision 1.5  1998/08/11 00:04:50  peter
-    * $ifdef ver0_99_5 updates
-
-  Revision 1.4  1998/08/10 15:54:50  peter
-    * removed dup power(longint)
-
-  Revision 1.3  1998/08/08 12:28:09  florian
-    * a lot small fixes to the extended data type work
-
-  Revision 1.2  1998/05/31 14:15:49  peter
-    * force to use ATT or direct parsing
-
 }

+ 4 - 10
rtl/i386/mmx.pp

@@ -123,17 +123,11 @@ begin
 end.
 {
     $Log$
-    Revision 1.5  2000-01-07 16:41:33  daniel
-      * copyright 2000
-
-    Revision 1.4  1998/12/15 22:42:58  peter
-      * removed temp symbols
+    Revision 1.6  2000-02-09 16:59:29  peter
+      * truncated log
 
-    Revision 1.3  1998/11/13 10:10:54  peter
-      * ATT reader
-
-    Revision 1.2  1998/05/31 14:15:50  peter
-      * force to use ATT or direct parsing
+    Revision 1.5  2000/01/07 16:41:33  daniel
+      * copyright 2000
 
 }
 

+ 4 - 52
rtl/i386/rttip.inc

@@ -375,7 +375,10 @@ end;
 
 {
   $Log$
-  Revision 1.19  2000-01-11 21:11:34  marco
+  Revision 1.20  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.19  2000/01/11 21:11:34  marco
    * Direct params to internal assembler
 
   Revision 1.18  2000/01/07 16:41:33  daniel
@@ -384,55 +387,4 @@ end;
   Revision 1.17  1999/07/31 22:27:28  michael
   Object finalization data fixed
 
-  Revision 1.16  1999/03/01 15:40:58  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.15  1998/12/20 14:08:06  michael
-  + Finalize fixed after florians fix :)
-
-  Revision 1.14  1998/12/19 00:22:09  florian
-    * Finalize fixed, constant for ansistrings is 9, not 10
-
-  Revision 1.13  1998/12/15 22:42:59  peter
-    * removed temp symbols
-
-  Revision 1.12  1998/11/30 10:07:34  michael
-  + Adjusted typeinfo constants
-
-  Revision 1.11  1998/11/17 00:41:10  peter
-    * renamed string functions
-
-  Revision 1.10  1998/11/16 12:21:47  peter
-    * fixes for 0.99.8
-
-  Revision 1.9  1998/09/29 08:38:25  michael
-  + Corrections in record and array handling.
-
-  Revision 1.8  1998/09/20 17:49:07  florian
-    * some ansistring fixes
-
-  Revision 1.7  1998/09/14 10:48:11  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.6  1998/08/23 20:58:50  florian
-    + rtti for objects and classes
-    + TObject.GetClassName implemented
-
-  Revision 1.5  1998/06/25 08:41:43  florian
-    * better rtti
-
-  Revision 1.4  1998/06/17 11:50:43  michael
-  + Small patch: forgot to make alias public
-
-  Revision 1.3  1998/06/10 07:46:49  michael
-  + Forgot to commit some changes
-
-  Revision 1.2  1998/06/08 19:31:03  michael
-  + Implemented DecRef
-
-  Revision 1.1  1998/06/08 15:32:12  michael
-  + Split rtti according to processor. Implemented optimized i386 code.
-
 }

+ 4 - 31
rtl/i386/set.inc

@@ -428,40 +428,13 @@ end;
 
 {
   $Log$
-  Revision 1.12  2000-01-07 16:41:33  daniel
+  Revision 1.13  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.12  2000/01/07 16:41:33  daniel
     * copyright 2000
 
   Revision 1.11  2000/01/07 16:32:24  daniel
     * copyright 2000 added
 
-  Revision 1.10  1999/03/01 15:40:59  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.9  1999/01/20 17:48:02  jonas
-    + fixed bug0163 (set1 <= set2 support)
-
-  Revision 1.8  1998/12/15 22:43:00  peter
-    * removed temp symbols
-
-  Revision 1.7  1998/11/24 12:54:01  peter
-    + FPC_SET_CREATE_ELEMENT
-
-  Revision 1.6  1998/10/22 14:50:08  pierre
-   + added FPC_SET_UNSET_BYTE for exclude of normsets
-
-  Revision 1.5  1998/10/22 12:48:29  peter
-    * fixed for stackaligment also on 4 bytes, never use 'ret $..' direct
-
-  Revision 1.4  1998/09/14 10:48:12  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.3  1998/08/14 18:13:44  peter
-    + set_load_small
-    * fixed set_set_range
-
-  Revision 1.2  1998/05/31 14:15:51  peter
-    * force to use ATT or direct parsing
-
 }

+ 4 - 12
rtl/i386/setjump.inc

@@ -48,21 +48,13 @@ end;
 
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:33  daniel
+  Revision 1.8  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:33  daniel
     * copyright 2000
 
   Revision 1.6  1999/08/18 10:42:13  pierre
    * loading of esp value corrected
 
-  Revision 1.5  1999/03/01 15:41:00  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.4  1998/09/14 10:48:13  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.3  1998/08/11 00:04:52  peter
-    * $ifdef ver0_99_5 updates
-
 }

+ 3 - 3
rtl/i386/setjumph.inc

@@ -26,7 +26,7 @@ Procedure longjmp (Var S : Jmp_buf; value : longint);
 
 {
   $Log$
-  Revision 1.2  1998-08-11 00:04:53  peter
-    * $ifdef ver0_99_5 updates
+  Revision 1.3  2000-02-09 16:59:29  peter
+    * truncated log
 
-}  
+}  

+ 4 - 10
rtl/i386/strings.inc

@@ -337,19 +337,13 @@ end;
 
 {
   $Log$
-  Revision 1.6  2000-01-07 16:41:33  daniel
+  Revision 1.7  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.6  2000/01/07 16:41:33  daniel
     * copyright 2000
 
   Revision 1.5  1999/12/18 23:08:33  florian
     * bug 766 fixed
 
-  Revision 1.4  1999/04/09 07:58:41  michael
-  +Added checking for nil on most functions.
-
-  Revision 1.3  1999/03/30 16:58:49  peter
-    * use assembler and remove all rets
-
-  Revision 1.2  1999/02/25 10:07:01  michael
-  + Added header and log
-
 }

+ 5 - 15
rtl/i386/stringss.inc

@@ -77,7 +77,10 @@ end ['EDI','ESI','EBX','EAX','ECX'];
 
 {
   $Log$
-  Revision 1.8  2000-01-11 22:56:57  pierre
+  Revision 1.9  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.8  2000/01/11 22:56:57  pierre
     * wrong change for StrPas function corrected
 
   Revision 1.7  2000/01/11 21:12:15  marco
@@ -86,17 +89,4 @@ end ['EDI','ESI','EBX','EAX','ECX'];
   Revision 1.6  2000/01/07 16:41:33  daniel
     * copyright 2000
 
-  Revision 1.5  1999/04/08 11:30:58  peter
-    * removed warnings
-
-  Revision 1.4  1999/03/30 16:58:51  peter
-    * use assembler and remove all rets
-
-  Revision 1.3  1999/03/01 15:41:01  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.2  1999/02/25 10:07:02  michael
-  + Added header and log
-
-}
+}

+ 4 - 52
rtl/inc/astrings.inc

@@ -642,7 +642,10 @@ end;
 
 {
   $Log$
-  Revision 1.39  2000-01-07 16:41:33  daniel
+  Revision 1.40  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.39  2000/01/07 16:41:33  daniel
     * copyright 2000
 
   Revision 1.38  2000/01/07 16:32:24  daniel
@@ -670,55 +673,4 @@ end;
   Revision 1.31  1999/10/04 20:48:18  peter
     * pos function speed up by a factor 40 :)
 
-  Revision 1.30  1999/07/05 20:04:21  peter
-    * removed temp defines
-
-  Revision 1.29  1999/06/14 00:47:33  peter
-    * merged
-
-  Revision 1.28.2.1  1999/06/14 00:39:07  peter
-    * setlength finally fixed when l < length(s)
-
-  Revision 1.28  1999/06/09 23:00:16  peter
-    * small ansistring fixes
-    * val_ansistr_sint destsize changed to longint
-    * don't write low/hi ascii with -al
-
-  Revision 1.27  1999/06/05 20:48:56  michael
-  Copy checks index now for negative values.
-
-  Revision 1.26  1999/05/31 20:37:39  peter
-    * fixed decr_ansistr which didn't set s to nil
-
-  Revision 1.25  1999/05/17 22:41:24  florian
-    * small fixes for the new ansistring temp. management
-
-  Revision 1.24  1999/05/17 21:52:35  florian
-    * most of the Object Pascal stuff moved to the system unit
-
-  Revision 1.23  1999/05/06 09:05:11  peter
-    * generic write_float str_float
-
-  Revision 1.22  1999/04/22 10:51:17  peter
-    * fixed pchar 2 ansi
-
-  Revision 1.21  1999/04/13 09:02:06  michael
-  + 1 byte too much allocated in new_ansiStringastrings.inc
-
-  Revision 1.20  1999/04/09 07:33:15  michael
-  * More fixes and optimizing for ansistr_concat
-
-  Revision 1.19  1999/04/08 15:57:53  peter
-    + subrange checking for readln()
-
-  Revision 1.18  1999/04/08 10:19:55  peter
-    * fixed concat when s1 or s2 was nil
-
-  Revision 1.17  1999/04/06 11:23:58  peter
-    * fixed insert on last char
-    * saver chararray 2 ansi
-
-  Revision 1.16  1999/04/06 10:06:51  michael
-  * Fixed chararray to ansistring conversion
-
 }

+ 5 - 16
rtl/inc/except.inc

@@ -217,7 +217,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.15  2000-02-06 17:17:57  florian
+  Revision 1.16  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.15  2000/02/06 17:17:57  florian
     * popobjectstack is now a function
 
   Revision 1.14  2000/01/07 16:41:33  daniel
@@ -229,18 +232,4 @@ end;
   Revision 1.12  1999/07/26 12:11:28  florian
     * reraise doesn't call popaddrstack anymode
 
-  Revision 1.11  1999/06/14 00:47:35  peter
-    * merged
-
-  Revision 1.10.2.1  1999/06/14 00:38:18  peter
-    * don't pop object stack in catches, because it's needed for reraise
-
-  Revision 1.10  1999/05/13 18:38:26  florian
-    * more memory leaks fixed:
-         - exceptaddrobject is now properly disposed
-         - after the end of the on ... do block the exception
-           class instance is disposed
-
-  Revision 1.9  1999/05/13 16:30:18  florian
-    * popaddrstack didn't release any memory, fixed
-}
+}

+ 4 - 36
rtl/inc/file.inc

@@ -409,7 +409,10 @@ End;
 
 {
   $Log$
-  Revision 1.18  2000-01-17 20:02:30  peter
+  Revision 1.19  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.18  2000/01/17 20:02:30  peter
     * open with mode 2 in rewrite
 
   Revision 1.17  2000/01/16 22:25:38  peter
@@ -433,39 +436,4 @@ End;
   Revision 1.11  1999/09/07 15:54:18  hajny
     * fixed problem with Close under OS/2
 
-  Revision 1.10  1998/11/29 23:10:12  peter
-    * also check fmInput,fmOutput
-
-  Revision 1.9  1998/11/29 22:28:11  peter
-    + io-error 103 added
-
-  Revision 1.8  1998/09/17 16:34:16  peter
-    * new eof,eoln,seekeoln,seekeof
-    * speed upgrade for read_string
-    * inoutres 104/105 updates for read_* and write_*
-
-  Revision 1.7  1998/09/04 18:16:12  peter
-    * uniform filerec/textrec (with recsize:longint and name:0..255)
-
-  Revision 1.6  1998/07/19 19:55:32  michael
-  + fixed rename. Changed p to p^
-
-  Revision 1.5  1998/07/02 12:15:39  carl
-    + Each IOCheck routine now checks for InOures before executing, like TP
-
-  Revision 1.4  1998/06/23 16:57:16  peter
-    * fixed the filesize() problems under linux and filerec.size=0 error
-
-  Revision 1.3  1998/05/21 19:30:56  peter
-    * objects compiles for linux
-    + assign(pchar), assign(char), rename(pchar), rename(char)
-    * fixed read_text_as_array
-    + read_text_as_pchar which was not yet in the rtl
-
-  Revision 1.2  1998/05/12 10:42:44  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
-
 }

+ 4 - 10
rtl/inc/filerec.inc

@@ -35,19 +35,13 @@ type
 
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:34  daniel
+  Revision 1.8  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:34  daniel
     * copyright 2000
 
   Revision 1.6  2000/01/07 16:32:24  daniel
     * copyright 2000 added
 
-  Revision 1.5  1998/09/14 10:48:15  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.4  1998/09/04 18:16:13  peter
-    * uniform filerec/textrec (with recsize:longint and name:0..255)
-
-  Revision 1.3  1998/05/21 11:55:59  carl
-   * works with all OS
 }

+ 4 - 7
rtl/inc/generic.inc

@@ -748,7 +748,10 @@ end;
 
 {
   $Log$
-  Revision 1.6  2000-01-10 09:54:30  peter
+  Revision 1.7  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.6  2000/01/10 09:54:30  peter
     * primitives added
 
   Revision 1.5  2000/01/07 16:41:34  daniel
@@ -762,10 +765,4 @@ end;
        WARNING these are not yet TESTED !!!
      + FPC_CHARARRAY_TO_SHORTSTRING added
 
-  Revision 1.2  1999/07/05 20:04:22  peter
-    * removed temp defines
-
-  Revision 1.1  1999/05/31 21:59:58  pierre
-   + generic.inc added
-
 }

+ 4 - 23
rtl/inc/getopts.pp

@@ -510,32 +510,13 @@ begin
 end.
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:34  daniel
+  Revision 1.8  2000-02-09 16:59:29  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:34  daniel
     * copyright 2000
 
   Revision 1.6  2000/01/07 16:32:24  daniel
     * copyright 2000 added
 
-  Revision 1.5  1998/10/30 09:18:22  michael
-  Long options NEED -- as starting char
-
-  Revision 1.4  1998/10/29 23:06:55  peter
-    + OptSpecifier
-
-  Revision 1.3  1998/06/18 10:49:04  peter
-    * some fixes with indexes
-    * bp7 compatible
-
-  Revision 1.2  1998/05/21 19:30:57  peter
-    * objects compiles for linux
-    + assign(pchar), assign(char), rename(pchar), rename(char)
-    * fixed read_text_as_array
-    + read_text_as_pchar which was not yet in the rtl
-
-  Revision 1.1  1998/05/12 10:42:45  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
-
 }

+ 4 - 24
rtl/inc/heaph.inc

@@ -77,7 +77,10 @@ Procedure release(var p : pointer);
 
 {
   $Log$
-  Revision 1.16  2000-01-31 23:41:30  peter
+  Revision 1.17  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.16  2000/01/31 23:41:30  peter
     * reallocmem fixed for freemem() call when size=0
 
   Revision 1.15  2000/01/20 12:35:35  jonas
@@ -98,27 +101,4 @@ Procedure release(var p : pointer);
   Revision 1.10  1999/09/17 17:14:12  peter
     + new heap manager supporting delphi freemem(pointer)
 
-  Revision 1.9  1999/05/31 20:36:35  peter
-    * growing is now 256k or 1mb
-
-  Revision 1.8  1999/02/08 09:31:40  florian
-    * fixed small things regarding TEMPHEAP
-
-  Revision 1.7  1998/10/01 14:55:18  peter
-    + memorymanager like delphi
-
-  Revision 1.6  1998/09/08 15:03:27  peter
-    * moved getmem/freemem/memavail/maxavail to heaph.inc
-
-  Revision 1.5  1998/07/02 14:11:30  michael
-  Reinstated the heapsize function.
-
-  Revision 1.3  1998/05/12 10:42:45  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
-
-  Revision 1.2  1998/04/21 10:23:15  peter
-    + heapblocks
 }

+ 4 - 42
rtl/inc/heaptrc.pp

@@ -975,7 +975,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.39  2000-02-07 10:42:44  peter
+  Revision 1.40  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.39  2000/02/07 10:42:44  peter
     * use backtracestrfunc()
 
   Revision 1.38  2000/02/02 11:13:15  peter
@@ -1036,45 +1039,4 @@ end.
   Revision 1.20  1999/08/17 14:56:03  michael
   Removed the mode for objpas
 
-  Revision 1.19  1999/07/10 10:33:50  peter
-    * merged
-
-  Revision 1.18  1999/07/09 10:38:10  michael
-  + + heaptrc now uses finalize instead of exitproc
-
-  Revision 1.17  1999/07/05 20:22:08  peter
-    * merged
-
-  Revision 1.16.2.3  1999/07/10 10:31:56  peter
-    * removed unused var
-
-  Revision 1.16.2.2  1999/07/09 10:44:23  michael
-  + Merged finalize
-
-  Revision 1.16  1999/05/23 00:07:17  pierre
-    * support for heap allocated before TraceGetMem is used in
-      FPC_CHECKPOINTER
-    * faster CHECKPOINTER routine (list of valid blocks only !)
-
-  Revision 1.15  1999/05/18 22:15:55  pierre
-   * allow for .bss section below heaporg in go32v2 code
-
-  Revision 1.14  1999/05/16 23:56:09  pierre
-   * allow nil pointer in FPC_CHECKPOINTER !!
-
-  Revision 1.13  1999/05/12 16:49:29  pierre
-   + with EXTRA memory is filled with $F0 and checked at end
-
-  Revision 1.12  1999/05/11 12:52:42  pierre
-   + extra's with -dEXTRA, uses a CRC check for released memory
-
-  Revision 1.11  1999/03/26 19:10:34  peter
-    * show also allocation stack for a wrong size
-
-  Revision 1.10  1999/02/16 17:20:26  pierre
-   * no heap dump if program has an heap error !
-
-  Revision 1.9  1999/01/22 12:39:22  pierre
-   + added text arg for dump_stack
-
 }

+ 4 - 19
rtl/inc/innr.inc

@@ -99,7 +99,10 @@ const
 
 {
   $Log$
-  Revision 1.11  2000-01-07 16:41:34  daniel
+  Revision 1.12  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.11  2000/01/07 16:41:34  daniel
     * copyright 2000
 
   Revision 1.10  2000/01/07 16:32:24  daniel
@@ -108,23 +111,5 @@ const
   Revision 1.9  1999/09/15 20:23:16  florian
     + constants for math functions
 
-  Revision 1.8  1999/07/02 18:06:40  florian
-    + qword/int64: lo/hi/swap
-
-  Revision 1.7  1999/04/17 13:10:23  peter
-    * addr() internal
-
-  Revision 1.10  1998/10/05 12:32:45  peter
-    + assert() support
-
-  Revision 1.9  1998/10/02 09:24:20  peter
-    * more constant expression evaluators
-
-  Revision 1.4  1998/09/14 10:48:17  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.3  1998/09/01 17:36:19  peter
-    + internconst
 }
 

+ 5 - 44
rtl/inc/int64.inc

@@ -433,7 +433,10 @@
 
 {
   $Log$
-  Revision 1.17  2000-01-27 15:43:02  florian
+  Revision 1.18  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.17  2000/01/27 15:43:02  florian
     * improved qword*qword code, if no overflow checking is done
 
   Revision 1.16  2000/01/23 12:27:39  florian
@@ -445,46 +448,4 @@
   Revision 1.14  2000/01/07 16:41:34  daniel
     * copyright 2000
 
-  Revision 1.13  1999/07/05 20:04:23  peter
-    * removed temp defines
-
-  Revision 1.12  1999/07/04 16:34:45  florian
-    + str routines added
-
-  Revision 1.11  1999/07/02 17:01:29  florian
-    * multiplication overflow checking fixed
-
-  Revision 1.10  1999/07/01 15:39:50  florian
-    + qword/int64 type released
-
-  Revision 1.9  1999/06/30 22:12:40  florian
-    * qword div/mod fixed
-    + int64 mod/div/* fully implemented
-    * int_str(qword) fixed
-    + dummies for read/write(qword)
-
-  Revision 1.8  1999/06/28 22:25:25  florian
-    * fixed qword division
-
-  Revision 1.7  1999/06/25 12:24:44  pierre
-   * qword one was wrong !
-
-  Revision 1.6  1999/06/02 10:13:16  florian
-    * multiplication fixed
-
-  Revision 1.5  1999/05/25 20:36:41  florian
-    * some bugs removed
-
-  Revision 1.4  1999/05/24 08:43:46  florian
-    * fixed a couple of syntax errors
-
-  Revision 1.3  1999/05/23 20:27:27  florian
-    + routines for qword div and mod
-
-  Revision 1.2  1999/01/06 12:25:03  florian
-    * naming for str(...) routines inserted
-    * don't know what in int64 changed
-
-  Revision 1.1  1998/12/12 12:15:41  florian
-    + first implementation
-}
+}

+ 5 - 2
rtl/inc/lineinfo.pp

@@ -522,7 +522,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.4  2000-02-08 15:23:02  pierre
+  Revision 1.5  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.4  2000/02/08 15:23:02  pierre
    * fix for directories included in stabsinfo
 
   Revision 1.3  2000/02/06 22:13:42  florian
@@ -534,4 +537,4 @@ end.
   Revision 1.1  2000/02/06 17:19:22  peter
     * lineinfo unit added which uses stabs to get lineinfo for backtraces
 
-}
+}

+ 4 - 7
rtl/inc/lstrings.pp

@@ -535,13 +535,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2000-01-07 16:41:34  daniel
-    * copyright 2000
+  Revision 1.4  2000-02-09 16:59:30  peter
+    * truncated log
 
-  Revision 1.2  1998/05/12 10:42:45  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
+  Revision 1.3  2000/01/07 16:41:34  daniel
+    * copyright 2000
 
 }

+ 4 - 15
rtl/inc/mathh.inc

@@ -61,24 +61,13 @@
 
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:34  daniel
+  Revision 1.8  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:34  daniel
     * copyright 2000
 
   Revision 1.6  2000/01/07 16:32:24  daniel
     * copyright 2000 added
 
-  Revision 1.5  1998/08/11 21:39:05  peter
-    * splitted default_extended from support_extended
-
-  Revision 1.4  1998/08/11 00:05:24  peter
-    * $ifdef ver0_99_5 updates
-
-  Revision 1.3  1998/08/08 12:28:11  florian
-    * a lot small fixes to the extended data type work
-
-  Revision 1.2  1998/05/12 10:42:45  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
 }

+ 4 - 62
rtl/inc/objects.pp

@@ -2761,7 +2761,10 @@ END;
 END.
 {
   $Log$
-  Revision 1.34  2000-01-07 16:41:34  daniel
+  Revision 1.35  2000-02-09 16:59:30  peter
+    * truncated log
+
+  Revision 1.34  2000/01/07 16:41:34  daniel
     * copyright 2000
 
   Revision 1.33  2000/01/07 16:32:24  daniel
@@ -2776,65 +2779,4 @@ END.
   Revision 1.30  1999/09/10 17:15:13  peter
     * fixed freeall
 
-  Revision 1.29  1999/06/14 17:48:04  peter
-    * merged
-
-  Revision 1.28.2.1  1999/06/14 17:43:20  peter
-    * fixed lastthat
-
-  Revision 1.28  1999/02/25 21:25:26  peter
-    + SetStr() function
-
-  Revision 1.27  1999/02/22 15:04:45  peter
-    * fixed typecasting in firstthat
-
-  Revision 1.26  1999/02/21 23:13:01  florian
-    * tpcompatible flags for tstream introduced, thanks to Matthias Koeppe
-
-  Revision 1.25  1999/01/22 10:21:55  peter
-    + prect=^trect
-
-  Revision 1.24  1999/01/12 14:21:50  peter
-    * fixed TColletcion.AtInsert
-
-  Revision 1.23  1999/01/06 10:11:06  daniel
-  * Removed on more handle:=-1 statement
-
-  Revision 1.22  1998/12/30 10:26:16  peter
-    * reinserted old version, because daniel skipped 3 versions !!
-
-  Revision 1.19  1998/12/18 17:21:28  peter
-    * fixed firstthat,lastthat
-
-  Revision 1.18  1998/12/16 21:57:20  peter
-    * fixed currentframe,previousframe
-    + testcall to test the callspec unit
-
-  Revision 1.17  1998/12/16 00:22:25  peter
-    * more temp symbols removed
-
-  Revision 1.16  1998/12/08 10:11:27  peter
-    * tpoint contains now sw_integer (needed to support 64k files in the
-      editor)
-
-  Revision 1.15  1998/11/26 14:41:22  michael
-  + Fixed TREsourcefile.init
-
-  Revision 1.14  1998/11/24 17:11:22  peter
-    * made a real fpc only version, no platform.inc
-    * applied fixes from the mailinglist
-    + included some routines from callspec
-
-  Revision 1.13  1998/11/16 10:21:24  peter
-    * fixes for H+
-
-  Revision 1.12  1998/11/12 11:54:50  peter
-    * fixed for 0.99.8
-
-  Revision 1.11  1998/11/12 11:45:09  peter
-    + released object registration
-
-  Revision 1.10  1998/10/23 16:51:18  pierre
-   * vmtlink type changed to pointer
-
 }

+ 4 - 16
rtl/inc/objpas.inc

@@ -405,7 +405,10 @@
 
 {
   $Log$
-  Revision 1.13  2000-01-07 16:41:36  daniel
+  Revision 1.14  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.13  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.12  2000/01/07 16:32:25  daniel
@@ -425,19 +428,4 @@
   Revision 1.8  1999/09/08 16:14:41  peter
     * pointer fixes
 
-  Revision 1.7  1999/07/11 14:10:48  michael
-  + Adaptes Dispatch(STr) to cope with empty/non-existent message tables
-
-  Revision 1.6  1999/07/11 14:05:50  michael
-  + Added
-
-  Revision 1.5  1999/07/05 20:04:24  peter
-    * removed temp defines
-
-  Revision 1.4  1999/05/19 13:20:09  peter
-    * fixed dispatchstr
-
-  Revision 1.3  1999/05/17 21:52:37  florian
-    * most of the Object Pascal stuff moved to the system unit
-
 }

+ 4 - 4
rtl/inc/objpash.inc

@@ -220,7 +220,10 @@
        end;
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:36  daniel
+  Revision 1.8  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.7  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.6  2000/01/07 16:32:25  daniel
@@ -233,7 +236,4 @@
     * classes vmt changed to only positive addresses
     * sharedlib creation is working
 
-  Revision 1.3  1999/05/17 21:52:38  florian
-    * most of the Object Pascal stuff moved to the system unit
-
 }

+ 4 - 40
rtl/inc/real2str.inc

@@ -353,7 +353,10 @@ end;
 
 {
   $Log$
-  Revision 1.21  2000-02-09 12:17:51  peter
+  Revision 1.22  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.21  2000/02/09 12:17:51  peter
     * moved halt to system.inc
     * syslinux doesn't use direct asm anymore
 
@@ -379,43 +382,4 @@ end;
   Revision 1.14  1999/08/03 21:58:44  peter
     * small speed improvements
 
-  Revision 1.13  1999/05/06 09:05:12  peter
-    * generic write_float str_float
-
-  Revision 1.12  1999/03/10 21:49:02  florian
-    * str and val for extended use now int constants to minimize
-      rounding error
-
-  Revision 1.11  1999/02/16 00:49:20  peter
-    * fixed rounding when correct+f < 0
-
-  Revision 1.10  1998/08/11 21:39:06  peter
-    * splitted default_extended from support_extended
-
-  Revision 1.9  1998/08/11 00:05:25  peter
-    * $ifdef ver0_99_5 updates
-
-  Revision 1.8  1998/08/10 15:56:30  peter
-    * fixed 0_9_5 typo
-
-  Revision 1.7  1998/08/08 12:28:12  florian
-    * a lot small fixes to the extended data type work
-
-  Revision 1.6  1998/07/18 17:14:22  florian
-    * strlenint type implemented
-
-  Revision 1.5  1998/07/13 21:19:10  florian
-    * some problems with ansi string support fixed
-
-  Revision 1.4  1998/06/18 08:15:33  michael
-  + Fixed error when printing zero. len was calculated wron.
-
-  Revision 1.3  1998/05/12 10:42:45  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
-
-  Revision 1.2  1998/04/07 22:40:46  florian
-    * final fix of comp writing
 }

+ 4 - 10
rtl/inc/rtti.inc

@@ -71,16 +71,10 @@ TArrayRec = record
 
 { 
   $Log$
-  Revision 1.5  2000-01-07 16:41:36  daniel
-    * copyright 2000
-
-  Revision 1.4  1998/07/20 18:42:51  florian
-  *** empty log message ***
+  Revision 1.6  2000-02-09 16:59:31  peter
+    * truncated log
 
-  Revision 1.3  1998/07/13 21:19:11  florian
-    * some problems with ansi string support fixed
-
-  Revision 1.2  1998/06/08 15:32:15  michael
-  + Split rtti according to processor. Implemented optimized i386 code.
+  Revision 1.5  2000/01/07 16:41:36  daniel
+    * copyright 2000
 
 }

+ 4 - 7
rtl/inc/sockets.inc

@@ -165,16 +165,13 @@ begin
 end;
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:36  daniel
+  Revision 1.5  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:25  daniel
     * copyright 2000 added
 
-  Revision 1.2  1999/07/03 15:16:45  michael
-  + Fixed Connect call
-
-  Revision 1.1  1999/06/21 12:26:27  florian
-    + files created by splitting the linux sockets unit
-
 }

+ 4 - 7
rtl/inc/socketsh.inc

@@ -80,16 +80,13 @@ Function Connect(Sock:longint;const addr:TInetSockAddr;var SockIn,SockOut:file):
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:36  daniel
+  Revision 1.5  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:25  daniel
     * copyright 2000 added
 
-  Revision 1.2  1999/07/03 15:16:46  michael
-  + Fixed Connect call
-
-  Revision 1.1  1999/06/21 12:26:27  florian
-    + files created by splitting the linux sockets unit
-
 }

+ 4 - 69
rtl/inc/sstrings.inc

@@ -563,7 +563,10 @@ end;
 
 {
   $Log$
-  Revision 1.33  2000-01-07 16:41:36  daniel
+  Revision 1.34  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.33  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.32  2000/01/07 16:32:25  daniel
@@ -576,72 +579,4 @@ end;
   Revision 1.30  1999/11/06 14:35:39  peter
     * truncated log
 
-  Revision 1.29  1999/07/05 20:04:26  peter
-    * removed temp defines
-
-  Revision 1.28  1999/05/06 09:05:13  peter
-    * generic write_float str_float
-
-  Revision 1.27  1999/04/08 15:57:54  peter
-    + subrange checking for readln()
-
-  Revision 1.26  1999/04/05 12:28:27  michael
-  + Fixed insert with char. length byte wrapped around in some cases.
-
-  Revision 1.25  1999/04/01 22:11:50  peter
-    * fixed '1.' parsing of val
-
-  Revision 1.24  1999/04/01 22:00:49  peter
-    * universal names for str/val (ansistr instead of stransi)
-    * '1.' support for val() this is compatible with tp7
-
-  Revision 1.23  1999/03/26 00:24:16  peter
-    * last para changed to long for easier pushing with 4 byte aligns
-
-  Revision 1.22  1999/03/16 17:49:36  jonas
-    * changes for internal Val code (do a "make cycle OPT=-dvalintern" to test)
-    * in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201
-    * in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors,
-
-  Revision 1.21  1999/03/10 21:49:03  florian
-    * str and val for extended use now int constants to minimize
-      rounding error
-
-  Revision 1.20  1999/03/03 15:23:57  michael
-  + Added setstring for Delphi compatibility
-
-  Revision 1.19  1999/01/25 20:24:28  peter
-    * fixed insert to support again the max string length
-
-  Revision 1.18  1999/01/11 19:26:55  jonas
-    * made inster(string,string,index) a bit faster
-    + overloaded insert(char,string,index)
-
-  Revision 1.17  1998/12/15 22:43:02  peter
-    * removed temp symbols
-
-  Revision 1.16  1998/11/05 10:29:34  pierre
-   * fix for length(char) in const expressions
-
-  Revision 1.15  1998/11/04 10:20:50  peter
-    * ansistring fixes
-
-  Revision 1.14  1998/10/11 14:30:19  peter
-    * small typo :(
-
-  Revision 1.13  1998/10/10 15:28:46  peter
-    + read single,fixed
-    + val with code:longint
-    + val for fixed
-
-  Revision 1.12  1998/09/14 10:48:19  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.11  1998/08/11 21:39:07  peter
-    * splitted default_extended from support_extended
-
-  Revision 1.10  1998/08/08 12:28:13  florian
-    * a lot small fixes to the extended data type work
-
 }

+ 4 - 16
rtl/inc/strings.pp

@@ -136,7 +136,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:36  daniel
+  Revision 1.5  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:25  daniel
@@ -146,20 +149,5 @@ end.
     * strnew is ofcourse also different between sysutils and strings, just
       like stralloc/strdispose.
 
-  Revision 1.1  1999/02/25 07:42:03  michael
-  * Joined strings and sysutils
-
-  Revision 1.7  1998/08/05 08:59:53  michael
-  reverted to non-assmebler version, florians fix is applied.
-
-  Revision 1.4  1998/05/31 14:15:52  peter
-    * force to use ATT or direct parsing
-
-  Revision 1.3  1998/05/30 14:30:22  peter
-    * force att reading
-
-  Revision 1.2  1998/05/23 01:14:06  peter
-    + I386_ATT switch
-
 }
 

+ 4 - 4
rtl/inc/stringsi.inc

@@ -68,7 +68,10 @@
 
 {
   $Log$
-  Revision 1.6  2000-01-07 16:41:36  daniel
+  Revision 1.7  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.6  2000/01/07 16:41:36  daniel
     * copyright 2000
 
   Revision 1.5  1999/12/10 15:02:12  peter
@@ -81,7 +84,4 @@
   Revision 1.3  1999/09/01 09:25:10  peter
     * fixed return of strcat,strlcat
 
-  Revision 1.2  1999/02/25 10:05:07  michael
-  + Added header and log
-
 }

+ 4 - 53
rtl/inc/system.inc

@@ -612,7 +612,10 @@ end;
 
 {
   $Log$
-  Revision 1.82  2000-02-09 12:17:51  peter
+  Revision 1.83  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.82  2000/02/09 12:17:51  peter
     * moved halt to system.inc
     * syslinux doesn't use direct asm anymore
 
@@ -671,56 +674,4 @@ end;
   Revision 1.65  1999/07/28 12:58:22  peter
     * fixed assert() to push/pop registers
 
-  Revision 1.64  1999/07/05 20:04:27  peter
-    * removed temp defines
-
-  Revision 1.63  1999/07/03 01:24:19  peter
-    * $ifdef int64
-
-  Revision 1.62  1999/07/02 18:06:42  florian
-    + qword/int64: lo/hi/swap
-
-  Revision 1.61  1999/07/01 15:39:51  florian
-    + qword/int64 type released
-
-  Revision 1.60  1999/06/11 11:47:00  peter
-    * random doesn't rte 200 with random(0)
-
-  Revision 1.59  1999/06/05 20:45:12  michael
-  + AbstractErro should call HandleError, not runerror.
-
-  Revision 1.58  1999/05/17 21:52:39  florian
-    * most of the Object Pascal stuff moved to the system unit
-
-  Revision 1.57  1999/04/17 13:10:25  peter
-    * addr() internal
-
-  Revision 1.56  1999/04/15 12:20:01  peter
-    + finalization support
-
-  Revision 1.55  1999/03/01 15:41:03  peter
-    * use external names
-    * removed all direct assembler modes
-
-  Revision 1.54  1999/02/01 00:05:14  florian
-    + functions lo/hi for DWord type implemented
-
-  Revision 1.53  1999/01/29 09:23:09  pierre
-   * Fillchar(..,..,boolean) added
-
-  Revision 1.52  1999/01/22 12:39:23  pierre
-   + added text arg for dump_stack
-
-  Revision 1.51  1999/01/18 10:05:52  pierre
-   + system_exit procedure added
-
-  Revision 1.50  1998/12/28 15:50:46  peter
-    + stdout, which is needed when you write something in the system unit
-      to the screen. Like the runtime error
-
-  Revision 1.49  1998/12/21 14:28:21  pierre
-    * HandleError -> HandleErrorFrame to avoid problem in
-      assembler code in i386.inc
-      (call to overloaded function in assembler block !)
-
 }

+ 4 - 57
rtl/inc/systemh.inc

@@ -428,7 +428,10 @@ const
 
 {
   $Log$
-  Revision 1.77  2000-02-06 17:19:22  peter
+  Revision 1.78  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.77  2000/02/06 17:19:22  peter
     * lineinfo unit added which uses stabs to get lineinfo for backtraces
 
   Revision 1.76  2000/01/21 15:32:07  jonas
@@ -480,60 +483,4 @@ const
   Revision 1.62  1999/08/19 11:16:13  peter
     * settextbuf size is now longint
 
-  Revision 1.61  1999/07/05 20:04:28  peter
-    * removed temp defines
-
-  Revision 1.60  1999/07/03 01:24:21  peter
-    * $ifdef int64
-
-  Revision 1.59  1999/07/02 18:06:43  florian
-    + qword/int64: lo/hi/swap
-
-  Revision 1.58  1999/06/30 22:17:22  florian
-    + fpuint64 to system unit interface added: if it is true, the rtl
-      uses the fpu to do int64 operations, if possible
-
-  Revision 1.57  1999/05/17 21:52:40  florian
-    * most of the Object Pascal stuff moved to the system unit
-
-  Revision 1.56  1999/05/06 09:05:14  peter
-    * generic write_float str_float
-
-  Revision 1.55  1999/04/17 13:10:26  peter
-    * addr() internal
-
-  Revision 1.54  1999/04/08 15:57:56  peter
-    + subrange checking for readln()
-
-  Revision 1.53  1999/03/16 17:49:37  jonas
-    * changes for internal Val code (do a "make cycle OPT=-dvalintern" to test)
-    * in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201
-    * in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors,
-
-  Revision 1.52  1999/03/10 22:15:30  florian
-    + system.cmdline variable for go32v2 and win32 added
-
-  Revision 1.51  1999/03/03 15:23:58  michael
-  + Added setstring for Delphi compatibility
-
-  Revision 1.50  1999/02/01 00:05:16  florian
-    + functions lo/hi for DWord type implemented
-
-  Revision 1.49  1999/01/29 09:23:10  pierre
-   * Fillchar(..,..,boolean) added
-
-  Revision 1.48  1999/01/22 12:39:24  pierre
-   + added text arg for dump_stack
-
-  Revision 1.47  1999/01/11 19:26:53  jonas
-    * made inster(string,string,index) a bit faster
-    + overloaded insert(char,string,index)
-
-  Revision 1.46  1998/12/28 15:50:48  peter
-    + stdout, which is needed when you write something in the system unit
-      to the screen. Like the runtime error
-
-  Revision 1.45  1998/12/15 22:43:04  peter
-    * removed temp symbols
-
 }

+ 4 - 39
rtl/inc/text.inc

@@ -1066,7 +1066,10 @@ end;
 
 {
   $Log$
-  Revision 1.68  2000-01-31 12:11:53  jonas
+  Revision 1.69  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.68  2000/01/31 12:11:53  jonas
     * committed the rest of my fix :)
 
   Revision 1.67  2000/01/31 10:15:43  pierre
@@ -1120,42 +1123,4 @@ end;
   Revision 1.51  1999/07/26 09:43:24  florian
     + write helper routine for in64 implemented
 
-  Revision 1.50  1999/07/08 15:18:14  michael
-  * Now ansistring of arbitrary length can be read
-
-  Revision 1.49  1999/07/05 20:04:29  peter
-    * removed temp defines
-
-  Revision 1.48  1999/07/01 15:39:52  florian
-    + qword/int64 type released
-
-  Revision 1.47  1999/06/30 22:17:24  florian
-    + fpuint64 to system unit interface added: if it is true, the rtl
-      uses the fpu to do int64 operations, if possible
-
-  Revision 1.46  1999/05/06 09:05:16  peter
-    * generic write_float str_float
-
-  Revision 1.45  1999/04/26 18:27:26  peter
-    * fixed write array
-    * read array with maxlen
-
-  Revision 1.44  1999/04/08 15:57:57  peter
-    + subrange checking for readln()
-
-  Revision 1.43  1999/04/07 22:05:18  peter
-    * fixed bug with readln where it sometime didn't read until eol
-
-  Revision 1.42  1999/03/16 17:49:39  jonas
-    * changes for internal Val code (do a "make cycle OPT=-dvalintern" to test)
-    * in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201
-    * in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors,
-
-  Revision 1.41  1999/03/02 18:23:37  peter
-    * changed so handlerror() -> inoutres:= to have $I- support
-
-  Revision 1.40  1999/03/01 15:41:04  peter
-    * use external names
-    * removed all direct assembler modes
-
 }

+ 4 - 13
rtl/inc/textrec.inc

@@ -45,22 +45,13 @@ type
 
 {
   $Log$
-  Revision 1.8  2000-01-07 16:41:37  daniel
+  Revision 1.9  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.8  2000/01/07 16:41:37  daniel
     * copyright 2000
 
   Revision 1.7  2000/01/07 16:32:25  daniel
     * copyright 2000 added
 
-  Revision 1.6  1998/09/14 10:48:25  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.5  1998/09/08 10:14:07  peter
-    + textrecbufsize
-
-  Revision 1.4  1998/09/04 18:16:15  peter
-    * uniform filerec/textrec (with recsize:longint and name:0..255)
-
-  Revision 1.3  1998/05/21 15:37:19  carl
-   + working version now ok
 }

+ 4 - 23
rtl/inc/typefile.inc

@@ -83,32 +83,13 @@ End;
 
 {
   $Log$
-  Revision 1.8  2000-01-07 16:41:37  daniel
+  Revision 1.9  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.8  2000/01/07 16:41:37  daniel
     * copyright 2000
 
   Revision 1.7  2000/01/07 16:32:25  daniel
     * copyright 2000 added
 
-  Revision 1.6  1998/12/16 00:22:27  peter
-    * more temp symbols removed
-
-  Revision 1.5  1998/09/14 10:48:26  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.4  1998/07/02 12:16:28  carl
-    * IoCheck routines now check for InOutRes before executing, just like TP
-
-  Revision 1.3  1998/05/21 19:31:02  peter
-    * objects compiles for linux
-    + assign(pchar), assign(char), rename(pchar), rename(char)
-    * fixed read_text_as_array
-    + read_text_as_pchar which was not yet in the rtl
-
-  Revision 1.2  1998/05/12 10:42:45  peter
-    * moved getopts to inc/, all supported OS's need argc,argv exported
-    + strpas, strlen are now exported in the systemunit
-    * removed logs
-    * removed $ifdef ver_above
-
 }

+ 4 - 28
rtl/inc/ucomplex.pp

@@ -615,7 +615,10 @@ Unit UComplex;
 end.
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:37  daniel
+  Revision 1.5  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:37  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:25  daniel
@@ -624,31 +627,4 @@ end.
   Revision 1.2  1999/12/20 22:24:48  pierre
     + cinv in interface
 
-  Revision 1.1  1998/06/15 15:45:42  pierre
-    + complex.pp replaced by ucomplex.pp
-      complex operations working
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
-
-  Revision 1.3  1998/01/26 11:59:25  michael
-  + Added log at the end
-
-
-
-  Working file: rtl/inc/complex.pp
-  description:
-  ----------------------------
-  revision 1.2
-  date: 1997/12/01 15:33:30;  author: michael;  state: Exp;  lines: +14 -0
-  + added copyright reference in header.
-  ----------------------------
-  revision 1.1
-  date: 1997/11/27 08:33:46;  author: michael;  state: Exp;
-  Initial revision
-  ----------------------------
-  revision 1.1.1.1
-  date: 1997/11/27 08:33:46;  author: michael;  state: Exp;  lines: +0 -0
-  FPC RTL CVS start
-  =============================================================================
 }

+ 4 - 48
rtl/linux/crt.pp

@@ -1597,7 +1597,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.21  2000-01-07 16:41:39  daniel
+  Revision 1.22  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.21  2000/01/07 16:41:39  daniel
     * copyright 2000
 
   Revision 1.20  2000/01/07 16:32:26  daniel
@@ -1612,51 +1615,4 @@ End.
   Revision 1.17  1999/09/07 07:38:09  michael
   + Applied readkey patch from Deekoo L
 
-  Revision 1.16  1999/06/09 16:46:10  peter
-    * fixed fullwin,textbackground
-
-  Revision 1.15  1999/02/08 10:35:14  peter
-    * readkey fixes from the mailinglist
-    + cursoron/off/big from the mailinglist
-
-  Revision 1.14  1999/01/15 12:47:16  peter
-    * init window size to the size of the console instead of 80,25
-
-  Revision 1.13  1998/11/16 10:21:27  peter
-    * fixes for H+
-
-  Revision 1.12  1998/11/10 15:01:01  peter
-    * fixed GetXY at startup
-
-  Revision 1.11  1998/10/30 12:11:51  peter
-    * fixed fullwi, which did not check for 1,1
-
-  Revision 1.10  1998/10/27 11:13:27  peter
-    * fixed ttyWrite() with #8
-
-  Revision 1.9  1998/10/15 08:31:53  peter
-    + get winsize at startup
-    + ConsoleBuf to interface
-
-  Revision 1.8  1998/08/28 11:00:20  peter
-    * fixed #8 writing
-
-  Revision 1.7  1998/07/04 11:17:18  peter
-    * fixes for window (from "Heinz Ziegenhorn" <[email protected]>)
-
-  Revision 1.6  1998/06/19 16:51:50  peter
-    * added #13 -> #10 translation for CrtRead to overcome readln probs
-
-  Revision 1.5  1998/06/19 14:47:52  michael
-  + Enter key maps again to #13
-
-  Revision 1.4  1998/05/06 12:35:26  michael
-  + Removed log from before restored version.
-
-  Revision 1.3  1998/04/16 07:49:11  michael
-  * fixed bug. Clrscr and Clreol didn't take change in textattr in account.
-
-  Revision 1.2  1998/04/05 13:56:54  peter
-    - fixed mouse to compile with $i386_att
-    + linux crt supports redirecting (not Esc-codes anymore)
 }

+ 4 - 14
rtl/linux/disk.inc

@@ -110,20 +110,10 @@ end;
 
 {
  $Log$
- Revision 1.5  2000-01-07 16:41:40  daniel
-   * copyright 2000
-
- Revision 1.4  1999/04/26 09:34:32  peter
-   * fixed diskfree,disksize
-   * dir functions now return error status instead of true
-
- Revision 1.3  1999/04/26 07:40:40  michael
- + Fixed removedir
+ Revision 1.6  2000-02-09 16:59:31  peter
+   * truncated log
 
- Revision 1.2  1999/04/08 11:31:00  peter
-   * removed warnings
-
- Revision 1.1  1998/10/11 13:42:04  michael
- + Added disk and directory functions
+ Revision 1.5  2000/01/07 16:41:40  daniel
+   * copyright 2000
 
 }

+ 4 - 30
rtl/linux/dos.pp

@@ -906,7 +906,10 @@ End.
 
 {
   $Log$
-  Revision 1.16  2000-02-02 15:07:05  peter
+  Revision 1.17  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.16  2000/02/02 15:07:05  peter
     * gettime supports now also sec100
     * removed crtlib code as it was broken (still available in old releases)
     * int64 disksize/diskfree
@@ -926,33 +929,4 @@ End.
   Revision 1.11  1999/07/24 11:18:11  peter
     * fixed getfattr which didn't reset doserror
 
-  Revision 1.10  1999/03/05 13:09:57  peter
-    * fix for findfirst from the mailinglist
-
-  Revision 1.9  1999/02/22 11:45:19  peter
-    * fixed findlastused (from mailinglist)
-
-  Revision 1.8  1999/01/28 12:54:13  michael
-  + Fixed memory leak in findfirst/findnext
-
-  Revision 1.7  1999/01/28 12:10:42  michael
-  + Fixed findclose bug
-
-  Revision 1.6  1998/11/23 12:32:31  peter
-    * fix for findclose from the mailinglist
-
-  Revision 1.5  1998/11/05 14:24:08  peter
-    * findfirst fix from the mailinglist
-
-  Revision 1.4  1998/11/04 10:15:54  peter
-    * don't use getmem in startup (necessary for heaptrc)
-
-  Revision 1.3  1998/05/06 12:35:26  michael
-  + Removed log from before restored version.
-
-  Revision 1.2  1998/05/04 17:40:43  peter
-    * findfirst did some strange init with searchpos
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 6
rtl/linux/errno.inc

@@ -144,15 +144,13 @@ Sys_EDQUOT	= 122;	{ Quota exceeded }
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:40  daniel
+  Revision 1.5  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:40  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:26  daniel
     * copyright 2000 added
 
-  Revision 1.2  1998/05/06 12:38:22  michael
-  + Removed log from before restored version.
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 12
rtl/linux/errors.pp

@@ -175,21 +175,13 @@ end.
 
 {
   $Log$
-  Revision 1.5  2000-01-07 16:41:40  daniel
+  Revision 1.6  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.5  2000/01/07 16:41:40  daniel
     * copyright 2000
 
   Revision 1.4  2000/01/07 16:32:26  daniel
     * copyright 2000 added
 
-  Revision 1.3  1999/06/30 15:44:26  peter
-    * merged
-
-  Revision 1.2.6.1  1999/06/30 15:43:54  peter
-    * better strerror() from mailinglist
-
-  Revision 1.2  1998/05/06 12:35:26  michael
-  + Removed log from before restored version.
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 34
rtl/linux/filutil.inc

@@ -285,43 +285,13 @@ end;
 
 {
   $Log$
-  Revision 1.13  2000-01-16 22:25:38  peter
+  Revision 1.14  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.13  2000/01/16 22:25:38  peter
     * check handle for file closing
 
   Revision 1.12  2000/01/07 16:41:40  daniel
     * copyright 2000
 
-  Revision 1.11  1999/05/14 22:19:34  michael
-  * Some more fixes.
-
-  Revision 1.10  1999/05/13 21:54:09  michael
-  * Fixed FileAge and corrected FileGetAttr
-
-  Revision 1.9  1999/04/08 11:31:01  peter
-    * removed warnings
-
-  Revision 1.8  1999/02/28 13:18:10  michael
-  + Added internationalization support
-
-  Revision 1.7  1999/02/24 15:57:29  michael
-  + Moved getlocaltime to system-dependent files
-
-  Revision 1.6  1999/02/04 21:43:08  michael
-  FileCreate must truncate the file
-
-  Revision 1.5  1999/02/02 21:20:34  michael
-  + Added filetruncate, corrected FileCreate
-
-  Revision 1.4  1998/12/15 22:43:07  peter
-    * removed temp symbols
-
-  Revision 1.3  1998/11/10 14:57:55  peter
-    * renamed rename -> FRename
-
-  Revision 1.2  1998/10/13 10:20:07  peter
-    * fix for 0.99.8 which has no auto pchar-string ;)
-
-  Revision 1.1  1998/10/11 12:21:01  michael
-  Added file calls. Implemented for linux only
-
 }

+ 4 - 4
rtl/linux/gpm.pp

@@ -208,13 +208,13 @@ end;
 end.
 {
   $Log$
-  Revision 1.3  2000-01-26 21:51:34  peter
+  Revision 1.4  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.3  2000/01/26 21:51:34  peter
     * removed gpm_ctlfd
 
   Revision 1.2  2000/01/07 16:41:40  daniel
     * copyright 2000
 
-  Revision 1.1  1999/07/01 19:39:43  peter
-    + gpm unit
-
 }

+ 4 - 4
rtl/linux/ipc.pp

@@ -369,10 +369,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.7  2000-01-07 16:41:40  daniel
-    * copyright 2000
+  Revision 1.8  2000-02-09 16:59:31  peter
+    * truncated log
 
-  Revision 1.6  1999/05/27 21:38:31  peter
-    * log inserted
+  Revision 1.7  2000/01/07 16:41:40  daniel
+    * copyright 2000
 
 }

+ 4 - 35
rtl/linux/linux.pp

@@ -3848,7 +3848,10 @@ End.
 
 {
   $Log$
-  Revision 1.60  2000-02-08 12:05:58  peter
+  Revision 1.61  2000-02-09 16:59:31  peter
+    * truncated log
+
+  Revision 1.60  2000/02/08 12:05:58  peter
     + readlink
 
   Revision 1.59  2000/01/07 16:41:40  daniel
@@ -3911,38 +3914,4 @@ End.
   Revision 1.41  1999/07/29 15:53:55  michael
   + Added assignstream with rerouting of stderr, by Sebastian Guenther
 
-  Revision 1.40  1999/07/15 20:00:31  michael
-  + Added ansistring version of shell()
-
-  Revision 1.39  1999/05/30 11:37:27  peter
-    * clone function like the libc version
-    + sigraise, exitprocess
-
-  Revision 1.38  1999/05/26 11:05:24  michael
-  * fcntl needs file as Var argument
-
-  Revision 1.37  1999/05/10 09:13:41  peter
-    * fixed typo
-
-  Revision 1.36  1999/05/08 19:47:24  peter
-    * check ioresult after getdir calls
-
-  Revision 1.35  1999/04/22 14:48:55  peter
-    * fixed direct asm
-
-  Revision 1.34  1999/03/29 16:03:10  peter
-    + clone()
-
-  Revision 1.33  1999/03/11 12:02:03  peter
-    * s_is<x> functions have now word para instead of integer
-
-  Revision 1.32  1999/02/22 12:50:53  peter
-    * fixed dup() to have var para
-
-  Revision 1.31  1999/02/22 11:47:42  peter
-    * fixed juliantogregorian (mailinglist)
-
-  Revision 1.29  1999/02/02 21:19:54  michael
-  Corrected wrong mode error in fdopen
-
 }

+ 4 - 9
rtl/linux/printer.pp

@@ -254,7 +254,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2000-01-07 16:41:41  daniel
+  Revision 1.7  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.6  2000/01/07 16:41:41  daniel
     * copyright 2000
 
   Revision 1.5  2000/01/07 16:32:28  daniel
@@ -263,12 +266,4 @@ end.
   Revision 1.4  1999/09/08 16:14:43  peter
     * pointer fixes
 
-  Revision 1.3  1998/11/16 10:21:29  peter
-    * fixes for H+
-
-  Revision 1.2  1998/05/06 12:35:26  michael
-  + Removed log from before restored version.
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 31
rtl/linux/sockets.pp

@@ -316,7 +316,10 @@ end.
 
 {
   $Log$
-  Revision 1.12  2000-01-07 16:41:41  daniel
+  Revision 1.13  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.12  2000/01/07 16:41:41  daniel
     * copyright 2000
 
   Revision 1.11  2000/01/07 16:32:28  daniel
@@ -325,34 +328,4 @@ end.
   Revision 1.10  1999/11/14 21:35:04  peter
     * removed warnings
 
-  Revision 1.9  1999/07/03 15:16:47  michael
-  + Fixed Connect call
-
-  Revision 1.8  1999/06/27 16:04:25  michael
-  + Updated to Florians system independent sockets unit
-
-  Revision 1.7  1999/06/08 18:35:24  michael
-  + Beter return values for connect and accept
-
-  Revision 1.6  1999/06/08 18:19:24  michael
-  + Fixes for connect calls
-
-  Revision 1.5  1999/06/08 16:08:33  michael
-  + completed (hopefully) Fix by stian ([email protected])
-
-  Revision 1.4  1999/06/08 16:05:08  michael
-  + Fix by stian ([email protected])
-
-  Revision 1.3  1998/11/16 10:21:30  peter
-    * fixes for H+
-
-  Revision 1.2  1998/07/16 10:36:45  michael
-  + added connect call for inet sockets
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
-
-  Revision 1.1  1998/02/13 08:35:05  michael
-  + Initial implementation
-
 }

+ 4 - 9
rtl/linux/syscalls.inc

@@ -389,7 +389,10 @@ end;
 
 {
   $Log$
-  Revision 1.9  2000-02-08 11:47:09  peter
+  Revision 1.10  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.9  2000/02/08 11:47:09  peter
     * paramstr(0) support
 
   Revision 1.8  2000/01/07 16:41:41  daniel
@@ -407,12 +410,4 @@ end;
   Revision 1.4  1999/07/28 12:14:37  michael
   * Memory leak fixed in CloseDir, by Sebastian Guenther
 
-  Revision 1.3  1998/05/30 14:18:42  peter
-    * fixed to remake with -Rintel in the ppc386.cfg
-
-  Revision 1.2  1998/05/06 12:38:22  michael
-  + Removed log from before restored version.
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 6
rtl/linux/sysconst.inc

@@ -79,15 +79,13 @@ Const
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:41  daniel
+  Revision 1.5  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:41  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:28  daniel
     * copyright 2000 added
 
-  Revision 1.2  1998/05/06 12:38:22  michael
-  + Removed log from before restored version.
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 53
rtl/linux/syslinux.pp

@@ -722,7 +722,10 @@ End.
 
 {
   $Log$
-  Revision 1.36  2000-02-09 12:17:51  peter
+  Revision 1.37  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.36  2000/02/09 12:17:51  peter
     * moved halt to system.inc
     * syslinux doesn't use direct asm anymore
 
@@ -760,56 +763,4 @@ End.
   Revision 1.25  1999/07/28 23:18:36  peter
     * closedir fixes, which now disposes the pdir itself
 
-  Revision 1.24  1999/05/17 21:52:42  florian
-    * most of the Object Pascal stuff moved to the system unit
-
-  Revision 1.23  1999/04/08 12:23:04  peter
-    * removed os.inc
-
-  Revision 1.22  1999/01/18 10:05:53  pierre
-   + system_exit procedure added
-
-  Revision 1.21  1998/12/28 15:50:49  peter
-    + stdout, which is needed when you write something in the system unit
-      to the screen. Like the runtime error
-
-  Revision 1.20  1998/12/18 17:21:34  peter
-    * fixed io-error handling
-
-  Revision 1.19  1998/12/15 22:43:08  peter
-    * removed temp symbols
-
-  Revision 1.18  1998/11/16 10:21:32  peter
-    * fixes for H+
-
-  Revision 1.17  1998/10/15 08:30:00  peter
-    + sigfpe -> runerror 200
-
-  Revision 1.16  1998/09/14 10:48:27  peter
-    * FPC_ names
-    * Heap manager is now system independent
-
-  Revision 1.15  1998/09/06 19:41:40  peter
-    * fixed unusedhandle for 0.99.5
-
-  Revision 1.14  1998/09/04 18:16:16  peter
-    * uniform filerec/textrec (with recsize:longint and name:0..255)
-
-  Revision 1.13  1998/08/14 11:59:41  carl
-    + m68k fixes
-
-  Revision 1.12  1998/08/12 14:01:37  michael
-  + Small m68k fixes
-
-  Revision 1.11  1998/08/11 08:30:37  michael
-  + Fixed paramstr() - sometimes there are no 255 characters available.
-
-  Revision 1.10  1998/07/30 13:26:15  michael
-  + Added support for ErrorProc variable. All internal functions are required
-    to call HandleError instead of runerror from now on.
-    This is necessary for exception support.
-
-  Revision 1.9  1998/07/20 23:40:20  michael
-  changed sbrk to fc_sbrk, to avoid conflicts with C library.
-
 }

+ 4 - 6
rtl/linux/sysnr.inc

@@ -360,15 +360,13 @@ const
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:41  daniel
+  Revision 1.5  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:41  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:28  daniel
     * copyright 2000 added
 
-  Revision 1.2  1998/05/06 12:38:22  michael
-  + Removed log from before restored version.
-
-  Revision 1.1.1.1  1998/03/25 11:18:43  root
-  * Restored version
 }

+ 4 - 4
rtl/linux/systypes.inc

@@ -127,13 +127,13 @@ type
 
 {
   $Log$
-  Revision 1.5  2000-01-07 16:41:42  daniel
+  Revision 1.6  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.5  2000/01/07 16:41:42  daniel
     * copyright 2000
 
   Revision 1.4  2000/01/07 16:32:28  daniel
     * copyright 2000 added
 
-  Revision 1.3  1998/10/15 08:31:10  peter
-    * type aliases using delphi typenaming
-
 }

+ 4 - 49
rtl/objpas/dati.inc

@@ -680,7 +680,10 @@ end;
 
 {
   $Log$
-  Revision 1.19  1999-11-29 16:59:27  pierre
+  Revision 1.20  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.19  1999/11/29 16:59:27  pierre
    * fix for form bug 719
 
   Revision 1.18  1999/11/06 14:41:30  peter
@@ -697,53 +700,5 @@ end;
   Revision 1.15  1999/07/24 11:21:14  peter
     * fixed encode/decode date/time
 
-  Revision 1.14  1999/07/14 08:47:54  michael
-  * faster En/Decodedate routines from Frank Reichert
-  * Fixed FormatDateTime with short/longtimeformat.
-
-  Revision 1.13  1999/05/31 20:50:44  peter
-    * removed warnings
-
-  Revision 1.12  1999/05/13 21:51:41  michael
-  * several fixes
-
-  Revision 1.11  1999/05/11 09:05:13  michael
-  * SMall fixes to date/time routines
-
-  Revision 1.10  1999/04/18 19:03:03  michael
-  + Now EConvertError is used everywhere in conversions
-
-  Revision 1.9  1999/04/08 11:31:02  peter
-    * removed warnings
-
-  Revision 1.8  1999/02/24 15:56:28  michael
-  + Small fixes. Moved getlocaltime to system-dependent files
-
-  Revision 1.7  1999/02/10 22:15:10  michael
-  + Changed to ansistrings
-
-  Revision 1.6  1999/02/09 12:38:42  michael
-  * Fixed INt() proble. Defined THandle, included Filemode constants
-
-  Revision 1.5  1998/10/15 09:39:12  michael
-  Changes from Gretjan Schouten
-
-  Revision 1.4  1998/10/11 13:40:52  michael
-  + Added Conversion TDateTime <-> file date and time
-
-  Revision 1.3  1998/09/16 08:28:36  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
-
-  1998/08/25 Gertjan
-  + uses Go32 instead of Dos unit
-    GetLocalTime
-    DayOfWeek
-    DoDecodeDate
-    DoEncodeDate
-    FormatDateTime
 }
 

+ 2 - 15
rtl/objpas/datih.inc

@@ -106,20 +106,7 @@ Function FileDateToDateTime (Filedate : Longint) : TDateTime;
 {
 
   $Log$
-  Revision 1.5  1999-02-28 13:17:34  michael
-  + Added internationalization support and more format functions
-
-  Revision 1.4  1998/10/11 13:40:53  michael
-  + Added Conversion TDateTime <-> file date and time
-
-  Revision 1.3  1998/10/08 14:07:45  florian
-    * date and day names fixed
-
-  Revision 1.2  1998/09/16 08:28:37  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
+  Revision 1.6  2000-02-09 16:59:32  peter
+    * truncated log
 
 }

+ 4 - 4
rtl/objpas/diskh.inc

@@ -23,13 +23,13 @@ Function RemoveDir (Const Dir : String) : Boolean;
 
 {
  $Log$
- Revision 1.3  2000-01-07 16:41:43  daniel
+ Revision 1.4  2000-02-09 16:59:32  peter
+   * truncated log
+
+ Revision 1.3  2000/01/07 16:41:43  daniel
    * copyright 2000
 
  Revision 1.2  1999/11/06 14:41:30  peter
    * truncated log
 
- Revision 1.1  1998/10/11 13:41:32  michael
- + Added disk functions
-
 }

+ 4 - 16
rtl/objpas/filutilh.inc

@@ -71,22 +71,10 @@ Function FileSearch (Const Name, DirList : String) : String;
 
 {
   $Log$
-  Revision 1.6  2000-01-07 16:41:43  daniel
-    * copyright 2000
-
-  Revision 1.5  1999/05/15 07:25:22  michael
-  + Defined seek constants
-
-  Revision 1.4  1999/02/09 12:38:43  michael
-  * Fixed INt() proble. Defined THandle, included Filemode constants
+  Revision 1.7  2000-02-09 16:59:32  peter
+    * truncated log
 
-  Revision 1.3  1999/02/02 21:21:37  michael
-  + Added filetruncate
-
-  Revision 1.2  1998/10/11 13:47:45  michael
-  + Added disk functions
-
-  Revision 1.1  1998/10/11 12:21:01  michael
-  Added file calls. Implemented for linux only
+  Revision 1.6  2000/01/07 16:41:43  daniel
+    * copyright 2000
 
 }

+ 2 - 17
rtl/objpas/fina.inc

@@ -188,22 +188,7 @@ end;
 
 {
   $Log$
-  Revision 1.6  1999-05-13 21:51:42  michael
-  * several fixes
+  Revision 1.7  2000-02-09 16:59:32  peter
+    * truncated log
 
-  Revision 1.5  1998/12/19 14:52:28  peter
-    * removed temp define
-
-  Revision 1.4  1998/10/05 21:35:41  peter
-    * fixed for 0.99.8
-
-  Revision 1.3  1998/10/04 20:19:56  michael
-  + Added missing functions and some extra
-
-  Revision 1.2  1998/09/16 08:28:38  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
 }

+ 2 - 9
rtl/objpas/finah.inc

@@ -44,15 +44,8 @@ Function GetDirs (Var DirName : String; Var Dirs : Array of pchar) : Longint;
 
 {
   $Log$
-  Revision 1.3  1998-10-04 20:19:55  michael
-  + Added missing functions and some extra
-
-  Revision 1.2  1998/09/16 08:28:39  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
+  Revision 1.4  2000-02-09 16:59:32  peter
+    * truncated log
 
 }
 

+ 4 - 30
rtl/objpas/math.pp

@@ -666,7 +666,10 @@ end;
 end.
 {
     $Log$
-    Revision 1.14  2000-01-11 21:07:33  marco
+    Revision 1.15  2000-02-09 16:59:32  peter
+      * truncated log
+
+    Revision 1.14  2000/01/11 21:07:33  marco
      * Changed some (%ebp) to real parameters
 
     Revision 1.13  2000/01/07 16:41:43  daniel
@@ -675,33 +678,4 @@ end.
     Revision 1.12  1999/09/21 20:47:05  florian
       * ceil and floor still had bugs :), hopefully it's the final fix now
 
-    Revision 1.11  1999/06/04 08:44:34  jonas
-      * Ceil and Floor are now really fixed :)
-
-    Revision 1.10  1999/06/03 16:22:57  jonas
-      * fixed ceil function
-
-    Revision 1.9  1999/06/03 13:37:30  jonas
-      * fixed floor function
-
-    Revision 1.8  1999/01/15 11:44:56  peter
-      * fixed unresolved forwards
-
-    Revision 1.7  1998/12/21 13:07:06  peter
-      * use -FE
-
-    Revision 1.6  1998/11/02 12:52:46  michael
-    Minimum/maximum functions
-
-    Revision 1.5  1998/09/24 23:45:26  peter
-      * updated for auto objpas loading
-
-    Revision 1.4  1998/09/18 23:57:27  michael
-    * Changed use_excepions to useexceptions
-
-    Revision 1.3  1998/09/09 15:29:05  peter
-      * removed some warnings
-
-    Revision 1.2  1998/07/29 15:44:34  michael
-     included sysutils and math.pp as target. They compile now.
 }

+ 4 - 15
rtl/objpas/objpas.pp

@@ -360,7 +360,10 @@ end.
 
 {
   $Log$
-  Revision 1.47  2000-01-07 16:41:44  daniel
+  Revision 1.48  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.47  2000/01/07 16:41:44  daniel
     * copyright 2000
 
   Revision 1.46  2000/01/07 16:32:29  daniel
@@ -421,18 +424,4 @@ end.
   Revision 1.28  1999/07/23 22:51:11  michael
   * Added HasResourceStrings check
 
-  Revision 1.27  1999/07/22 20:30:13  michael
-  + Implemented resource stuff
-
-  Revision 1.26  1999/07/07 10:04:04  michael
-  + Paramstr now returns cmdline args >255 chars in ansistring objpas.pp
-
-  Revision 1.25  1999/07/06 22:44:22  florian
-    + implemented a paramstr function which returns an ansistring, nevertheless
-      it is limited to 255 chars because it maps to the system.paramstr, maybe
-      we should use cmdline instead
-
-  Revision 1.24  1999/05/17 21:52:43  florian
-    * most of the Object Pascal stuff moved to the system unit
-
 }

+ 4 - 22
rtl/objpas/stre.inc

@@ -57,32 +57,14 @@ Const
    SInvalidOp = 'Invalid floating point operation';
 {
   $Log$
-  Revision 1.9  2000-01-07 16:41:44  daniel
+  Revision 1.10  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.9  2000/01/07 16:41:44  daniel
     * copyright 2000
 
   Revision 1.8  1999/08/28 14:53:27  florian
     * bug 471 fixed: run time error 2 is now converted into a file not
       found exception
 
-  Revision 1.7  1999/07/02 17:03:22  florian
-    + added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop
-
-  Revision 1.6  1999/06/19 07:39:46  michael
-  Implemented strtofloat
-
-  Revision 1.5  1998/10/10 09:53:09  michael
-  Added assertion handling
-
-  Revision 1.4  1998/10/03 15:08:04  florian
-    * EInvalidCast added (from runerror 219)
-
-  Revision 1.3  1998/10/02 13:57:37  michael
-  Format error now causes exception
-
-  Revision 1.2  1998/10/02 13:00:09  michael
-  + More RTL error handling
-
-  Revision 1.1  1998/10/01 16:04:59  michael
-  + Initial implementation
-
 }   

+ 4 - 6
rtl/objpas/strg.inc

@@ -36,16 +36,14 @@ Const
    
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:44  daniel
+  Revision 1.5  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:44  daniel
     * copyright 2000
 
   Revision 1.3  1999/08/28 14:53:27  florian
     * bug 471 fixed: run time error 2 is now converted into a file not
       found exception
 
-  Revision 1.2  1999/07/02 17:03:23  florian
-    + added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop
-
-  Revision 1.1  1998/10/01 16:26:06  florian
-    * Initial revision
 }   

+ 4 - 25
rtl/objpas/syspch.inc

@@ -118,7 +118,10 @@ end ;
 
 {
   $Log$
-  Revision 1.8  1999-12-10 15:02:12  peter
+  Revision 1.9  2000-02-09 16:59:32  peter
+    * truncated log
+
+  Revision 1.8  1999/12/10 15:02:12  peter
     * strnew is ofcourse also different between sysutils and strings, just
       like stralloc/strdispose.
 
@@ -128,28 +131,4 @@ end ;
   Revision 1.6  1999/08/24 13:14:50  peter
     * disposestr allocstr compatible with delphi
 
-  Revision 1.5  1999/07/09 10:06:34  peter
-    * merged
-
-  Revision 1.4.2.1  1999/07/09 10:05:05  peter
-    * fixed strpcopy
-
-  Revision 1.4  1999/02/25 07:39:57  michael
-  * Joined strings and sysutils
-
-  Revision 1.3  1999/02/10 22:15:11  michael
-  + Changed to ansistrings
-
-  Revision 1.2  1998/09/16 08:28:40  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-
-  1998/08/26 Gertjan
-  Most functions rewritten in pascal.
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
-
-
 }

+ 4 - 11
rtl/objpas/syspchh.inc

@@ -51,18 +51,11 @@ procedure StrDispose(Str: PChar);
 
 {
   $Log$
-  Revision 1.4  1999-08-24 13:14:51  peter
-    * disposestr allocstr compatible with delphi
-
-  Revision 1.3  1999/02/25 07:39:58  michael
-  * Joined strings and sysutils
+  Revision 1.5  2000-02-09 16:59:32  peter
+    * truncated log
 
-  Revision 1.2  1998/09/16 08:28:41  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
+  Revision 1.4  1999/08/24 13:14:51  peter
+    * disposestr allocstr compatible with delphi
 
 }
 

+ 4 - 47
rtl/objpas/sysstr.inc

@@ -1138,7 +1138,10 @@ const
 
 {
   $Log$
-  Revision 1.30  2000-02-01 12:53:23  peter
+  Revision 1.31  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.30  2000/02/01 12:53:23  peter
     * fixed rangecheck error in format()
 
   Revision 1.29  1999/11/06 14:41:31  peter
@@ -1160,51 +1163,5 @@ const
   Revision 1.24  1999/08/16 22:38:53  peter
     * fixed newstr/disposestr
 
-  Revision 1.23  1999/07/18 17:27:28  michael
-  + Fixed bug in format, reported by Romio Pedchecko
-
-  Revision 1.22  1999/06/19 07:39:44  michael
-  Implemented strtofloat
-
-  Revision 1.21  1999/06/05 20:47:03  michael
-  + Final fixes: RightStr
-
-  Revision 1.20  1999/05/31 20:50:45  peter
-    * removed warnings
-
-  Revision 1.19  1999/05/30 07:53:15  michael
-  + Small fix. Delete not recognised without system in front of it  ?
-
-  Revision 1.18  1999/05/28 20:08:20  michael
-  * too may fixes to list
-
-  Revision 1.17  1999/04/08 11:31:03  peter
-    * removed warnings
-
-  Revision 1.16  1999/04/08 10:19:41  peter
-    * pchar support for %s
-
-  Revision 1.15  1999/04/04 10:19:07  peter
-    * format support for ansistring (from mailinglist)
-    * fixed length checking in Trim()
-
-  Revision 1.14  1999/03/01 12:40:06  michael
-  changed delete to system.delete
-
-  Revision 1.13  1999/02/28 13:17:35  michael
-  + Added internationalization support and more format functions
-
-  Revision 1.12  1999/02/24 15:56:29  michael
-  + Small fixes. Moved getlocaltime to system-dependent files
-
-  Revision 1.11  1999/02/10 22:15:12  michael
-  + Changed to ansistrings
-
-  Revision 1.10  1998/12/15 22:43:09  peter
-    * removed temp symbols
-
-  Revision 1.9  1998/11/04 10:20:52  peter
-    * ansistring fixes
-
 }
 

+ 2 - 24
rtl/objpas/sysstrh.inc

@@ -93,30 +93,8 @@ function BCDToInt(Value: integer): integer;
 
 {
   $Log$
-  Revision 1.8  1999-06-19 07:39:43  michael
-  Implemented strtofloat
-
-  Revision 1.7  1999/05/28 20:08:21  michael
-  * too may fixes to list
-
-  Revision 1.6  1999/02/28 13:17:36  michael
-  + Added internationalization support and more format functions
-
-  Revision 1.5  1998/12/15 22:43:11  peter
-    * removed temp symbols
-
-  Revision 1.4  1998/11/04 10:20:53  peter
-    * ansistring fixes
-
-  Revision 1.3  1998/11/02 12:53:53  michael
-  + Added format function
-
-  Revision 1.2  1998/09/16 08:28:43  michael
-  Update from gertjan Schouten, plus small fix for linux
-
-  Revision 1.1  1998/04/10 15:17:46  michael
-  + Initial implementation; Donated by Gertjan Schouten
-    His file was split into several files, to keep it a little bit structured.
+  Revision 1.9  2000-02-09 16:59:33  peter
+    * truncated log
 
 }
 

+ 4 - 43
rtl/objpas/sysutils.pp

@@ -296,7 +296,10 @@ Finalization
 end.
 {
     $Log$
-    Revision 1.40  2000-01-16 19:10:25  hajny
+    Revision 1.41  2000-02-09 16:59:33  peter
+      * truncated log
+
+    Revision 1.40  2000/01/16 19:10:25  hajny
       * 'uses Dos' added for OS/2 target
 
     Revision 1.39  2000/01/07 16:41:44  daniel
@@ -330,46 +333,4 @@ end.
     Revision 1.29  1999/07/27 13:01:12  peter
       + filerec,textrec declarations
 
-    Revision 1.28  1999/07/08 19:32:36  michael
-    + Freed exception classes in finalization code
-
-    Revision 1.27  1999/07/02 17:03:24  florian
-      + added some runtime->excpetin wrappers: eintoverflow, eoverflow, eunderflow, einvalidop
-
-    Revision 1.26  1999/04/09 08:40:46  michael
-    + Fixed tfiletime problem
-
-    Revision 1.25  1999/04/08 16:26:31  michael
-    + Added (re)allocmem
-
-    Revision 1.24  1999/04/08 12:23:05  peter
-      * removed os.inc
-
-    Revision 1.23  1999/02/28 13:17:37  michael
-    + Added internationalization support and more format functions
-
-    Revision 1.22  1999/02/10 22:15:13  michael
-    + Changed to ansistrings
-
-    Revision 1.21  1999/02/09 14:24:50  pierre
-     * dos unit missing for go32v2 !!
-
-    Revision 1.20  1999/02/09 12:38:44  michael
-    * Fixed INt() proble. Defined THandle, included Filemode constants
-
-    Revision 1.19  1999/02/03 16:18:58  michael
-    + Uses Windows on win32 platform
-
-    Revision 1.18  1998/12/15 22:43:12  peter
-      * removed temp symbols
-
-    Revision 1.17  1998/10/20 19:26:37  michael
-    + Forgot to include disk functions
-
-    Revision 1.16  1998/10/11 12:23:41  michael
-    + More sysutils calls.
-
-    Revision 1.15  1998/10/10 09:53:10  michael
-    Added assertion handling
-
 }

+ 5 - 45
rtl/objpas/typinfo.pp

@@ -816,7 +816,10 @@ end.
 
 {
   $Log$
-  Revision 1.36  2000-01-07 16:41:44  daniel
+  Revision 1.37  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.36  2000/01/07 16:41:44  daniel
     * copyright 2000
 
   Revision 1.35  2000/01/07 16:32:29  daniel
@@ -858,47 +861,4 @@ end.
   Revision 1.24  1999/08/06 13:21:40  michael
   * Patch from Sebastian Guenther
 
-  Revision 1.23  1999/06/04 12:48:37  michael
-  * Fix by Sebastian Guenther.
-
-  Revision 1.22  1999/05/19 12:03:23  florian
-    * the set/get procedures must be called with call %edi instead call (%edi)
-    * handling of extended and string properties fixed
-
-  Revision 1.21  1999/05/07 11:02:14  florian
-    * two typos fixed
-
-  Revision 1.20  1999/05/03 07:30:07  michael
-  * Fixes in getenum*
-
-  Revision 1.19  1999/04/08 11:31:04  peter
-    * removed warnings
-
-  Revision 1.18  1999/01/19 16:08:12  pierre
-   ?? is callSStringProc a function ??
-
-  Revision 1.17  1998/12/15 22:43:13  peter
-    * removed temp symbols
-
-  Revision 1.16  1998/12/02 12:35:07  michael
-  More changes for type-information
-
-  Revision 1.15  1998/11/26 14:57:47  michael
-  + Added packrecords 1
-
-  Revision 1.11  1998/09/24 23:45:28  peter
-    * updated for auto objpas loading
-
-  Revision 1.10  1998/09/20 08:25:34  florian
-    + description of tpropinfo.propprocs bit 6 added
-
-  Revision 1.9  1998/09/19 15:25:45  florian
-    * procedure GetOrdProp added
-
-  Revision 1.8  1998/09/19 08:33:53  florian
-    + some procedures added
-
-  Revision 1.7  1998/09/08 09:52:31  florian
-    * small problems fixed
-
-}
+}

+ 5 - 5
rtl/os2/disk.inc

@@ -53,10 +53,10 @@ end;
 
 {
  $Log$
- Revision 1.2  2000-01-07 16:41:45  daniel
-   * copyright 2000
+ Revision 1.3  2000-02-09 16:59:33  peter
+   * truncated log
 
- Revision 1.1  1998/10/11 13:42:55  michael
- Added disk functions
+ Revision 1.2  2000/01/07 16:41:45  daniel
+   * copyright 2000
 
-}
+}

+ 5 - 2
rtl/os2/dive.pas

@@ -328,7 +328,10 @@ End.
 
 {
   $Log$
-  Revision 1.3  2000-01-09 20:51:03  hajny
+  Revision 1.4  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.3  2000/01/09 20:51:03  hajny
     * FPK changed to FPC
 
   Revision 1.2  2000/01/07 16:41:45  daniel
@@ -338,4 +341,4 @@ End.
     + initial version
 
 
-}
+}

+ 4 - 26
rtl/os2/dos.pas

@@ -1001,7 +1001,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.19  2000-01-09 20:51:03  hajny
+  Revision 1.20  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.19  2000/01/09 20:51:03  hajny
     * FPK changed to FPC
 
   Revision 1.18  2000/01/07 16:41:45  daniel
@@ -1022,29 +1025,4 @@ end.
   Revision 1.13  1999/09/09 09:20:43  hajny
     * FSearch under OS/2 fixed
 
-  Revision 1.12  1999/01/22 16:25:58  pierre
-   + findclose added
-
-  Revision 1.11  1999/01/18 16:22:51  jonas
-    - removed "noattcdq" define
-
-  Revision 1.10  1998/12/10 16:05:39  daniel
-  * Fsearch bug fixed
-
-  Revision 1.9  1998/12/07 18:55:41  jonas
-    * fixed bug reported in the mailing list by Frank McCormick (fsearch: changed
-      "if p1 = 0" to "if p1 <> 0"
-
-  Revision 1.8  1998/10/16 14:18:02  daniel
-  * Updates
-
-  Revision 1.7  1998/07/08 14:44:11  daniel
-  + Added moucalls and viocalls written by Tomas Hajny.
-  + Final routines in doscalls implemented.
-  * Fixed bugs in dos.pas.
-  * Changed some old $ifdef FPK into $ifdef FPC.
-  - Removed go32 stuff from dos.pas.
-  - Removed '/' to '\' translation from system unit - EMX does this
-  automatically.
-
 }

+ 4 - 7
rtl/os2/filutil.inc

@@ -167,16 +167,13 @@ end;
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:47  daniel
+  Revision 1.5  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:47  daniel
     * copyright 2000
 
   Revision 1.3  1999/11/08 22:45:55  peter
     * updated
 
-  Revision 1.2  1998/10/12 08:35:22  pierre
-   * wrong file commited by Michael corrected
-
-  Revision 1.1  1998/10/11 12:21:01  michael
-  Added file calls. Implemented for linux only
-
 }

+ 169 - 182
rtl/os2/objinc.inc

@@ -1,188 +1,175 @@
-{
-	$Id$
-	This file is part of the Free Pascal run time library.
-	Copyright (c) 1999-2000 by the Free Pascal development team.
-
-	Includefile for objects.pp implementing OS-dependent file routines
-	for Go32V1
-
-	See the file COPYING.FPC, included in this distribution,
-	for details about the copyright.
-
-	This program is distributed in the hope that it will be useful,
-	but WITHOUT ANY WARRANTY; without even the implied warranty of
-	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************
-}
-
-{This is the correct way to call external assembler procedures.}
-procedure syscall;external name '___SYSCALL';
-
-{---------------------------------------------------------------------------}
-{  FileClose -> Platforms OS2              - Not checked                    }
-{---------------------------------------------------------------------------}
-FUNCTION FileClose(Handle: THandle): word;
-begin
-   asm
-	  xor  %bx,%bx
-	  movw handle,%bx
-	  movb $0x3e,%ah
-	  call syscall
-   end;
-   FileClose := 0;
-end;
-
-{---------------------------------------------------------------------------}
-{  FileOpen -> Platforms OS2              - Checked 05May1998 CEC           }
-{  Returns 0 on failure                                                     }
-{---------------------------------------------------------------------------}
-
-FUNCTION FileOpen (Var FileName: AsciiZ; Mode: Word): THandle;
-var
- AMode: word;
-begin
-  if Mode=stCreate then
-	Begin
-	  AMode:=$8302;
-	end
-  else
-	Begin
-	  Case (Mode and 3) of
-	   0 : AMode:=$8001;
-	   1 : AMode:=$8404;
-	   2 : AMode:=$8404;
-	  end;
-	end;
-   asm
-	 xorl  %eax, %eax
-	 movw  %ax, DosStreamError
-	 movl  FileName, %ebx
-	 movw  $0xff02, %ax
-	 movw  AMode, %cx
-	 call  syscall
-	 jnc   .Lexit1
-	 movw  %ax, DosStreamError                        { Hold Error  }
-	 xorl  %eax, %eax                                 { Open Failed }
-   .Lexit1:
-	 movw  %ax, __RESULT
-   END;
-end;
-
-
-{***************************************************************************}
-{  DosSetFilePtr -> Platforms OS2          - Checked 05May1998 CEC          }
-{***************************************************************************}
-FUNCTION SetFilePos (Handle: THandle; Pos: LongInt; MoveType: Word;
-Var Actual: LongInt): Word;
-Var
- val : longint;
-BEGIN
-  asm
-	 movw MoveType, %ax;                              { Load move type }
-	 movb $0x42, %ah;
-	 movl pos, %edx;                              { Load file position }
-	 movw Handle, %bx;                              { Load file handle }
-	 call syscall
-	 jc .Lexit4
-	 movl    %eax,val                               { Update new position }
-	 xorl %eax, %eax;
-   .Lexit4:
-	 movw %ax, DosStreamError                         { OS2 error returned }
-   .Lend:
-   END;
-   Actual := val;
-   SetFilePos := DosStreamError;                   { Return any error }
-END;
-
-
-{---------------------------------------------------------------------------}
-{  FileRead -> Platforms OS2              - Checked 05May1998 CEC           }
-{---------------------------------------------------------------------------}
-FUNCTION FileRead (Handle: THandle; Var Buf; Count: Sw_Word;
-Var Actual: Sw_Word): Word;
-BEGIN
-  asm
-	 movl count,%ecx
-	 movl buf,%edx
-	 xorl %ebx,%ebx
-	 movw handle,%bx
-	 movb $0x3f,%ah
-	 call syscall
-	 jnc .LDOSREAD1
-	 movw %ax,DosStreamError
-	 xorl %eax,%eax
-  .LDOSREAD1:
-  end;
-  Actual:=Count;
-  FileRead:=DosStreamError;
-end;
-
-
-{---------------------------------------------------------------------------}
-{  FileWrite -> Platforms OS2              - Checked 05May1998 CEC          }
-{---------------------------------------------------------------------------}
-FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Word): Word;
-BEGIN
-  Actual:=0;
-  asm
-	 movl Count,%ecx
-	 movl buf,%edx
-	 xorl %ebx,%ebx
-	 movw Handle,%bx
-	 movb $0x40,%ah
-	 call syscall
-	 jnc .LDOSWRITE1
-	 movw %ax,DosStreamError
-  .LDOSWRITE1:
-  end;
-  Actual:=Count;
-  FileWrite:=DosStreamError;
-end;
-
-
-{---------------------------------------------------------------------------}
-{  SetFileSize -> Platforms OS2          - Not Checked                      }
-{---------------------------------------------------------------------------}
-FUNCTION SetFileSize (Handle: THandle; FileSize: LongInt): Word;
-VAR Actual, Buf: LongInt;
-BEGIN
-   SetFilePos(Handle,FileSize,0,Actual);
-   If (Actual = FileSize) Then
-	Begin
-	  Actual := FileWrite(Handle, Pointer(@Buf), 0,Actual);   { Truncate the file }
-	  If (Actual <> -1) Then
-	   SetFileSize := 0
-	  Else
-	   SetFileSize := 103;                            { File truncate error }
-	End
-   Else
-	SetFileSize := 103;                       { File truncate error }
-END;
-
-{
+{
+	$Id$
+	This file is part of the Free Pascal run time library.
+	Copyright (c) 1999-2000 by the Free Pascal development team.
+
+	Includefile for objects.pp implementing OS-dependent file routines
+	for Go32V1
+
+	See the file COPYING.FPC, included in this distribution,
+	for details about the copyright.
+
+	This program is distributed in the hope that it will be useful,
+	but WITHOUT ANY WARRANTY; without even the implied warranty of
+	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************
+}
+
+{This is the correct way to call external assembler procedures.}
+procedure syscall;external name '___SYSCALL';
+
+{---------------------------------------------------------------------------}
+{  FileClose -> Platforms OS2              - Not checked                    }
+{---------------------------------------------------------------------------}
+FUNCTION FileClose(Handle: THandle): word;
+begin
+   asm
+	  xor  %bx,%bx
+	  movw handle,%bx
+	  movb $0x3e,%ah
+	  call syscall
+   end;
+   FileClose := 0;
+end;
+
+{---------------------------------------------------------------------------}
+{  FileOpen -> Platforms OS2              - Checked 05May1998 CEC           }
+{  Returns 0 on failure                                                     }
+{---------------------------------------------------------------------------}
+
+FUNCTION FileOpen (Var FileName: AsciiZ; Mode: Word): THandle;
+var
+ AMode: word;
+begin
+  if Mode=stCreate then
+	Begin
+	  AMode:=$8302;
+	end
+  else
+	Begin
+	  Case (Mode and 3) of
+	   0 : AMode:=$8001;
+	   1 : AMode:=$8404;
+	   2 : AMode:=$8404;
+	  end;
+	end;
+   asm
+	 xorl  %eax, %eax
+	 movw  %ax, DosStreamError
+	 movl  FileName, %ebx
+	 movw  $0xff02, %ax
+	 movw  AMode, %cx
+	 call  syscall
+	 jnc   .Lexit1
+	 movw  %ax, DosStreamError                        { Hold Error  }
+	 xorl  %eax, %eax                                 { Open Failed }
+   .Lexit1:
+	 movw  %ax, __RESULT
+   END;
+end;
+
+
+{***************************************************************************}
+{  DosSetFilePtr -> Platforms OS2          - Checked 05May1998 CEC          }
+{***************************************************************************}
+FUNCTION SetFilePos (Handle: THandle; Pos: LongInt; MoveType: Word;
+Var Actual: LongInt): Word;
+Var
+ val : longint;
+BEGIN
+  asm
+	 movw MoveType, %ax;                              { Load move type }
+	 movb $0x42, %ah;
+	 movl pos, %edx;                              { Load file position }
+	 movw Handle, %bx;                              { Load file handle }
+	 call syscall
+	 jc .Lexit4
+	 movl    %eax,val                               { Update new position }
+	 xorl %eax, %eax;
+   .Lexit4:
+	 movw %ax, DosStreamError                         { OS2 error returned }
+   .Lend:
+   END;
+   Actual := val;
+   SetFilePos := DosStreamError;                   { Return any error }
+END;
+
+
+{---------------------------------------------------------------------------}
+{  FileRead -> Platforms OS2              - Checked 05May1998 CEC           }
+{---------------------------------------------------------------------------}
+FUNCTION FileRead (Handle: THandle; Var Buf; Count: Sw_Word;
+Var Actual: Sw_Word): Word;
+BEGIN
+  asm
+	 movl count,%ecx
+	 movl buf,%edx
+	 xorl %ebx,%ebx
+	 movw handle,%bx
+	 movb $0x3f,%ah
+	 call syscall
+	 jnc .LDOSREAD1
+	 movw %ax,DosStreamError
+	 xorl %eax,%eax
+  .LDOSREAD1:
+  end;
+  Actual:=Count;
+  FileRead:=DosStreamError;
+end;
+
+
+{---------------------------------------------------------------------------}
+{  FileWrite -> Platforms OS2              - Checked 05May1998 CEC          }
+{---------------------------------------------------------------------------}
+FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Word): Word;
+BEGIN
+  Actual:=0;
+  asm
+	 movl Count,%ecx
+	 movl buf,%edx
+	 xorl %ebx,%ebx
+	 movw Handle,%bx
+	 movb $0x40,%ah
+	 call syscall
+	 jnc .LDOSWRITE1
+	 movw %ax,DosStreamError
+  .LDOSWRITE1:
+  end;
+  Actual:=Count;
+  FileWrite:=DosStreamError;
+end;
+
+
+{---------------------------------------------------------------------------}
+{  SetFileSize -> Platforms OS2          - Not Checked                      }
+{---------------------------------------------------------------------------}
+FUNCTION SetFileSize (Handle: THandle; FileSize: LongInt): Word;
+VAR Actual, Buf: LongInt;
+BEGIN
+   SetFilePos(Handle,FileSize,0,Actual);
+   If (Actual = FileSize) Then
+	Begin
+	  Actual := FileWrite(Handle, Pointer(@Buf), 0,Actual);   { Truncate the file }
+	  If (Actual <> -1) Then
+	   SetFileSize := 0
+	  Else
+	   SetFileSize := 103;                            { File truncate error }
+	End
+   Else
+	SetFileSize := 103;                       { File truncate error }
+END;
+
+{
   $Log$
-  Revision 1.3  2000-01-07 16:41:48  daniel
+  Revision 1.4  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.3  2000/01/07 16:41:48  daniel
     * copyright 2000
 
   Revision 1.2  2000/01/07 16:32:32  daniel
     * copyright 2000 added
 
-  Revision 1.1  1999/03/26 14:23:14  daniel
-  + Added. Better late than never.
-
-  Revision 1.1  1998/12/21 13:07:02  peter
-	* use -FE
-
-  Revision 1.4  1998/07/06 12:26:19  carl
-	* Glurbl.... now work perfectly! Do not change :)
-
-  Revision 1.3  1998/07/02 12:25:27  carl
-	* NOTHING would work, FileOpen is now correct!!
-
-  Revision 1.2  1998/05/31 14:18:18  peter
-	* force att or direct assembling
-	* cleanup of some files
-
-}
-
+}
+

+ 4 - 24
rtl/os2/os.inc

@@ -20,33 +20,13 @@
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:48  daniel
+  Revision 1.5  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.4  2000/01/07 16:41:48  daniel
     * copyright 2000
 
   Revision 1.3  2000/01/07 16:32:32  daniel
     * copyright 2000 added
 
-  Revision 1.2  1998/04/09 08:24:14  daniel
-  * Brings OS/2 directory up to date.
-
-  Revision 1.3  1998/01/26 12:01:56  michael
-  + Added log at the end
-
-
-  
-  Working file: rtl/os2/os.inc
-  description:
-  ----------------------------
-  revision 1.2
-  date: 1997/12/10 11:25:03;  author: michael;  state: Exp;  lines: +14 -0
-  + added header with copyright reference.
-  ----------------------------
-  revision 1.1
-  date: 1997/11/27 08:34:00;  author: michael;  state: Exp;
-  Initial revision
-  ----------------------------
-  revision 1.1.1.1
-  date: 1997/11/27 08:34:00;  author: michael;  state: Exp;  lines: +0 -0
-  FPC RTL CVS start
-  =============================================================================
 }

+ 4 - 7
rtl/os2/pmbitmap.pas

@@ -200,7 +200,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.9  2000-01-09 20:48:04  hajny
+  Revision 1.10  2000-02-09 16:59:33  peter
+    * truncated log
+
+  Revision 1.9  2000/01/09 20:48:04  hajny
     * FPK changed to FPC
 
   Revision 1.8  2000/01/07 16:41:48  daniel
@@ -215,10 +218,4 @@ end.
   Revision 1.5  1999/08/04 15:51:10  hajny
     * merging changes by RB and DM :-(
 
-  Revision 1.4  1999/06/11 13:16:21  daniel
-  * Layout and copyright updates.
-
-  Revision 1.3  1999/06/02 16:01:31  hajny
-    * changes by Ramon Bosque
-
 }

Algunos archivos no se mostraron porque demasiados archivos cambiaron en este cambio