From 10f142445b5c031c99e5187ad097f9ea0bfbe942 Mon Sep 17 00:00:00 2001 From: paul Date: Wed, 13 Apr 2011 08:37:17 +0000 Subject: [PATCH] lcl: Remove RaiseLastOsError dummy proc. It is already implemented by RTL git-svn-id: trunk@30279 - --- lcl/include/lclintf.inc | 5 ----- lcl/include/lclintfh.inc | 3 --- 2 files changed, 8 deletions(-) diff --git a/lcl/include/lclintf.inc b/lcl/include/lclintf.inc index d1c0e3855c..be380f622c 100644 --- a/lcl/include/lclintf.inc +++ b/lcl/include/lclintf.inc @@ -521,9 +521,4 @@ begin High(Buttons) - Low(Buttons) + 1, DefaultIndex, EscapeResult, X, Y); end; -procedure RaiseLastOSError; -begin - RaiseGDBException('ToDo: RaiseLastOSError'); -end; - //##apiwiz##epi## // Do not remove diff --git a/lcl/include/lclintfh.inc b/lcl/include/lclintfh.inc index d6f512930e..30b51ae720 100644 --- a/lcl/include/lclintfh.inc +++ b/lcl/include/lclintfh.inc @@ -146,9 +146,6 @@ function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Butt function PromptUserAtXY(const DialogMessage : String; DialogType : longint; Buttons : PLongint; ButtonCount, DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint; function PromptUserAtXY(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : Array of Longint; DefaultIndex, EscapeResult : Longint; X, Y : Longint) : Longint; -// should go to sysutils.pp -procedure RaiseLastOSError; - //##apiwiz##epi## // Do not remove {$ENDIF}