Merged revisions 9692,9694-9695,9697-9714,9720,9722,9729,9732-9733,9740,9745,9749-9750,9753-9757,9760-9766,9768-9770,9772-9774,9783,9786,9788,9814,9822,9825,9837-9850,9852,9855-9856,9863-9864,9867,9882,9891-9892,9897,9899-9900,9902-9904,9907-9911,9913,9915,9917,9920,9922-9937,9939-9974,9976-10005,10007-10012,10014-10046,10049-10051,10053-10067,10069-10071,10074,10079,10082,10084-10086,10091,10099-10100,10102-10103,10113-10114,10129-10130,10136 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk ........ r9783 | joost | 2008-01-18 23:52:13 +0100 (Fri, 18 Jan 2008) | 1 line * DigestTestREport makes it possible to write the unittest results to a testsuite-digest ........ r9786 | joost | 2008-01-19 00:40:44 +0100 (Sat, 19 Jan 2008) | 1 line * Added dependency on paszlib to fcl-fpcunit ........ r9788 | jonas | 2008-01-19 01:20:49 +0100 (Sat, 19 Jan 2008) | 2 lines + also add fpc-unit dependency on paszlib to build dependencies ........ r9882 | peter | 2008-01-23 18:04:40 +0100 (Wed, 23 Jan 2008) | 2 lines * shell/awk script to help creating fpmake.pp from existing ppu files ........ r9891 | peter | 2008-01-24 08:47:03 +0100 (Thu, 24 Jan 2008) | 2 lines * obsolete files ........ r9892 | peter | 2008-01-24 08:52:43 +0100 (Thu, 24 Jan 2008) | 2 lines * fpmake added ........ r9897 | peter | 2008-01-24 21:53:26 +0100 (Thu, 24 Jan 2008) | 2 lines * remove dos dependency ........ r9899 | peter | 2008-01-24 22:50:42 +0100 (Thu, 24 Jan 2008) | 2 lines * fpmake support ........ r9900 | peter | 2008-01-24 22:58:28 +0100 (Thu, 24 Jan 2008) | 2 lines * don't inlcude rtl unit depnedencies ........ r9902 | peter | 2008-01-24 23:08:59 +0100 (Thu, 24 Jan 2008) | 2 lines * fpmake added ........ r9903 | peter | 2008-01-24 23:57:37 +0100 (Thu, 24 Jan 2008) | 2 lines * new fpmake.pp ........ r9904 | peter | 2008-01-24 23:57:55 +0100 (Thu, 24 Jan 2008) | 2 lines * winunits-jedi deps ........ r9907 | peter | 2008-01-25 00:09:54 +0100 (Fri, 25 Jan 2008) | 3 lines * move pasjpeg * add fpmake.pp for pasjpeg ........ r9908 | peter | 2008-01-25 00:12:13 +0100 (Fri, 25 Jan 2008) | 2 lines * fpmake.pp ........ r9909 | peter | 2008-01-25 00:30:20 +0100 (Fri, 25 Jan 2008) | 4 lines * move uriparser to fcl-base * move netdb unit and examples to fcl-net * removed netdb package ........ r9910 | peter | 2008-01-25 00:35:30 +0100 (Fri, 25 Jan 2008) | 3 lines * mode objfpc added * remove old fpmake ........ r9911 | peter | 2008-01-25 00:37:32 +0100 (Fri, 25 Jan 2008) | 2 lines * new fpmake.pp ........ r9913 | peter | 2008-01-25 00:49:49 +0100 (Fri, 25 Jan 2008) | 2 lines * new fpmake.pp ........ r9915 | peter | 2008-01-25 00:59:57 +0100 (Fri, 25 Jan 2008) | 2 lines * build unit dependencies ........ r9917 | peter | 2008-01-25 01:16:33 +0100 (Fri, 25 Jan 2008) | 2 lines * new fpmake.pp ........ r9920 | peter | 2008-01-25 17:23:31 +0100 (Fri, 25 Jan 2008) | 2 lines * remove dependency on itself ........ r9922 | marco | 2008-01-26 14:08:46 +0100 (Sat, 26 Jan 2008) | 3 lines * Basic moving and updating of mysql. makefile.fpc's included, regened makefiles not. fpmake also in separate commit (will follow shortly) ........ r9923 | marco | 2008-01-26 14:12:04 +0100 (Sat, 26 Jan 2008) | 2 lines * regened makefiles for mysql move in separate commit to ease merging. ........ r9924 | marco | 2008-01-26 14:30:07 +0100 (Sat, 26 Jan 2008) | 2 lines * fpmake for mysql ........ r9925 | marco | 2008-01-26 14:53:13 +0100 (Sat, 26 Jan 2008) | 3 lines * Package ibase moved + makefile.fpc's. fpmake and regenned makefiles follow in separate commits ........ r9926 | marco | 2008-01-26 14:54:17 +0100 (Sat, 26 Jan 2008) | 2 lines * makefiles of ibase moving ........ r9927 | marco | 2008-01-26 14:54:47 +0100 (Sat, 26 Jan 2008) | 2 lines * Makefile mysql move was not committed, fixed ........ r9928 | marco | 2008-01-26 15:09:42 +0100 (Sat, 26 Jan 2008) | 2 lines * fpmake for ibase ........ r9929 | marco | 2008-01-26 15:34:28 +0100 (Sat, 26 Jan 2008) | 2 lines * removed exces files + mysql/readme move ........ r9930 | marco | 2008-01-26 15:51:36 +0100 (Sat, 26 Jan 2008) | 2 lines * ncurses moved. makefile.fpc + fpmake included, makefile in separate commit ........ r9931 | marco | 2008-01-26 16:04:58 +0100 (Sat, 26 Jan 2008) | 2 lines * Unzip moved ........ r9932 | marco | 2008-01-26 16:12:56 +0100 (Sat, 26 Jan 2008) | 2 lines * zlib moved ........ r9933 | marco | 2008-01-26 16:14:00 +0100 (Sat, 26 Jan 2008) | 2 lines * cleanup moved pkgs ........ r9934 | marco | 2008-01-26 16:28:25 +0100 (Sat, 26 Jan 2008) | 2 lines * oracle moved + makefile.fpc + fpmake ........ r9935 | marco | 2008-01-26 17:19:50 +0100 (Sat, 26 Jan 2008) | 2 lines * Dbus moved, incl everything ........ r9936 | marco | 2008-01-26 17:37:27 +0100 (Sat, 26 Jan 2008) | 2 lines * libc moved ........ r9937 | marco | 2008-01-26 17:38:26 +0100 (Sat, 26 Jan 2008) | 1 line * libc deleted ........ r9939 | marco | 2008-01-26 17:46:49 +0100 (Sat, 26 Jan 2008) | 2 lines * Moved odbc ........ r9940 | marco | 2008-01-26 17:47:05 +0100 (Sat, 26 Jan 2008) | 2 lines * removed ........ r9941 | marco | 2008-01-26 17:47:34 +0100 (Sat, 26 Jan 2008) | 2 lines * deleted ........ r9942 | peter | 2008-01-26 17:49:25 +0100 (Sat, 26 Jan 2008) | 2 lines * netdb is unix only ........ r9943 | marco | 2008-01-26 17:57:00 +0100 (Sat, 26 Jan 2008) | 2 lines * regexpr moved ........ r9944 | marco | 2008-01-26 17:57:23 +0100 (Sat, 26 Jan 2008) | 2 lines * delete ........ r9945 | marco | 2008-01-26 18:12:43 +0100 (Sat, 26 Jan 2008) | 2 lines * postgres and sqlite moved ........ r9946 | jonas | 2008-01-26 18:16:46 +0100 (Sat, 26 Jan 2008) | 4 lines + added missing Makefiles * regenerated packages/extra Makefile after several packages were moved ........ r9947 | marco | 2008-01-26 18:26:21 +0100 (Sat, 26 Jan 2008) | 2 lines * missing files added ........ r9948 | marco | 2008-01-26 18:45:32 +0100 (Sat, 26 Jan 2008) | 2 lines * pthreads moved ........ r9949 | marco | 2008-01-26 18:46:00 +0100 (Sat, 26 Jan 2008) | 2 lines * excess packages deleted ........ r9950 | marco | 2008-01-26 19:03:23 +0100 (Sat, 26 Jan 2008) | 2 lines * Imagemagick moved ........ r9951 | marco | 2008-01-26 19:18:09 +0100 (Sat, 26 Jan 2008) | 2 lines * gdbint moved ........ r9952 | marco | 2008-01-26 19:24:29 +0100 (Sat, 26 Jan 2008) | 2 lines * libpng moved for Florian ........ r9953 | marco | 2008-01-26 19:24:59 +0100 (Sat, 26 Jan 2008) | 2 lines * packages removed ........ r9954 | peter | 2008-01-26 19:26:35 +0100 (Sat, 26 Jan 2008) | 2 lines * move cgiapp and ezcgi to fcl-web ........ r9955 | peter | 2008-01-26 19:58:55 +0100 (Sat, 26 Jan 2008) | 2 lines * new fpmake.pp ........ r9956 | peter | 2008-01-26 20:15:13 +0100 (Sat, 26 Jan 2008) | 2 lines * add mode objfpc ........ r9957 | peter | 2008-01-26 20:18:39 +0100 (Sat, 26 Jan 2008) | 2 lines * add fpmake.pp ........ r9958 | peter | 2008-01-26 20:18:52 +0100 (Sat, 26 Jan 2008) | 2 lines * new fpmake.pp ........ r9959 | marco | 2008-01-26 20:34:39 +0100 (Sat, 26 Jan 2008) | 2 lines * os2 compilation fixed. didn't work because of outdated fpmkunit ........ r9960 | peter | 2008-01-26 20:42:50 +0100 (Sat, 26 Jan 2008) | 2 lines * top level packages building ........ r9961 | peter | 2008-01-26 20:46:02 +0100 (Sat, 26 Jan 2008) | 2 lines * add commandline how to generate the include lines ........ r9962 | marco | 2008-01-26 20:54:31 +0100 (Sat, 26 Jan 2008) | 2 lines * unixutil moved ........ r9963 | marco | 2008-01-26 21:02:30 +0100 (Sat, 26 Jan 2008) | 2 lines * X11 moved ........ r9964 | marco | 2008-01-26 21:11:31 +0100 (Sat, 26 Jan 2008) | 2 lines * uuid moved ........ r9965 | marco | 2008-01-26 21:12:36 +0100 (Sat, 26 Jan 2008) | 2 lines * removed rests of moved pkgs ........ r9966 | marco | 2008-01-26 21:17:35 +0100 (Sat, 26 Jan 2008) | 2 lines * ldap moved ........ r9967 | peter | 2008-01-26 21:20:09 +0100 (Sat, 26 Jan 2008) | 2 lines * create fpc-all package from all other packages ........ r9968 | marco | 2008-01-26 21:26:01 +0100 (Sat, 26 Jan 2008) | 2 lines * mad,modplug,dts ........ r9969 | marco | 2008-01-26 21:27:05 +0100 (Sat, 26 Jan 2008) | 2 lines * and delete 4 pkgs leftovers, ldap mad modplug dts ........ r9970 | marco | 2008-01-26 21:43:23 +0100 (Sat, 26 Jan 2008) | 2 lines * gdbm tcl syslog libcurl ........ r9971 | marco | 2008-01-26 21:44:11 +0100 (Sat, 26 Jan 2008) | 2 lines * gdbm libcurl tcl syslog removed from extra (leftover makefiles etc) ........ r9972 | peter | 2008-01-26 21:52:25 +0100 (Sat, 26 Jan 2008) | 2 lines * new fpmake.pp ........ r9973 | marco | 2008-01-26 21:55:34 +0100 (Sat, 26 Jan 2008) | 2 lines * opengl ........ r9974 | marco | 2008-01-26 22:00:05 +0100 (Sat, 26 Jan 2008) | 2 lines * opengl deleted ........ r9976 | marco | 2008-01-26 22:06:36 +0100 (Sat, 26 Jan 2008) | 2 lines * move whole dirs, delete possible conflicting files beforehand ........ r9977 | marco | 2008-01-26 22:07:16 +0100 (Sat, 26 Jan 2008) | 2 lines * more makefile ........ r9978 | marco | 2008-01-26 22:17:10 +0100 (Sat, 26 Jan 2008) | 2 lines * Moved gtk -> gtk1 first pass ........ r9979 | marco | 2008-01-26 22:18:35 +0100 (Sat, 26 Jan 2008) | 2 lines * gtkgl lost its own makefile in the change -> demo moved to examples ........ r9980 | marco | 2008-01-26 22:22:36 +0100 (Sat, 26 Jan 2008) | 2 lines * fpmake for gtk1 ........ r9981 | marco | 2008-01-26 22:32:36 +0100 (Sat, 26 Jan 2008) | 2 lines * Pass two, src/ creation ........ r9982 | marco | 2008-01-26 22:58:23 +0100 (Sat, 26 Jan 2008) | 2 lines * matroska moved ........ r9983 | marco | 2008-01-26 23:03:51 +0100 (Sat, 26 Jan 2008) | 2 lines * Cairo moved ........ r9984 | marco | 2008-01-26 23:06:01 +0100 (Sat, 26 Jan 2008) | 2 lines * toplevel makefiles updated ........ r9985 | marco | 2008-01-26 23:20:45 +0100 (Sat, 26 Jan 2008) | 2 lines * gtk2 first pass ........ r9986 | marco | 2008-01-26 23:23:03 +0100 (Sat, 26 Jan 2008) | 2 lines * one more file moved to gtk2 ........ r9987 | marco | 2008-01-26 23:28:06 +0100 (Sat, 26 Jan 2008) | 2 lines * chm moved ........ r9988 | marco | 2008-01-26 23:41:08 +0100 (Sat, 26 Jan 2008) | 2 lines * 4 pkgs a52 bfd aspell bzip2. Bzip2 didn't compile ........ r9989 | marco | 2008-01-26 23:44:42 +0100 (Sat, 26 Jan 2008) | 2 lines * 6 old pkgs deleted a52 bfd aspell bzip2 gtk2 chm ........ r9990 | marco | 2008-01-26 23:45:24 +0100 (Sat, 26 Jan 2008) | 2 lines * removed old dirs cairo extra pkg ........ r9991 | marco | 2008-01-26 23:45:46 +0100 (Sat, 26 Jan 2008) | 2 lines * delete matroska ........ r9992 | marco | 2008-01-26 23:47:18 +0100 (Sat, 26 Jan 2008) | 2 lines * delete old pkg gtk, is now gtk1 ........ r9993 | marco | 2008-01-26 23:51:58 +0100 (Sat, 26 Jan 2008) | 2 lines * makefiles somewhat regenned for chm-gtk2-a52-bfd-aspell-bzip2 pkgs ........ r9994 | marco | 2008-01-26 23:58:46 +0100 (Sat, 26 Jan 2008) | 2 lines * fpgtk first pass ........ r9995 | marco | 2008-01-27 00:00:46 +0100 (Sun, 27 Jan 2008) | 2 lines * examples moved ........ r9996 | marco | 2008-01-27 00:01:37 +0100 (Sun, 27 Jan 2008) | 1 line * stale dir moved ........ r9997 | marco | 2008-01-27 00:05:38 +0100 (Sun, 27 Jan 2008) | 2 lines * newt moved ........ r9998 | marco | 2008-01-27 00:06:56 +0100 (Sun, 27 Jan 2008) | 2 lines * cleanup after moving ........ r9999 | marco | 2008-01-27 00:11:25 +0100 (Sun, 27 Jan 2008) | 2 lines * imlib moved ........ r10000 | marco | 2008-01-27 00:11:45 +0100 (Sun, 27 Jan 2008) | 2 lines * old imlib remove ........ r10001 | marco | 2008-01-27 00:18:37 +0100 (Sun, 27 Jan 2008) | 2 lines * cdrom ........ r10002 | marco | 2008-01-27 00:20:18 +0100 (Sun, 27 Jan 2008) | 1 line * forgot one file ........ r10003 | marco | 2008-01-27 00:32:11 +0100 (Sun, 27 Jan 2008) | 1 line * hermes moved ........ r10004 | marco | 2008-01-27 00:32:49 +0100 (Sun, 27 Jan 2008) | 1 line * delete old hermes ........ r10005 | marco | 2008-01-27 00:36:53 +0100 (Sun, 27 Jan 2008) | 1 line * libgd moved ........ r10007 | marco | 2008-01-27 00:39:08 +0100 (Sun, 27 Jan 2008) | 2 lines * users first pass ........ r10008 | marco | 2008-01-27 00:46:10 +0100 (Sun, 27 Jan 2008) | 3 lines * Moved users pkg, added makefile.fpc, and made it in general somewhat compilable. Demo still fails due to crypt_h unit missing ........ r10009 | marco | 2008-01-27 00:46:31 +0100 (Sun, 27 Jan 2008) | 1 line * remove users ........ r10010 | marco | 2008-01-27 00:48:51 +0100 (Sun, 27 Jan 2008) | 2 lines * utmp moved ........ r10011 | marco | 2008-01-27 00:53:01 +0100 (Sun, 27 Jan 2008) | 1 line * moved svgalib ........ r10012 | marco | 2008-01-27 01:00:07 +0100 (Sun, 27 Jan 2008) | 2 lines * Makefiles regenned ........ r10014 | marco | 2008-01-27 10:39:14 +0100 (Sun, 27 Jan 2008) | 1 line * openal moved ........ r10015 | marco | 2008-01-27 10:51:30 +0100 (Sun, 27 Jan 2008) | 1 line * xforms moved ........ r10016 | marco | 2008-01-27 11:04:56 +0100 (Sun, 27 Jan 2008) | 1 line * fftw, minor updates to xforms ........ r10017 | marco | 2008-01-27 11:10:59 +0100 (Sun, 27 Jan 2008) | 1 line * numlib moved ........ r10018 | marco | 2008-01-27 11:13:37 +0100 (Sun, 27 Jan 2008) | 1 line * pcap moved ........ r10019 | marco | 2008-01-27 11:18:45 +0100 (Sun, 27 Jan 2008) | 1 line * rexx moved ........ r10020 | marco | 2008-01-27 11:22:08 +0100 (Sun, 27 Jan 2008) | 1 line * oggvorbis first pass ........ r10021 | marco | 2008-01-27 11:23:33 +0100 (Sun, 27 Jan 2008) | 1 line * oggvorbis move + cleanup ........ r10022 | marco | 2008-01-27 11:28:44 +0100 (Sun, 27 Jan 2008) | 1 line * ggi moved ........ r10023 | michael | 2008-01-27 11:32:11 +0100 (Sun, 27 Jan 2008) | 1 line * Added support for bitpacked ........ r10024 | marco | 2008-01-27 11:35:18 +0100 (Sun, 27 Jan 2008) | 1 line * sdl moved ........ r10025 | michael | 2008-01-27 11:39:07 +0100 (Sun, 27 Jan 2008) | 1 line * Save bitpacked also, not just register ........ r10026 | michael | 2008-01-27 11:40:41 +0100 (Sun, 27 Jan 2008) | 1 line * GetDeclaration reflects bitpacked ........ r10027 | marco | 2008-01-27 11:43:35 +0100 (Sun, 27 Jan 2008) | 1 line * sndfile ........ r10028 | marco | 2008-01-27 11:45:21 +0100 (Sun, 27 Jan 2008) | 1 line * removed dead utmp dir ........ r10029 | michael | 2008-01-27 11:48:45 +0100 (Sun, 27 Jan 2008) | 1 line * Support for bitpacked and removed stray debug writeln ........ r10030 | marco | 2008-01-27 11:49:05 +0100 (Sun, 27 Jan 2008) | 1 line * shellscript to print deps based on makefile.fpc requirement lines ........ r10031 | marco | 2008-01-27 11:52:27 +0100 (Sun, 27 Jan 2008) | 1 line * lua moved ........ r10032 | marco | 2008-01-27 11:56:35 +0100 (Sun, 27 Jan 2008) | 1 line * openssl moved ........ r10033 | marco | 2008-01-27 12:09:10 +0100 (Sun, 27 Jan 2008) | 1 line * makefiles regenned ........ r10034 | marco | 2008-01-27 12:15:57 +0100 (Sun, 27 Jan 2008) | 1 line * gbaunits moved ........ r10035 | marco | 2008-01-27 12:20:55 +0100 (Sun, 27 Jan 2008) | 1 line * palmunits moved ........ r10036 | marco | 2008-01-27 12:43:58 +0100 (Sun, 27 Jan 2008) | 1 line * graph moved ........ r10037 | marco | 2008-01-27 12:53:57 +0100 (Sun, 27 Jan 2008) | 1 line * os2units moved ........ r10038 | marco | 2008-01-27 13:00:36 +0100 (Sun, 27 Jan 2008) | 1 line * libndsfpc moved ........ r10039 | marco | 2008-01-27 13:01:35 +0100 (Sun, 27 Jan 2008) | 1 line * os2units leftovers removed ........ r10040 | marco | 2008-01-27 13:24:32 +0100 (Sun, 27 Jan 2008) | 1 line * gnome1 moved ........ r10041 | marco | 2008-01-27 13:32:52 +0100 (Sun, 27 Jan 2008) | 1 line * regened, mostly working again ........ r10042 | marco | 2008-01-27 13:43:51 +0100 (Sun, 27 Jan 2008) | 2 lines * dep fixed ........ r10043 | marco | 2008-01-27 14:16:04 +0100 (Sun, 27 Jan 2008) | 1 line * amunits moved ........ r10044 | marco | 2008-01-27 14:30:17 +0100 (Sun, 27 Jan 2008) | 1 line * moved univint ........ r10045 | marco | 2008-01-27 14:55:40 +0100 (Sun, 27 Jan 2008) | 1 line * makefiles updated. httpd removed from compilation pending full removal ........ r10046 | michael | 2008-01-27 15:03:14 +0100 (Sun, 27 Jan 2008) | 1 line * Initial implementation ........ r10049 | marco | 2008-01-27 15:28:09 +0100 (Sun, 27 Jan 2008) | 1 line * gdbint removed from some platforms for mischi ........ r10050 | marco | 2008-01-27 15:42:46 +0100 (Sun, 27 Jan 2008) | 1 line * moved ptc ........ r10051 | marco | 2008-01-27 15:56:21 +0100 (Sun, 27 Jan 2008) | 2 lines * added ........ r10053 | marco | 2008-01-27 16:14:51 +0100 (Sun, 27 Jan 2008) | 1 line * gnome dep on gtk ........ r10054 | marco | 2008-01-27 16:21:51 +0100 (Sun, 27 Jan 2008) | 1 line * gnome1 now also dep on imlib ........ r10055 | marco | 2008-01-27 16:29:42 +0100 (Sun, 27 Jan 2008) | 1 line * more Gnome fixes ........ r10056 | marco | 2008-01-27 16:50:12 +0100 (Sun, 27 Jan 2008) | 2 lines * Another gnome order fix ........ r10057 | marco | 2008-01-27 16:52:05 +0100 (Sun, 27 Jan 2008) | 1 line * extra/ removed + packages/makefile update ........ r10058 | marco | 2008-01-27 17:34:53 +0100 (Sun, 27 Jan 2008) | 1 line * apache example fixes before moving ........ r10059 | marco | 2008-01-27 17:50:36 +0100 (Sun, 27 Jan 2008) | 2 lines * ptrint for a longint(ptr) typecast ........ r10060 | jonas | 2008-01-27 18:10:54 +0100 (Sun, 27 Jan 2008) | 7 lines - don't compile sdl for darwin/ppc64 and darwin/x86_64 (it also wasn't in the past) * graph does not depend on sdl for go32v2 (sdl is not compiled for go32v2) * sdl does not depend on pthreads and x11 for non-unix * opengl does not depend on x11 for non-unix - removed duplicated opengl dependencies declaration ........ r10061 | marco | 2008-01-27 18:22:29 +0100 (Sun, 27 Jan 2008) | 1 line * httpd moved, splitted, decapitated and rejoined ........ r10062 | marco | 2008-01-27 18:32:37 +0100 (Sun, 27 Jan 2008) | 1 line * httpd22 now added to all platforms that had dep on base/httpd ........ r10063 | marco | 2008-01-27 18:32:57 +0100 (Sun, 27 Jan 2008) | 1 line * base removed ........ r10064 | marco | 2008-01-27 18:45:38 +0100 (Sun, 27 Jan 2008) | 1 line * initial version ........ r10065 | marco | 2008-01-27 18:47:47 +0100 (Sun, 27 Jan 2008) | 1 line * fpmake ........ r10066 | marco | 2008-01-27 18:59:57 +0100 (Sun, 27 Jan 2008) | 1 line * base removed makefile changes ........ r10067 | peter | 2008-01-27 19:04:11 +0100 (Sun, 27 Jan 2008) | 2 lines * missing src/ for gdbint build with gdbver found ........ r10069 | jonas | 2008-01-27 22:23:10 +0100 (Sun, 27 Jan 2008) | 2 lines * fixed go32v2 check for sdl ........ r10070 | peter | 2008-01-27 22:31:33 +0100 (Sun, 27 Jan 2008) | 2 lines * gtk1, gtk2 for windows fixed ........ r10071 | peter | 2008-01-27 22:33:51 +0100 (Sun, 27 Jan 2008) | 2 lines * fixed win32 build ........ r10074 | peter | 2008-01-27 23:10:55 +0100 (Sun, 27 Jan 2008) | 2 lines * updated includes ........ r10079 | peter | 2008-01-28 09:08:35 +0100 (Mon, 28 Jan 2008) | 2 lines * Makefiles added ........ r10084 | vincents | 2008-01-28 20:20:26 +0100 (Mon, 28 Jan 2008) | 1 line * fixed win64 compilation ........ r10085 | marco | 2008-01-28 20:41:24 +0100 (Mon, 28 Jan 2008) | 1 line * includepath added ........ r10086 | marco | 2008-01-28 21:04:31 +0100 (Mon, 28 Jan 2008) | 1 line * sw_word -> longint ........ r10091 | michael | 2008-01-28 22:13:19 +0100 (Mon, 28 Jan 2008) | 1 line * Set windows library name correct ........ r10099 | marco | 2008-01-29 21:18:17 +0100 (Tue, 29 Jan 2008) | 1 line * gtk1 now depends on opengl in toplevel makefile ........ r10100 | marco | 2008-01-29 21:27:09 +0100 (Tue, 29 Jan 2008) | 2 lines * fixed typo ........ r10102 | peter | 2008-01-29 22:13:20 +0100 (Tue, 29 Jan 2008) | 2 lines * fixed typo in r10100 ........ r10103 | peter | 2008-01-29 22:48:45 +0100 (Tue, 29 Jan 2008) | 2 lines * fixed fpcdir ........ r10113 | michael | 2008-01-30 10:07:12 +0100 (Wed, 30 Jan 2008) | 1 line * PXlib added ........ r10114 | michael | 2008-01-30 11:52:34 +0100 (Wed, 30 Jan 2008) | 1 line * Unixtype removed for non-unix ........ r10136 | yury | 2008-02-01 20:20:26 +0100 (Fri, 01 Feb 2008) | 1 line * Fixed packages compilation for wince. ........ git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_2@10151 3ad0048d-3df7-0310-abae-a5850022a9f2
author: peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> 2008-02-02 15:48:09 +0000
committer: peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> 2008-02-02 15:48:09 +0000
commit: c8845dfe5ca36797bebc57bcc37aae6a8e94444a (patch)
tree: a815946b5827956fef96fe9548e4a9c4d1e1b7d7 /packages/ptc/src/dos/fakemode/console.inc
parent: d7617abfb24ee7c360c3d123e1e9b2b5cc800a5d (diff)
download: fpc-c8845dfe5ca36797bebc57bcc37aae6a8e94444a.tar.gz
1 files changed, 806 insertions, 0 deletions
diff --git a/packages/ptc/src/dos/fakemode/console.inc b/packages/ptc/src/dos/fakemode/console.inc
new file mode 100644
index 0000000000..b9cd5a999f
--- /dev/null
+++ b/packages/ptc/src/dos/fakemode/console.inc
@@ -0,0 +1,806 @@
+{$MACRO ON}
+
+{$DEFINE DEFAULT_WIDTH:=320}
+{$DEFINE DEFAULT_HEIGHT:=200}
+{$DEFINE DEFAULT_FORMAT:=TPTCFormat.Create(32, $00FF0000, $0000FF00, $000000FF)}
+
+{$ASMMODE intel}
+
+Constructor VGAConsole.Create;
+
+Var
+{  I, J : Integer;
+  r, g, b, a : DWord;
+  tmpbpp : Integer;}
+  tmp : TPTCFormat;
+
+Begin
+  m_area := Nil;
+  m_clip := Nil;
+  m_keyboard := Nil;
+  m_copy := Nil;
+  m_palette := Nil;
+  m_default_format := Nil;
+  m_open := False;
+  m_locked := False;
+  m_title[0] := #0;
+  m_information[0] := #0;
+  m_default_width := DEFAULT_WIDTH;
+  m_default_height := DEFAULT_HEIGHT;
+  m_default_format := DEFAULT_FORMAT;
+
+{  InitVESA;}
+  m_primary := Nil;
+{  m_modes[0].Create;}
+
+  m_area := TPTCArea.Create;
+  m_clip := TPTCArea.Create;
+  m_copy := TPTCCopy.Create;
+  m_palette := TPTCPalette.Create;
+
+  tmp := TPTCFormat.Create(8);
+  m_modes[0] := TPTCMode.Create(320, 200, tmp);
+  tmp.Destroy;
+  tmp := TPTCFormat.Create(8, $E0, $1C, $03);
+  m_modes[1] := TPTCMode.Create(320, 200, tmp);
+  tmp.Destroy;
+  tmp := TPTCFormat.Create(16, $F800, $7E0, $1F);
+  m_modes[2] := TPTCMode.Create(320, 200, tmp);
+  tmp.Destroy;
+  m_modes[3] := TPTCMode.Create;
+  m_faketype := FAKEMODE2A;
+
+  configure('ptc.cfg');
+End;
+
+Destructor VGAConsole.Destroy;
+
+Begin
+  close;
+  internal_clear_mode_list;
+  If m_keyboard <> Nil Then
+    m_keyboard.Destroy;
+  If m_copy <> Nil Then
+    m_copy.Destroy;
+  If m_default_format <> Nil Then
+    m_default_format.Destroy;
+  If m_palette <> Nil Then
+    m_palette.Destroy;
+  If m_clip <> Nil Then
+    m_clip.Destroy;
+  If m_area <> Nil Then
+    m_area.Destroy;
+  Inherited Destroy;
+End;
+
+Procedure VGAConsole.configure(Const _file : String);
+
+Var
+  F : Text;
+  S : String;
+
+Begin
+  ASSign(F, _file);
+  Try
+    Reset(F);
+  Except
+    Exit;
+  End;
+  Try
+    While Not EoF(F) Do
+    Begin
+      Readln(F, S);
+      option(S);
+    End;
+  Finally
+    CloseFile(F);
+  End;
+End;
+
+Function VGAConsole.option(Const _option : String) : Boolean;
+
+Begin
+  {...}
+  If (System.Copy(_option, 1, 8) = 'FAKEMODE') And (Length(_option) = 10) And
+    (_option[9] >= '1') And (_option[9] <= '3') And
+    (_option[10] >= 'A') And (_option[10] <= 'C') Then
+  Begin
+    Case _option[9] Of
+      '1' : Case _option[10] Of
+        'A' : m_faketype := FAKEMODE1A;
+        'B' : m_faketype := FAKEMODE1B;
+        'C' : m_faketype := FAKEMODE1C;
+      End;
+      '2' : Case _option[10] Of
+        'A' : m_faketype := FAKEMODE2A;
+        'B' : m_faketype := FAKEMODE2B;
+        'C' : m_faketype := FAKEMODE2C;
+      End;
+      '3' : Case _option[10] Of
+        'A' : m_faketype := FAKEMODE3A;
+        'B' : m_faketype := FAKEMODE3B;
+        'C' : m_faketype := FAKEMODE3C;
+      End;
+    End;
+    option := True;
+    Exit;
+  End;
+  option := m_copy.option(_option);
+End;
+
+Procedure VGAConsole.internal_clear_mode_list;
+
+Var
+  I : Integer;
+  Done : Boolean;
+
+Begin
+  I := 0;
+  Done := False;
+  Repeat
+    Done := Not m_modes[I].valid;
+    m_modes[I].Destroy;
+    Inc(I);
+  Until Done;
+End;
+
+Function VGAConsole.modes : PPTCMode;
+
+Begin
+{  internal_clear_mode_list;}
+
+  modes := m_modes;
+End;
+
+Procedure VGAConsole.open(Const _title : String; _pages : Integer); Overload;
+
+Begin
+  open(_title, m_default_format, _pages);
+End;
+
+Procedure VGAConsole.open(Const _title : String; Const _format : TPTCFormat;
+                           _pages : Integer); Overload;
+
+Begin
+  open(_title, m_default_width, m_default_height, _format, _pages);
+End;
+
+Procedure VGAConsole.open(Const _title : String; _width, _height : Integer;
+                           Const _format : TPTCFormat; _pages : Integer); Overload;
+
+Var
+  m : TPTCMode;
+
+Begin
+  m := TPTCMode.Create(_width, _height, _format);
+  Try
+    open(_title, m, _pages);
+  Finally
+    m.Destroy;
+  End;
+End;
+
+Procedure VGAConsole.open(Const _title : String; Const _mode : TPTCMode;
+                           _pages : Integer); Overload;
+
+Var
+{  _width, _height : Integer;
+  _format : TPTCFormat;}
+  I : Integer;
+{  modefound : Integer;}
+  modetype : Integer;
+
+Begin
+  If Not _mode.valid Then
+    Raise TPTCError.Create('invalid mode');
+  If _mode.format.indexed Then
+    modetype := INDEX8
+  Else
+    If _mode.format.bits = 8 Then
+      modetype := RGB332
+    Else
+      modetype := FAKEMODE;
+  internal_pre_open_setup(_title);
+  internal_open_fullscreen_start;
+  internal_open_fullscreen(modetype);
+  internal_open_fullscreen_finish(_pages);
+  internal_post_open_setup;
+End;
+
+Procedure VGAConsole.close;
+
+Begin
+  If m_open Then
+  Begin
+    If m_locked Then
+      Raise TPTCError.Create('console is still locked');
+    { flush all key presses }
+    While KeyPressed Do ReadKey;
+    internal_close;
+    m_open := False;
+  End;
+End;
+
+Procedure VGAConsole.flush;
+
+Begin
+  check_open;
+  check_unlocked;
+End;
+
+Procedure VGAConsole.finish;
+
+Begin
+  check_open;
+  check_unlocked;
+End;
+
+Procedure VGAConsole.vga_load(data : Pointer); ASSembler;
+
+Asm
+  push es
+  mov ax, fs
+  mov es, ax
+  mov ecx, 64000/4
+  mov esi, [data]
+  mov edi, 0A0000h
+  cld
+  rep movsd
+  pop es
+End;
+
+Procedure VGAConsole.update;
+
+Var
+  framebuffer : PInteger;
+
+Begin
+  check_open;
+  check_unlocked;
+  Case m_CurrentMode Of
+    0, 1 : Begin
+      While (inportb($3DA) And 8) <> 0 Do;
+      While (inportb($3DA) And 8) = 0 Do;
+      vga_load(m_primary);
+    End;
+    2 : fakemode_load(m_primary, True);
+  End;
+{  WriteToVideoMemory(m_primary, 0, m_pitch * m_height);}
+End;
+
+Procedure VGAConsole.update(Const _area : TPTCArea);
+
+Begin
+  update;
+End;
+
+Procedure VGAConsole.internal_ReadKey(k : TPTCKey);
+
+Begin
+  check_open;
+  m_keyboard.internal_ReadKey(k);
+End;
+
+Function VGAConsole.internal_PeekKey(k : TPTCKey) : Boolean;
+
+Begin
+  check_open;
+  Result := m_keyboard.internal_PeekKey(k);
+End;
+
+Procedure VGAConsole.copy(Var surface : TPTCBaseSurface);
+
+Var
+  pixels : Pointer;
+
+Begin
+  check_open;
+  check_unlocked;
+  pixels := lock;
+  Try
+    surface.load(pixels, width, height, pitch, format, palette);
+    unlock;
+  Except
+    On error : TPTCError Do
+    Begin
+      unlock;
+      Raise TPTCError.Create('failed to copy console to surface', error);
+    End;
+  End;
+End;
+
+Procedure VGAConsole.copy(Var surface : TPTCBaseSurface;
+                           Const source, destination : TPTCArea);
+
+Var
+  pixels : Pointer;
+
+Begin
+  check_open;
+  check_unlocked;
+  pixels := lock;
+  Try
+    surface.load(pixels, width, height, pitch, format, palette, source, destination);
+    unlock;
+  Except
+    On error : TPTCError Do
+    Begin
+      unlock;
+      Raise TPTCError.Create('failed to copy console to surface', error);
+    End;
+  End;
+End;
+
+Function VGAConsole.lock : Pointer;
+
+Var
+  pixels : Pointer;
+
+Begin
+  check_open;
+  If m_locked Then
+    Raise TPTCError.Create('console is already locked');
+  pixels := m_primary;
+  m_locked := True;
+  lock := pixels;
+End;
+
+Procedure VGAConsole.unlock;
+
+Begin
+  check_open;
+  If Not m_locked Then
+    Raise TPTCError.Create('console is not locked');
+  m_locked := False;
+End;
+
+Procedure VGAConsole.load(Const pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette);
+Var
+  Area_ : TPTCArea;
+  console_pixels : Pointer;
+
+Begin
+  check_open;
+  check_unlocked;
+  If clip.Equals(area) Then
+  Begin
+    console_pixels := lock;
+    Try
+      Try
+        m_copy.request(_format, format);
+        m_copy.palette(_palette, palette);
+        m_copy.copy(pixels, 0, 0, _width, _height, _pitch, console_pixels, 0, 0,
+                    width, height, pitch);
+      Except
+        On error : TPTCError Do
+        Begin
+          Raise TPTCError.Create('failed to load pixels to console', error);
+        End;
+      End;
+    Finally
+      unlock;
+    End;
+  End
+  Else
+  Begin
+    Area_ := TPTCArea.Create(0, 0, width, height);
+    Try
+      load(pixels, _width, _height, _pitch, _format, _palette, Area_, area);
+    Finally
+      Area_.Destroy;
+    End;
+  End;
+End;
+
+Procedure VGAConsole.load(Const pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette;
+                           Const source, destination : TPTCArea);
+Var
+  console_pixels : Pointer;
+  clipped_source, clipped_destination : TPTCArea;
+  tmp : TPTCArea;
+
+Begin
+  check_open;
+  check_unlocked;
+  clipped_destination := Nil;
+  clipped_source := TPTCArea.Create;
+  Try
+    clipped_destination := TPTCArea.Create;
+    console_pixels := lock;
+    Try
+      Try
+        tmp := TPTCArea.Create(0, 0, _width, _height);
+        Try
+          TPTCClipper.clip(source, tmp, clipped_source, destination, clip, clipped_destination);
+        Finally
+          tmp.Destroy;
+        End;
+        m_copy.request(_format, format);
+        m_copy.palette(_palette, palette);
+        m_copy.copy(pixels, clipped_source.left, clipped_source.top, clipped_source.width, clipped_source.height, _pitch,
+                    console_pixels, clipped_destination.left, clipped_destination.top, clipped_destination.width, clipped_destination.height, pitch);
+      Except
+        On error:TPTCError Do
+        Begin
+          Raise TPTCError.Create('failed to load pixels to console area', error);
+        End;
+      End;
+    Finally
+      unlock;
+    End;
+  Finally
+    clipped_source.Destroy;
+    If clipped_destination <> Nil Then
+      clipped_destination.Destroy;
+  End;
+End;
+
+Procedure VGAConsole.save(pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette);
+Var
+  Area_ : TPTCArea;
+  console_pixels : Pointer;
+
+Begin
+  check_open;
+  check_unlocked;
+  If clip.Equals(area) Then
+  Begin
+    console_pixels := lock;
+    Try
+      Try
+        m_copy.request(format, _format);
+        m_copy.palette(palette, _palette);
+        m_copy.copy(console_pixels, 0, 0, width, height, pitch, pixels, 0, 0,
+                    _width, _height, _pitch);
+      Except
+        On error : TPTCError Do
+        Begin
+          Raise TPTCError.Create('failed to save console pixels', error);
+        End;
+      End;
+    Finally
+      unlock;
+    End;
+  End
+  Else
+  Begin
+    Area_ := TPTCArea.Create(0, 0, width, height);
+    Try
+      save(pixels, _width, _height, _pitch, _format, _palette, area, Area_);
+    Finally
+      Area_.Destroy;
+    End;
+  End;
+End;
+
+Procedure VGAConsole.save(pixels : Pointer;
+                           _width, _height, _pitch : Integer;
+                           Const _format : TPTCFormat;
+                           Const _palette : TPTCPalette;
+                           Const source, destination : TPTCArea);
+Var
+  console_pixels : Pointer;
+  clipped_source, clipped_destination : TPTCArea;
+  tmp : TPTCArea;
+
+Begin
+  check_open;
+  check_unlocked;
+  clipped_destination := Nil;
+  clipped_source := TPTCArea.Create;
+  Try
+    clipped_destination := TPTCArea.Create;
+    console_pixels := lock;
+    Try
+      Try
+        tmp := TPTCArea.Create(0, 0, _width, _height);
+        Try
+          TPTCClipper.clip(source, clip, clipped_source, destination, tmp, clipped_destination);
+        Finally
+          tmp.Destroy;
+        End;
+        m_copy.request(format, _format);
+        m_copy.palette(palette, _palette);
+        m_copy.copy(console_pixels, clipped_source.left, clipped_source.top, clipped_source.width, clipped_source.height, pitch,
+                    pixels, clipped_destination.left, clipped_destination.top, clipped_destination.width, clipped_destination.height, _pitch);
+      Except
+        On error:TPTCError Do
+        Begin
+          Raise TPTCError.Create('failed to save console area pixels', error);
+        End;
+      End;
+    Finally
+      unlock;
+    End;
+  Finally
+    clipped_source.Destroy;
+    If clipped_destination <> Nil Then
+      clipped_destination.Destroy;
+  End;
+End;
+
+Procedure VGAConsole.clear;
+
+Var
+  tmp : TPTCColor;
+
+Begin
+  check_open;
+  check_unlocked;
+  If format.direct Then
+    tmp := TPTCColor.Create(0, 0, 0, 0)
+  Else
+    tmp := TPTCColor.Create(0);
+  Try
+    clear(tmp);
+  Finally
+    tmp.Destroy;
+  End;
+End;
+
+Procedure VGAConsole.clear(Const color : TPTCColor);
+
+Var
+  tmp : TPTCArea;
+
+Begin
+  check_open;
+  check_unlocked;
+  tmp := TPTCArea.Create;
+  Try
+    clear(color, tmp);
+  Finally
+    tmp.Destroy;
+  End;
+End;
+
+Procedure VGAConsole.clear(Const color : TPTCColor;
+                           Const _area : TPTCArea);
+
+Begin
+  {...}
+End;
+
+Procedure VGAConsole.palette(Const _palette : TPTCPalette);
+
+Begin
+  check_open;
+  If format.indexed Then
+  Begin
+    m_palette.load(_palette.data);
+    internal_SetPalette(_palette.data);
+  End;
+End;
+
+Function VGAConsole.palette : TPTCPalette;
+
+Begin
+  check_open;
+  palette := m_palette;
+End;
+
+Procedure VGAConsole.clip(Const _area : TPTCArea);
+
+Var
+  tmp : TPTCArea;
+
+Begin
+  check_open;
+  tmp := TPTCClipper.clip(_area, m_area);
+  Try
+    m_clip.ASSign(tmp);
+  Finally
+    tmp.Destroy;
+  End;
+End;
+
+Function VGAConsole.width : Integer;
+
+Begin
+  check_open;
+  width := m_width;
+End;
+
+Function VGAConsole.height : Integer;
+
+Begin
+  check_open;
+  height := m_height;
+End;
+
+Function VGAConsole.pitch : Integer;
+
+Begin
+  check_open;
+  pitch := m_pitch;
+End;
+
+Function VGAConsole.pages : Integer;
+
+Begin
+  check_open;
+  pages := 2;{m_primary.pages;}
+End;
+
+Function VGAConsole.area : TPTCArea;
+
+Begin
+  check_open;
+  area := m_area;
+End;
+
+Function VGAConsole.clip : TPTCArea;
+
+Begin
+  check_open;
+  clip := m_clip;
+End;
+
+Function VGAConsole.format : TPTCFormat;
+
+Begin
+  check_open;
+  format := m_modes[m_CurrentMode].format;
+End;
+
+Function VGAConsole.name : String;
+
+Begin
+  name := 'VGA';
+End;
+
+Function VGAConsole.title : String;
+
+Begin
+End;
+
+Function VGAConsole.information : String;
+
+Begin
+End;
+
+Procedure VGAConsole.internal_pre_open_setup(Const _title : String);
+
+Begin
+
+End;
+
+Procedure VGAConsole.internal_open_fullscreen_start;
+
+{Var
+  f : TPTCFormat;}
+
+Begin
+{  f := TPTCFormat.Create(32, $0000FF, $00FF00, $FF0000);}
+{  m_160x100buffer := TPTCSurface.Create(160, 100, f);}
+{  f.Destroy;}
+{  set80x50;}
+End;
+
+Procedure VGAConsole.internal_open_fullscreen(ModeType : Integer);
+
+Var
+  tmp : TPTCArea;
+
+Begin
+  VGASetMode(320, 200, ModeType, m_faketype);
+  Case ModeType Of
+    INDEX8 : Begin
+      m_CurrentMode := 0;
+      m_pitch := 320;
+    End;
+    RGB332 : Begin
+      m_CurrentMode := 1;
+      m_pitch := 320;
+    End;
+    FAKEMODE : Begin
+      m_CurrentMode := 2;
+      m_pitch := 640;
+    End;
+  End;
+  m_width := 320;
+  m_height := 200;
+
+  tmp := TPTCArea.Create(0, 0, width, height);
+  Try
+    m_area.ASSign(tmp);
+    m_clip.ASSign(tmp);
+  Finally
+    tmp.Destroy;
+  End;
+End;
+
+Procedure VGAConsole.internal_open_fullscreen_finish(_pages : Integer);
+
+Begin
+  If m_primary <> Nil Then
+    FreeMem(m_primary);
+  m_primary := GetMem(m_height * m_pitch);
+End;
+
+Procedure VGAConsole.internal_post_open_setup;
+
+Begin
+  If m_keyboard <> Nil Then
+    m_keyboard.Destroy;
+  m_keyboard := TDosKeyboard.Create;
+
+  { temporary platform dependent information fudge }
+  {sprintf(m_information,"dos version x.xx.x\nvesa version x.xx\nvesa driver name xxxxx\ndisplay driver vendor xxxxx\ncertified driver? x\n");}
+
+  { set open flag }
+  m_open := True;
+End;
+
+Procedure VGAConsole.internal_reset;
+
+Begin
+  If m_primary <> Nil Then
+    FreeMem(m_primary);
+  m_primary := Nil;
+  If m_keyboard <> Nil Then
+    m_keyboard.Destroy;
+  m_keyboard := Nil;
+{  m_primary.Destroy;}
+{  m_keyboard.Destroy;}
+{  m_primary := Nil;}
+{  m_keyboard := Nil;}
+End;
+
+Procedure VGAConsole.internal_close;
+
+Begin
+  If m_primary <> Nil Then
+  Begin
+    FreeMem(m_primary);
+    m_primary := Nil;
+  End;
+  RestoreTextMode;
+End;
+
+Procedure VGAConsole.internal_SetPalette(data : Pint32);
+
+Var
+  i : Integer;
+  c : DWord;
+
+Begin
+  outportb($3C8, 0);
+  For i := 0 To 255 Do
+  Begin
+    c := (data^ Shr 2) And $003F3F3F;
+    outportb($3C9, c Shr 16);
+    outportb($3C9, c Shr 8);
+    outportb($3C9, c);
+    Inc(data);
+  End;
+End;
+
+Procedure VGAConsole.check_open;
+
+Begin
+  {$IFDEF DEBUG}
+    If Not m_open Then
+      Raise TPTCError.Create('console is not open');
+  {$ELSE}
+  {$ENDIF}
+End;
+
+Procedure VGAConsole.check_unlocked;
+
+Begin
+  {$IFDEF DEBUG}
+    If m_locked Then
+      Raise TPTCError.Create('console is not unlocked');
+  {$ELSE}
+  {$ENDIF}
+End;
author	peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2>	2008-02-02 15:48:09 +0000
committer	peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2>	2008-02-02 15:48:09 +0000
commit	c8845dfe5ca36797bebc57bcc37aae6a8e94444a (patch)
tree	a815946b5827956fef96fe9548e4a9c4d1e1b7d7 /packages/ptc/src/dos/fakemode/console.inc
parent	d7617abfb24ee7c360c3d123e1e9b2b5cc800a5d (diff)
download	fpc-c8845dfe5ca36797bebc57bcc37aae6a8e94444a.tar.gz