<p>Nico Huber has uploaded this change for <strong>review</strong>.</p><p><a href="https://review.coreboot.org/23216">View Change</a></p><pre style="font-family: monospace,monospace; white-space: pre-wrap;">[WIP] gma: Add interface functions to set/move cursor<br><br>Change-Id: I6e97442847ea42662214390d80aaf634a4b1ab5a<br>Signed-off-by: Nico Huber <nico.huber@secunet.com><br>---<br>M common/hw-gfx-gma.adb<br>M common/hw-gfx-gma.ads<br>2 files changed, 41 insertions(+), 0 deletions(-)<br><br></pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;">git pull ssh://review.coreboot.org:29418/libgfxinit refs/changes/16/23216/1</pre><pre style="font-family: monospace,monospace; white-space: pre-wrap;"><span>diff --git a/common/hw-gfx-gma.adb b/common/hw-gfx-gma.adb</span><br><span>index c179474..9ab6a92 100644</span><br><span>--- a/common/hw-gfx-gma.adb</span><br><span>+++ b/common/hw-gfx-gma.adb</span><br><span>@@ -303,6 +303,38 @@</span><br><span> </span><br><span> ----------------------------------------------------------------------------</span><br><span> </span><br><span style="color: hsl(120, 100%, 40%);">+ procedure Set_Cursor</span><br><span style="color: hsl(120, 100%, 40%);">+ (Pipe : Pipe_Index;</span><br><span style="color: hsl(120, 100%, 40%);">+ X : Cursor_X_Pos;</span><br><span style="color: hsl(120, 100%, 40%);">+ Y : Cursor_Y_Pos)</span><br><span style="color: hsl(120, 100%, 40%);">+ is</span><br><span style="color: hsl(120, 100%, 40%);">+ begin</span><br><span style="color: hsl(120, 100%, 40%);">+ if X < 0 then</span><br><span style="color: hsl(120, 100%, 40%);">+ Cur_Configs (Pipe).Cursor.Center_X :=</span><br><span style="color: hsl(120, 100%, 40%);">+ Int32'Max (-Config.Maximum_Cursor_X, X);</span><br><span style="color: hsl(120, 100%, 40%);">+ else</span><br><span style="color: hsl(120, 100%, 40%);">+ Cur_Configs (Pipe).Cursor.Center_X :=</span><br><span style="color: hsl(120, 100%, 40%);">+ Int32'Min (Config.Maximum_Cursor_X, X);</span><br><span style="color: hsl(120, 100%, 40%);">+ end if;</span><br><span style="color: hsl(120, 100%, 40%);">+ Cur_Configs (Pipe).Cursor.Center_Y := Y;</span><br><span style="color: hsl(120, 100%, 40%);">+ end Set_Cursor;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ procedure Move_Cursor</span><br><span style="color: hsl(120, 100%, 40%);">+ (Pipe : Pipe_Index;</span><br><span style="color: hsl(120, 100%, 40%);">+ X : Cursor_X_Pos;</span><br><span style="color: hsl(120, 100%, 40%);">+ Y : Cursor_Y_Pos)</span><br><span style="color: hsl(120, 100%, 40%);">+ is</span><br><span style="color: hsl(120, 100%, 40%);">+ function Cap_Add (A, B, Max : Cursor_Pos) return Cursor_Pos is</span><br><span style="color: hsl(120, 100%, 40%);">+ (if A + B < 0 then Int32'Max (-Max, A + B) else Int32'Min (Max, A + B));</span><br><span style="color: hsl(120, 100%, 40%);">+ begin</span><br><span style="color: hsl(120, 100%, 40%);">+ Cur_Configs (Pipe).Cursor.Center_X := Cap_Add</span><br><span style="color: hsl(120, 100%, 40%);">+ (Cur_Configs (Pipe).Cursor.Center_X, X, Config.Maximum_Cursor_X);</span><br><span style="color: hsl(120, 100%, 40%);">+ Cur_Configs (Pipe).Cursor.Center_Y := Cap_Add</span><br><span style="color: hsl(120, 100%, 40%);">+ (Cur_Configs (Pipe).Cursor.Center_Y, Y, Cursor_Y_Pos'Last);</span><br><span style="color: hsl(120, 100%, 40%);">+ end Move_Cursor;</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span style="color: hsl(120, 100%, 40%);">+ ----------------------------------------------------------------------------</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span> procedure Initialize</span><br><span> (Write_Delay : in Word64 := 0;</span><br><span> Clean_State : in Boolean := False;</span><br><span>diff --git a/common/hw-gfx-gma.ads b/common/hw-gfx-gma.ads</span><br><span>index eef0edc..f710bec 100644</span><br><span>--- a/common/hw-gfx-gma.ads</span><br><span>+++ b/common/hw-gfx-gma.ads</span><br><span>@@ -110,6 +110,15 @@</span><br><span> </span><br><span> procedure Update_Outputs (Configs : Pipe_Configs);</span><br><span> </span><br><span style="color: hsl(120, 100%, 40%);">+ procedure Set_Cursor</span><br><span style="color: hsl(120, 100%, 40%);">+ (Pipe : Pipe_Index;</span><br><span style="color: hsl(120, 100%, 40%);">+ X : Cursor_X_Pos;</span><br><span style="color: hsl(120, 100%, 40%);">+ Y : Cursor_Y_Pos);</span><br><span style="color: hsl(120, 100%, 40%);">+ procedure Move_Cursor</span><br><span style="color: hsl(120, 100%, 40%);">+ (Pipe : Pipe_Index;</span><br><span style="color: hsl(120, 100%, 40%);">+ X : Cursor_X_Pos;</span><br><span style="color: hsl(120, 100%, 40%);">+ Y : Cursor_Y_Pos);</span><br><span style="color: hsl(120, 100%, 40%);">+</span><br><span> pragma Warnings (GNATprove, Off, "subprogram ""Dump_Configs"" has no effect",</span><br><span> Reason => "It's only used for debugging");</span><br><span> procedure Dump_Configs (Configs : Pipe_Configs);</span><br><span></span><br></pre><p>To view, visit <a href="https://review.coreboot.org/23216">change 23216</a>. To unsubscribe, or for help writing mail filters, visit <a href="https://review.coreboot.org/settings">settings</a>.</p><div itemscope itemtype="http://schema.org/EmailMessage"><div itemscope itemprop="action" itemtype="http://schema.org/ViewAction"><link itemprop="url" href="https://review.coreboot.org/23216"/><meta itemprop="name" content="View Change"/></div></div>
<div style="display:none"> Gerrit-Project: libgfxinit </div>
<div style="display:none"> Gerrit-Branch: master </div>
<div style="display:none"> Gerrit-MessageType: newchange </div>
<div style="display:none"> Gerrit-Change-Id: I6e97442847ea42662214390d80aaf634a4b1ab5a </div>
<div style="display:none"> Gerrit-Change-Number: 23216 </div>
<div style="display:none"> Gerrit-PatchSet: 1 </div>
<div style="display:none"> Gerrit-Owner: Nico Huber <nico.h@gmx.de> </div>