← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to rtl/os2/printer.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/os2/printer.pas
1
 
{
2
 
    $Id: printer.pas,v 1.2 2002/09/07 16:01:25 peter Exp $
3
 
    This file is part of the Free Pascal run time library.
4
 
    Copyright (c) 1999-2000 by Florian Klaempfl
5
 
    member of the Free Pascal development team
6
 
 
7
 
    Printer unit for BP7 compatible RTL
8
 
 
9
 
    See the file COPYING.FPC, included in this distribution,
10
 
    for details about the copyright.
11
 
 
12
 
    This program is distributed in the hope that it will be useful,
13
 
    but WITHOUT ANY WARRANTY; without even the implied warranty of
14
 
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
 
 
16
 
 **********************************************************************}
17
 
unit printer;
18
 
interface
19
 
 
20
 
var
21
 
  lst : text;
22
 
 
23
 
implementation
24
 
 
25
 
var
26
 
  old_exit : pointer;
27
 
 
28
 
procedure printer_exit;
29
 
begin
30
 
  close(lst);
31
 
  exitproc:=old_exit;
32
 
end;
33
 
 
34
 
 
35
 
begin
36
 
  assign(lst,'PRN');
37
 
  rewrite(lst);
38
 
  old_exit:=exitproc;
39
 
  exitproc:=@printer_exit;
40
 
end.
41
 
{
42
 
  $Log: printer.pas,v $
43
 
  Revision 1.2  2002/09/07 16:01:25  peter
44
 
    * old logs removed and tabs fixed
45
 
 
46
 
}