summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps15
1 files changed, 14 insertions, 1 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps b/Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps
index 9386339b0ac..a53b8c3f88e 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps
@@ -1,4 +1,4 @@
-% Copyright (C) 2001-2021 Artifex Software, Inc.
+% Copyright (C) 2001-2020 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
@@ -278,6 +278,19 @@ languagelevel 2 .setlanguagelevel
% ---------------- End of predefined configurations ---------------- %
+% Set optimizations for converting PostScript to PDF.
+% The ps2pdf* scripts invoke this.
+/.setpdfwrite { % - .setpdfwrite -
+ % Set a large VM threshold to reduce garbage collection.
+ (\n**** WARNING: The .setpdfwrite operator has been deprecated and will be removed entirely\n) print
+ ( in the next release of Ghostscript. The functionality of this operator has\n) print
+ ( been reduced to increasing the size of the VM threshold. If you believe you\n) print
+ ( have a real need for this then you should replace your call to .setpdfwrite\n) print
+ ( with:\n\n) print
+ ( 3000000 setvmthreshold\n\n) print
+ currentuserparams /VMThreshold get 3000000 .max setvmthreshold
+} bind def
+
% ---------------- pdfmark and DSC processing ---------------- %
/.write_small_positive_real % <file> <real> .write_small_positive_real -